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 While Not EOF(1) Line Input #1, n For i = 1 To Len(n) x = Mid(n, i, 1) If Asc(x) < 0 Then a = a & x Next Print #2, a a = "" Loop Close #2 Close #1 End End Sub ---------------- in.txt 所有程序34語言裡沒有國字，4812 也許大家也對df判斷中國字很陌生吧！１５４ ！！所以，今天的題４７８目是——輸入一ａｓｅ 篇文章，ｄ輸出它的國字。sdr ----------------- out.txt 所有程序語言裡沒有國字， 也許大家也對判斷中國字很陌生吧！１５４ ！！所以，今天的題４７８目是——輸入一ａｓｅ 篇文章，ｄ輸出它的國字。
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 While Not EOF(1)
Line Input #1, N
Call Chn(N)
Loop
Close
Close
End
End Sub
Sub Chn(a)
Dim gets, ans As String
For i = 1 To Len(a)
gets = Mid(a, i, 1)
If Asc(gets) < -10000 Then ans = ans & gets
Next
Print #2, ans
End Sub
這題寫得很不標準 :|
回覆刪除我把中文字放到 Asc() 裡面 都會是負一萬以上
所以就拿這個來當判斷
由於打 日文、簡字、印度文 那些到vb都會變問號
所以沒有去測試那些
arro好，
回覆刪除程式ok,
題目還是有些不完整的感覺，那些符號呢？全形符號和半形符號呢？
是可以像你這樣有些類似嘗試法，去試試中文字都出現多少。
另外，也可以去找找中文字中big-5(或是unicode)中的組成。
哦，
不過呢，你還是沒有將你的輸入和輸出給po上來，下次記得啊。
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 While Not EOF(1)
Line Input #1, n
For i = 1 To Len(n)
x = Mid(n, i, 1)
If Asc(x) < 0 Then a = a & x
Next
Print #2, a
a = ""
Loop
Close #2
Close #1
End
End Sub
----------------
in.txt
所有程序34語言裡沒有國字，4812
也許大家也對df判斷中國字很陌生吧！１５４
！！所以，今天的題４７８目是——輸入一ａｓｅ
篇文章，ｄ輸出它的國字。sdr
-----------------
out.txt
所有程序語言裡沒有國字，
也許大家也對判斷中國字很陌生吧！１５４
！！所以，今天的題４７８目是——輸入一ａｓｅ
篇文章，ｄ輸出它的國字。
緣尉好，
回覆刪除這樣的簡單的題目，真的，還是有機會出現在比賽中的，要穩穩地拿下分數才是。寫了，再換下一題，就是了。