麻烦帮改个错
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 编辑 ]