vb如何分别读取TXT的每行内容

来源：百度知道 编辑：UC知道 时间：2024/06/14 08:10:22
TXT文本中有以下格式的几行内容
1;aaa
2;bbb
3;ccc
4;ddd
n;xxx
要求VB在读取时行以行和符号;来区分，将其写入表格中的格式必须是：
第一列数据是
1、2、3、4、
第二列的数据是
aaa、bbb、ccc、ddd、xxx
也就是说要以符号;作为列的分界！不知道有没有说明白

1个Split就能解决你的问题

Dim lie() As String
Open App.Path & "\*.txt" For Input As #1 ' 打开你的*.txt文件。
Do While Not EOF(1) ' 循环至文件尾。
Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。
lie = Split(TextLine, ";") ’分列
MsgBox lie(0)'显示第一列内容
Loop
Close #1 ' 关闭文件

lie(0)为1、2、3、4、
lie(1)为aaa、bbb、ccc、ddd、xxx

1、vb6示例：

Option Explicit

Private Sub Command1_Click()
Dim iStr() As String, i As Long, c

Open "d:\test.txt" For Input As #1

While Not EOF(1)
   ReDim Preserve iStr(i)
   Line Input #1, iStr(i)
   i = i + 1
Wend
Close #1

For Each c In iStr
    Debug.Pr