Question

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

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

Answer 1

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.Print c
Next
   
End Sub

2、以上例程从文本文件读，把读出来的每一行文本装入一个字符串动态数组，数组每个成员即一行。

3、如果是想读textbox的每一行，假如每一行都有回车，按回车截取。如果是自动换行没有回车符，需要使用windows API来读每一行。

Answer 2

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

Answer 3

呵呵,楼下的好懒啊,哈
不知是TEXT文本框控件还是一个.txt文本文件,
如果是文件要先导入哦.
一切从简,如果是text控件的话是很简单的,假设数据在txt1.text
dim a() as string
dim b() as string
a=split(txt1.text,vbnewline)

for i = lbound(a()) to ubound(a())

b=split(a(i),";")
'做你想做既代码
分号前=b(0)
分号后=b(1)
'你的代码结束
erase b()
next i

Answer 4

你说的那个可以用streamreader 和string 的 split function 做。 懒得写code -_- 自己看看msdn上的例子吧。

Answer 5

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Function fileStr(ByVal fName As String) As String
On Error GoTo Err1
Dim tempInput As String
Open fName For Input As #1
Do While Not EOF(1)
Line Input #1, tempInput
If Right(tempInput, 1) <> Chr(10) Then tempInput = tempInput & Chr(10)
tempInput = Replace(tempInput, Chr(10), vbCrLf)
fileStr = fileStr & tempInput
Loop
If fileStr <> "" Then fileStr = Left(fileStr, Len(fileStr) - 2)
Close #1
Exit Function
Err1:
MsgBox "²»´æÔÚ¸ÃÎļþ»ò¸ÃÎļþ²»ÄÜ·ÃÎÊ£¡", vbExclamation
End Function
str=fileStr("txt路径")
a()=split(str,vbnewline)
for i=0 to n
b()=split(a(n),",")
text1.text=b(0) & " 、"
text1.text=b(1) & " 、"
next