2011年7月12日 星期二

找出文章中使用的中文字數

題意同這題 :     找出文章中使用的英文單字字數


輸入說明：
第一行是文章篇數，第二行開始為文章的內容。
每篇文章之間，以一行空白作為區隔。
※中文字不包含標點符號

輸出說明：
對輸入的每篇文章，分別以一行輸出使用的字數。






輸入範例:
2
今天天氣很好


嘩啦啦啦啦啦啦啦啦~!!!!!下大雨了!!!!




輸出範例:
5
6
張貼者： 於

3 則留言:

  1. Arro2011年7月12日 下午5:12

    Private Sub Form_Load()

    Me.Hide


    Open App.Path & "\in.txt" For Input As #1
    Open App.Path & "\out.txt" For Output As #2

    Dim s, a As String, m As String, ans As Integer, ch, outs

    outs = Split("! , . ~ ， 。 : ； 、")

    Input #1, Ti

    For times = 1 To (Ti * 2) - 1

    List1.Clear

    For j = 0 To UBound(outs)
    List1.AddItem Asc(outs(j))
    Next

    ans = 0
    Input #1, a



    For i = 1 To Len(a)

    m = Mid(a, i, 1)





    ch = 1
    For j = 0 To List1.ListCount - 1
    If Asc(m) = List1.List(j) Then ch = 0
    Next
    If ch = 1 Then ans = ans + 1: List1.AddItem Asc(m)

    Next



    If times Mod 2 <> 0 Then Print #2, ans

    Next






    Close
    Close

    End

    End Sub

    回覆刪除
  2. 熊掌2011年7月13日 下午5:51

    arro好，
    1.這題似乎怪怪的，你反過來去算標點符號有那些，但是，標點符號只有這些嗎?
    你之前不是寫過一題，直接去求中文的內碼值?
    就算是全形的標點符號，應該也是在同一區才是吧。
    2.字串符號那個"雙引號，在vb 中要怎麼表示呢?
    3.兩個星期過去了，怎麼才這麼幾題呢? 還有去找緣尉要寫寫吧。
    加油。

    回覆刪除
  3. 佑2011年8月23日 上午9:13

    Private Sub Form_Load()
    Me.Hide
    Open App.Path & "\in.txt" For Input As #1
    Open App.Path & "\out.txt" For Output As #2
    Input #1, N
    Do

    If Not EOF(1) Then Input #1, X Else X = ""
    Call ABC(X)
    If Len(X) = 0 Then
    Print #2, List1.ListCount
    N = N - 1
    List1.Clear
    End If

    Loop Until N = 0
    End
    End Sub


    Sub ABC(A)
    For i = 1 To Len(A)
    T = Asc(Mid(A, i, 1))
    If T < 0 Then
    If RE(T) = False Then List1.AddItem T
    End If
    Next i
    End Sub

    Function RE(A) As Boolean
    P = False
    For i = 0 To List1.ListCount - 1
    If A = Val(List1.List(i)) Then P = True: Exit For
    Next i
    RE = P
    End Function

    回覆刪除

訂閱： 張貼留言 (Atom)