Question

在Vb中， 我创建一个保存按钮 点击后可以吧text1 text2中的文字或者信息保存到txt中，

在Vb中， 我创建一个保存按钮 点击后可以吧text1 text2中的文字或者信息保存到txt中， 然后想在创建一个查询的按钮 根据text1中的内容把text2中的内容显示出来 求代码

Answer 1

'大概就是这样，供参考。朋友。
Private Sub Command1_Click()
Open "d:/001.txt" For Output As #1
Print #1, Text1
Close #1
End Sub

Private Sub Command2_Click()
Open "d:/001.txt" For Input As #1
If Not EOF(1) Then Input #1, s
Text2 = s
Close #1
End Sub

追问

不能覆盖， 就比如说一个会员卡系统， 新开一个会员卡，然后把基本信息输入进去保存起来， 然后可以根据开卡人的姓名查出来这个人的基本信息

追答

哦。你刚没说清楚。呵呵。我再看下。

追问

好吧， 麻烦了。

追答

Private Sub Command1_Click()
Open "d:/001.txt" For Append As #1
Print #1, Text1, Text2
Close #1
End Sub

Private Sub Command2_Click()
Dim s$, s1$, n%
Open "d:/001.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, s
n = InStr(s, " ")
s1 = Left(s, n)
If Trim(s1) = Text1 Then
Text2 = Mid(Trim(s), n)
Exit Do
End If
Loop
Close #1
End Sub

Private Sub Form_Load()
Text1 = "": Text2 = ""
End Sub

追问

怎么Text2 = Mid(Trim(s), n)语句不正确

追答

怎么会？我都调试正确了才发上来的。朋友。

追问

谢谢，麻烦了