麻烦帮改个错
RichTextBox2里的文本格式如下：1，100.1，220，100，452
2，101.2，110，11，23
3，103.2，11，123，23
4，100.1，22，12，2
。。。
C盘里#3文件格式如下：
A11,111111,100,LA
A12,112344,101,A
A13,123123,104,VBN
......
我想要做的是：检查RichTextBox2里的每行第一个“，”后面3位数字是否在C盘#3文件最后一个“，”前3位数字中。比如C盘那个文件相应位置没有“103”，但是RichTextBox2里出现了，那么我需要把它标识出来，我的代码如下：
Open "d:\源文件.txt" For Output As #1
Print #1, RichTextBox2.Text
Close #1
Open "d:\源文件.txt" For Input As #2
n = 1
L = InStr(n, RichTextBox2.Text, vbCrLf)
Do While L <> 0
TF = False
Line Input #2, linestr
a = Split(linestr, ",")
Open "c:\1.txt" For Input As #3
Do While Not EOF(3)
Line Input #3, StrLine
If Left(a(1), 3) = Mid$(StrLine, 12, 3) Then
TF = True: Exit Do
End If
Loop
Close #3
If Not TF Then
MsgBox "1.有误，请检查！"
RichTextBox2.SelStart = n + 1
RichTextBox2.SelLength = 5
RichTextBox2.SelColor = vbBlue
RichTextBox2.SelBold = True
End If
n = L + 2
L = InStr(n, RichTextBox2.Text, vbCrLf)
Loop
close #2
-------------
以上代码执行时，即使有不与#3文件中那3位数相对应 也不提示错误，麻烦各位帮看下愿因。谢谢
[ 本帖最后由 alee817 于 2012-12-21 20:01 编辑 ]
