VB如何判断文本文件内的格式

从你的叙述：
000010000500002,112
0000100005000014,12
00001000050000252,11
00001000050000,122
如何判断每行的格式都是正确的。
可以看出，你的正确格式是指：
每行都有两部分构成，两部分由逗号分开,且没有空格
第一部分开头的14位必须是“00001000050000”，其后可以使任何数目字，也可以没有。
第二部分由1开头，其后的字符不是“1”就是“2”

假定你的这个文件位置和名字是：c:\aaa.txt
那么，判断代码如下：
Private Sub Command1_Click()
Dim i As Integer
Dim s As String
Dim s1 As String
Dim zhengque As Boolean, zongti As Boolean

Open "c:\aaa.txt" For Input As #1
zongti = True
Do While Not EOF(1)
n = n + 1
Input #1, s, s1
zhengque = True
If Left(s, 14) <> "00001000050000" Then
zhengque = False
GoTo ee
End If
For i = 15 To Len(s)
If Mid(s, i, 1) < "0" Or Mid(s, i, 1) > "9" Then
zhengque = False
GoTo ee
End If
Next i
If Left(s1, 1, 1) <> "1" Then
zhengque = False
GoTo ee
End