Question

如何在VB6.0中，读取TXT的内容。

我现在想在一个TXT的文档中，读取里面的数据。
数据的格式如下：
数值1；数值2
数值1；数值2
数值1；数值2
……
我想问问，用什么方法，可以将数值1赋给数组1，数值2赋给数组2？
原先是数值占用一行，可以通过
For i = 1 To 61
Line Input #FreeNum, a
v(i) = a
Line Input #FreeNum, a
c(i) = a
原先的数据格式是：
数值1
数值2
数值1
数值2
……
有没有办法，可以区分“；”或者其他的标志符号，而顺利的将标志的前面赋给数组1后面赋给数组2？
简单的说，就是如何读取整行的字符串，判断里面的符号，然后拆分成连个字符串？

Answer 1

Line Input #FreeNum, a
If Trim(a) <> "" And Left(a, 1) <> ";" Then
m = InStrRev(a, ";")
v(i) = Trim(Left(a, m - 1))
c(i) = Trim(Right(a, Len(a) - m))
End If