UC知道vb 在文件中读取并替换字符串
来源：百度知道 编辑：UC知道 时间：2024/05/28 04:46:19
例如我在text1中输入一个六位数，a=val(text1.text),又有文本E:\4\5.txt,5.txt中每一行（有几百行吧）是：（六位数）（几个空格）（汉字），那么我怎样才能做到通过所输入的六位数找到相应的汉字，并把这些汉字在text2中显示呢？
Private Sub Command1_Click()
Open "E:\4\5.txt.txt" For Input As #1
Do While (Not EOF(1))
Line Input #1, 行内容
If Text1 = Left(行内容, 6) Then Text2 = 行内容
Loop
Close #1
End Sub
你试试下面代码 E:\4\5.txt,5.txt是你的文件
'需要控件:command1,text1,text2
Private Sub Command1_Click()
Open "E:\4\5.txt,5.txt" For Input As 1
Do While (Not EOF(1))
Line Input #1, data0
If Left(data0) = text1 Then text2 = Mid(Data, Len(text1.Text))
Loop
End Sub