VB中怎样在记事本文件中（每行的数据个数不相等而且没个数据间用空格分开）判断每行的数据个数

Question

line input 读取数据后 只能判断其字符总个数，关键在与有些数字为负数 占有两个字符，而且这个数据的正负是没有规律的

Answer 1

用line input 一行一行读,然后用len函数就可以了.

Answer 2

如果没有任何规则的话,怕是没有办法喽...

Answer 3

Dim myData() As String, i As Integer, myStr As String
Open "c:\123.txt" For Input As #1
Do Until EOF(1)
i = i + 1
Line Input #1, myStr
myData = Split(myStr, " ")
MsgBox "第" & i & "行有" & UBound(myData) + 1 & "个数据"
Loop
Close

Answer 4

数据是用空格分开的？
判断读取一行字符串中的空格数应该就可以了
如果数据之间的空格不是固定的，可以通过从字符到空格再到字符的顺序来判断
for i=0 to len（字符串）
if mid（字符串，i，1）=" " then 判断空格
end if
next i