如何读取同时有数据和文字的文件
如何读取同时有数据和文字的文件,如:n m w
1 2 3
4 5 6
7 8 9
n1 m1 w1
1 2 3
4 5 6
7 8 9
--------------------编程问答-------------------- 楼主的文件是什么文件呢? --------------------编程问答-------------------- txt
--------------------编程问答-------------------- 全部按字符串读出存放在字符变量数组,而后依据需要进行数据处理. --------------------编程问答-------------------- 按字符串读,然后再处理 --------------------编程问答-------------------- open ...
--------------------编程问答-------------------- 以 Binary模式 读取,然后自己判断转换。
--------------------编程问答-------------------- isnumeric判断 --------------------编程问答--------------------
Option Explicit--------------------编程问答-------------------- 楼上正解~!
Private Sub Form_Load()
Dim s, a
Dim s1()
Dim s2()
Dim s3()
Dim i, j, k, l
Open "C:\12.txt" For Input As #1
Do While Not EOF(1)
ReDim Preserve s1(i)
Line Input #1, s1(i)
i = i + 1
Loop
Close #1
For i = 0 To UBound(s1)
a = Split(s1(i), " ")
For j = 0 To UBound(a)
If IsNumeric(a(j)) Then
ReDim Preserve s2(k)
s2(k) = a(j)
k = k + 1
Else
ReDim Preserve s3(l)
s3(l) = a(j)
l = l + 1
End If
Next
Next
For i = 0 To UBound(s2)
Debug.Print s2(i)
Next
For i = 0 To UBound(s3)
Debug.Print s3(i)
Next
End Sub
补充:VB , 基础类