请问怎样打开一个已有的*.TXT文件并查找文件内容里包含的字符个数

Question

读.Txt进一个字符型的变量
用循环配合InStr()
就可以完成你需要的任务了

Answer 1

楼上的肯定行，去google上搜索看看

Answer 2

太简单了，msdn上有现成的例子

Answer 3

Private Function GetX(ByVal strSource As String, ByVal strX As String) As Integer
    Dim i As Integer
    Dim j As Integer
    
    i = InStr(1, strSource, strX)
    j = 0
    Do While i <> 0
        i = InStr(i + 1, strSource, strX)
        j = j + 1
    Loop
    
    GetX = j
End Function经过测试，可以用比如
Msgbox GetX("A1A2A3A4","A")
结果为4