如何快速检查超长字符串里的数据？

Question

现在在做一个程序要检查一个文本文件中是否所有的逗号后面都为空格或回车。
我的代码如下：
Private Sub Command1_Click()
LineNum = 1
For i = 1 To Len(RichTextBox1.Text) ‘RichTextBox1中放被检查文本的内容
getCodeText = Mid(RichTextBox1.Text, i, 1)
If getCodeText = Chr(13) Then
    LineNum = LineNum + 1
End If
If getCodeText = "," Then
    nextCodeText = Mid(RichTextBox1.Text, i + 1, 1)
    If nextCodeText <> Chr(13) And nextCodeText <> " " Then
        codeText = codeText + "Line:" + Str(LineNum) + "  " + getCodeText + nextCodeText + Chr(13) + Chr(10)
    End If
End If
Next i
CodeTextBox.Text = codeText
End Sub
但是当被检查的文件一大时，速度超慢，并且机器类似死机，请大家帮帮忙修正一下，谢谢。

Answer 1

根据你上面的程序功能，建议你生成临时的txt文本，以行的形式进行读取，这样速度上比你一个字符一个字符检查要快得多，另外你要是只是“,”后面的东西，这样你可以split每行分解就出来了！

Answer 2

使用split分隔,+空格或，+回车生成的数组维数与使用split分隔，生成的数组维数是否相同即可。