所有程序語言裡沒有國字，也許大家也對判斷中國字很陌生吧！ ！ ！
所以，今天的題目是——
輸入一篇文章，輸出它的國字。
輸入說明 ：
這篇文章很長，有很多行。
輸出說明 ：
對於每一行，輸出這一行的國字並換行。
範例輸入 ：
今晚打老虎
VB程式 ~ !!!
範例輸出 ：
今晚打老虎
程式
輸入一篇文章，輸出它的國字。
輸入說明 ：
這篇文章很長，有很多行。
輸出說明 ：
對於每一行，輸出這一行的國字並換行。
範例輸入 ：
今晚打老虎
VB程式 ~ !!!
範例輸出 ：
今晚打老虎
程式
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
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
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