Private Sub Command1_Click()
Dim MyStrW As String, MyStrB As String
MyStrW = "中文加上English"
MyStrB = StrConv(MyStrW, vbFromUnicode)
Print "中文字約有 " & LenB(MyStrB) - Len(MystrW) & " 字"
Print "英文字約有 " & 2 * Len(MystrW) - LenB(MyStrB) & " 字"
End Sub
===========================================================
上面的範例是計算"中文加上English"這個字串的中英文字數,如果我要計算一個TXT檔案內文的中英文字數,不知要如何做。我都一直算出該檔名的中英文字數......
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(1) 人氣()