2012年11月20日 星期二

中國字


所有程序語言裡沒有國字,也許大家也對判斷中國字很陌生吧! ! !

所以,今天的題目是——
輸入一篇文章,輸出它的國字。
輸入說明 :
這篇文章很長,有很多行。
輸出說明 :
對於每一行,輸出這一行的國字並換行。
範例輸入 :
今晚打老虎
VB程式  ~  !!!
範例輸出 :
今晚打老虎
程式

3 則留言:

  1. Private Sub Form_Load()
    Me.Hide
    Open App.Path & "\in.txt" For Input As #1
    Open App.Path & "\out.txt" For Output As #2
    Do
    Line Input #1, temp
    For i = 1 To Len(temp)
    If Asc(Mid(temp, i, 1)) < 0 Then ans = ans & Mid(temp, i, 1)
    Next
    Print #2, ans
    ans = ""
    Loop Until EOF(1)
    Close #2
    Close #1
    End
    End Sub

    回覆刪除
  2. Private Sub Form_Load()
    Me.Hide
    Open App.Path & "\in.txt" For Input As #1
    Open App.Path & "\out.txt" For Output As #2
    Do
    Line Input #1, x
    n = Len(x)
    For i = 1 To n
    If Asc(Mid(x, i, 1)) < 0 Then ans = ans & Mid(x, i, 1)
    Next
    Print #2, ans
    ans = ""
    Loop Until EOF(1)
    Close #2
    Close #1
    End
    End Sub

    回覆刪除
  3. Private Sub Form_Load()
    Open App.Path & "\in.txt" For Input As #1
    Open App.Path & "\out.txt" For Output As #2
    Do While Not EOF(1)
    msg = ""
    Line Input #1, x
    For i = 1 To Len(x)
    If Asc(Mid(x, i, 1)) < 0 Then msg = msg & Mid(x, i, 1)
    Next i
    Print #2, msg
    Loop
    Close #2
    Close #1
    End
    End Sub

    回覆刪除