...数据 后按照指定字符分列。使用数组函数,怎么用? TXT
发布网友
发布时间:2024-05-29 12:44
我来回答
共1个回答
热心网友
时间:2024-06-04 02:30
Option Explicit '强制变量声明
Option Base 1 '数组以1开头
Private Sub Form_Load()
Dim a(3, 5) As String, tmp As String '定义3x5的数组和临时变量
Dim i As Integer, j As Integer '定义临时变量
Open "C:\Documents and Settings\Administrator\桌面\Test.txt" For Input As #1 '打开txt文件
Do While Not EOF(1) '逐行读取
Line Input #1, tmp '把当前行保存到tmp里
i = i + 1 'i表示数组的第几行
For j = 1 To 5 'j表示数组的第几列
a(i, j) = Split(tmp, "|")(j - 1) '把tmp用”|“符号切割成5段,依次保存到数组第i行的5个列中
Next
Loop
Close #1
MsgBox a(3, 5) '输出第3行第5列的字符
End Sub