vb简单编程-读取文本

来源：百度知道 编辑：UC知道 时间：2024/07/05 11:05:10
要求程序有两个文本框text1和text2，text2默认为打开123.txt，如果在text1中输入内容，要求在text2中显示123.txt搜索相同内容（比如123.txt第一行是我爱你，第二行是：中国，第三行是日本，我在text1中输入：我 的时候应该显示第一行，输入日本的时候显示第三行），麻烦高手帮我写一下，语句越简单越好，最好附上解释

已经按你的要求写了源代码程序，请下载：
http://www.fileurls.com/download.ashx?id=mvfmrd

open "123.txt" for input as #1'打开文件123.txt作为文件1
do while not EOF(1)‘一直读到文件尾巴
line input 1,text1.text‘读取第一行
line input 1,text2.text’读取第二行
loop‘当读到文件尾巴时结束
close(1)‘关闭文件

首先创建两个text控件，text1，text2

vb代码：

Option Explicit
Dim i%, j%, x%, a(), str1$, str2$
Dim number%

Private Sub Form_Load()
Open "d:\123.txt" For Input As #1 '其中" "为路径及文件名
text2.text=input(lof(a),1)
close #1 'text2中默认显示123.txt的内容

Open "d:\123.txt" For Input As #1 '其中" "为路径及文件名
Do While Not EOF(1) '如果没到文件的末尾
Line Input #1, str1 '顺序读取一行
ReDim Preserve a(0 To j)
a(j) = str1 '并把该行存入数组a
j = j + 1
Loop
Close #1