请教各位前辈2个问题：
1、TXT文件中如何从某一行开始到文件结束统计各个字符的个数？（我的软件界面已经做了9个文本框，分别显示1~9出现的个数，有多少个就显示几，没有出现的就显示为0），
2、一个txt文件，最大不超过300行，其中某一行会出现SUMMARY：这八个字符。全文件中一定会出现一次，具体行数不固定，请教如何在文本框中显示这一行内容并从第9个字符开始显示。（例如该行内容为SUMMARY：12345，我只希望文本框中显示12345）

请教这两个问题怎么解决？求源码。谢谢各位大大！

谢谢大大，第二个问题顺利解决！第一个问题的文本详见附件。我是想从//...这行开始到文件的最后，统计出“X”有几个；“1”有几个；“2”有几个；“3”有几个........分别显示在相对应的文本框中，有多少个就显示几，没有出现的就显示为0。

大大！神人啊！叩首中。。。。。。。
恕小的眼拙，给您的文本中还藏有8个A、1个C、3个D.....我没有看出来并告知您，现在一并都计数进b(0)中，不知如何区分开来，请大大再教教我！谢谢！
显示效果我自己可以解决。

大大！接触VB不是太多，断断续续的，所以一直没有什么进步，惭愧中。。。。。。
您给的程序我修改了一下，只显示某一个字符（如“A”），可以显示个数。
Dim a As String, b As Long, c As String, f As Boolean, i As Integer
    b = 0       '首先对统计数清零
   f = False
  Open "c:\11.txt" For Input As #1
  While Not EOF(1)
    Line Input #1, a
    If InStr(a, "//..") > 0 Then f = True                '找到双斜杠的标志，设置变量f为真，准备统计
    If f Then
      For i = 1 To Len(a)
        c = Mid(a, i, 1)
        If Asc(c) = 65 Then b = b + 1    '如果是数字或字母x则统计个数，x统计在数组b(0)中，数字1-9则在b(1)-b(9)中
      Next
    End If
  Wend
  Close #1
    Text1.text = b
这时文本框中显示8，是对的。


但是 重新按照我的想法修改:
Dim a As String, b(26) As Long, c As String, f As Boolean, i As Integer
  For i = 1 To 26
    b(i) = 0       '首先对统计数清零
  Next
  f = False
  Open "c:\11.txt" For Input As #1
  While Not EOF(1)
    Line Input #1, a
    If InStr(a, "//..") > 0 Then f = True                '找到双斜杠的标志，设置变量f为真，准备统计
    If f Then
      For i = 1 To Len(a)
        c = Mid(a, i, 1)
        If Asc(c) >= 65  Then b(Val(c)) = b(Val(c)) + 1    '如果是数字或字母x则统计个数，x统计在数组b(0)中，数字1-9则在b(1)-b(9)中
      Next
    End If
  Wend
  Close #1
    Text1.text = b（1）
这时文本框中显示0，就不对了。
请教大大，是Val函数不对么？我改用Str函数也不对。请指教一下吧.



[ 本帖最后由 ictest 于 2013-10-20 22:50 编辑 ]

谢谢大大！