Question

vb6.0怎样将保存的txt文件给数组赋值，并显示在text控件里？代码怎么写？

Answer 1

有两种方法

'1. 一次就读取全部内容，二进制方式
Private Sub Command1_Click()
    Text1.Text = ""
    Open "c:\boot.ini" For Binary Access Read As #1
    ReDim btes(LOF(1) - 1) As Byte
    Get #1, , btes
    Close
    Text1.Text = StrConv(btes, vbUnicode)
End Sub

'2.每次读取一行
Private Sub Command1_Click()
    Dim Lines As String
    Text1.Text = ""
    Open "c:\boot.ini" For Input As #1
    Do While Not EOF(1)   ' 循环至文件尾。
        Line Input #1, Lines
        Text1.Text = Text1.Text & Lines & vbNewLine
    Loop
    Close
End Sub

Answer 2

猜谜语吗?

Answer 3

留个Q我传你个代码

Answer 4

好难啊，我看看书

Answer 5

VB 中对于磁盘文本文件的读写有几中方式，其中可以采用每次读取一行的方式来完成。
如：
D盘中有一个文件，D:\Read.Txt,其文件内容格式如下
11 12 13 14 15 16 17 18 19
21 22 23 24 25 26 27 28 29
31 32 33 34 35 36 37 38 39
文件中的数字是用空格隔离开的，每行用回车结束的。
那么在VB中设计一个读取该文件的按扭 Command1，同时界面上还有9个TextBox 控件，名称依次是Text1,Text2.....Text9
在Command1_Click() 事件中添加如下的代码：
Dim FileNum As Long
Dim fileName As String

Dim tmpStr As String
Dim readArr() As String
On Error GoTo ReadErr
fileName = "D:\Read.Txt"

FileNum = FreeFile()
'打开已存在的文件
Open fileName For Input Access Read As FileNum
Do While Not EOF(FileNum)
Input #FileNum, tmpStr '读取一行
readArr = Split(tmpStr) ‘用空格分离并存放在数组 readArr 中
'显示内容,这时候是滚动显示的....
Text1.Text=readArr(0):Text2.Text=readArr(1):Text3.Text=readArr(2)
...
Text9.Text=readArr(8)
Loop
'关闭文件
Close FileNum
Exit Sub
ReadErr:
MsgBox "读取文件发生错误！" + Chr$(13) + Error$, 48, "重要提示"
Exit Sub