如何打开一个大型文件，并把文件里的数据按类别显示在各个TEXTBOX中！

Question

请教各位专家了！

Answer 1

比如你想把从数据库里查询得到的字段显示在TEXTBOX里，那就要你自己组织文本的分隔方式，每行还要加上回车，如果字段内容长度相差悬殊的话，那显示出来的效果不是很好。

Answer 2

就是打开一个大型的文件（文件可以用记事本格式打开），然后里面有不同的数据
如NAME：123 MIMA：223……………………
界面上是名字后面是TEXTBOX，让123显示在TEXTBOX中………………
如此，不过文件是很大的

Answer 3

把文本文件内容读取TextBox：
Dim TempFile As Long
Dim LoadBytes() As ByteTempFile=FreeFile
Open 文件名 For Binary As #TempFile
Redim LoadBytes(1 To Lof(TempFile)) As Byte
Get #TempFile,,LoadBytes
Close TempFileText1.Text=StrConv(LoadBytes,vbUniCode)

Answer 4

不是全部显示，是分列别显示，文件里是NAME：123要显示在名字的TEXT里TEXT里是123，MIMA：234的则显示在密码的TEXT里TEXT里是234

Answer 5

文件格式：
a99|12345
SK|321
King|abcdef
Maya|777999左边是NAME，右边是密码以下是代码：
Private Sub Form_Load()
    Dim Str_UserInfo() As String
    
    Dim Str_User() As String
    ReadUserInfo "c:\1.txt", Str_UserInfo()    Dim Temp    For Each Temp In Str_UserInfo()        If Len(Trim(Temp)) > 8 Then
            Str_User = Split(Temp, "|")
            
            List1.AddItem Str_User(0)
            List2.AddItem Str_User(1)
        End If
    NextEnd Sub
Public Sub ReadUserInfo(filename As String, FileStr() As String)
Dim ByteFile() As Byte
Dim FFN As IntegerErase FileStr
Erase ByteFileFFN = FreeFile
If FileLen(filename) <= 0 Then Exit Sub
ReDim ByteFile(FileLen(filename) - 1)
    Open filename For Binary As #FFN   ' 打开文件。
    Get #FFN, , ByteFile
    Close #FFN
FileStr = Split(StrConv(ByteFile, vbUnicode), vbCrLf)
End Sub

Answer 6

这样写可以把文件的2部分分开显示在LIST控件里
但是无法把使文件内容对应的显示出来
我要求是一个一个显示在TEXT中
a99|12345
SK|321
King|abcdef
Maya|777999
显示出来
LABEL1里面显示a99
text1里面显示12345
LABEL2里面显示SK
text2里面显示321
………………这种格式

Answer 7

可以分开显示在List，不就可以显示在Label,Text中吗？