VB6.0 如何将文本文件指定行内容输出到文本框中？

alickluo 发布于 2023-01-29 13:48， 1204 次点击

各位老师：
VB6.0 如何将文本文件指定行内容输出到文本框中？

例如：窗体上有Text1.Text、Text2.Text、Text3.Text 共3个文本框，同目录下有文本文件A123.TXT。

A123.txt的内容如下，共有5行：
WW0011
Q2579AA
B3Q21DDD#
C22U5
A33785#

如何将A123.txt的第1行内容显示在Text1.Text，第3行内容显示在Text2.Text，第5行内容显示在Text3.Text中，谢谢！

4 回复

牛掰2023-01-29 14:03

回复楼主 alickluo

使用Chr(10)拆分来读取

cwa99582023-01-29 15:21

txt文件是顺序文件，只要在读出内容时做好标记就可以了。
逐行读取数据，做好计数。

cwa99582023-01-29 15:54

例子

    dim i as integer,s as string
    Open App.Path & "\A123.txt" For Input As #1
    Do While Not EOF(1)
        i = i + 1
        Line Input #1, s
        If i = 1 Then Text1 = s
        If i = 3 Then Text2 = s
        If i = 5 Then Text3 = s
    Loop

alickluo2023-02-07 09:22

谢谢大家，再请问一下，如果同一行有多个字段，我只想取指定的第3个字段，该如何取呢？