标题:VB6.0 如何将文本文件指定行内容输出到文本框中?
只看楼主
alickluo
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2023-1-29
结帖率:60%
已结贴  问题点数:20 回复次数:4 
VB6.0 如何将文本文件指定行内容输出到文本框中?
各位老师:
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中,谢谢!
搜索更多相关主题的帖子: Text 内容 文本文件 文本框 VB6.0 
2023-01-29 13:48
牛掰
Rank: 2
等 级:论坛游民
帖 子:28
专家分:87
注 册:2020-4-17
得分:10 
回复 楼主 alickluo
使用Chr(10)拆分来读取
2023-01-29 14:03
cwa9958
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:67
帖 子:247
专家分:1228
注 册:2006-6-25
得分:10 
txt文件是顺序文件,只要在读出内容时做好标记就可以了。
逐行读取数据,做好计数。
2023-01-29 15:21
cwa9958
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:67
帖 子:247
专家分:1228
注 册:2006-6-25
得分:0 
例子

    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

2023-01-29 15:54
alickluo
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2023-1-29
得分:0 
谢谢大家,再请问一下,如果同一行有多个字段,我只想取指定的第3个字段,该如何取呢?
2023-02-07 09:22



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-511181-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 1.520908 second(s), 7 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved