VB读取记事本

Question

我想做两个记事本，一个叫 用户名.txt 另一个 密码.txt
点击 确定 检查text1里面的文本，在用户名.txt文件中，是否存在。
并且检查text2里面的文本，是否密码.txt也存在。
如果都存在，那就继续，如果不存在就返回。

因为VB内置的text生成后无法修改，为了以后添加，所以用记事本。

Answer 1

Private Sub Command1_Click()
Dim utext As String, ptext As String, ufile As String, pfile As String

ufile = App.Path & "\用户名.txt" '改成ufile="d:\用户名.txt"也可以
pfile = App.Path & "\密码.txt"

Open ufile For Input As #1
utext = StrConv(InputB$(LOF(1), 1), vbUnicode)
Close #1

Open pfile For Input As #1
ptext = StrConv(InputB$(LOF(1), 1), vbUnicode)
Close #1

If InStr(utext, Text1) > 0 And InStr(ptext, Text2) > 0 Then
MsgBox "用户名和密码均存在！"
Else
MsgBox "用户名或密码不存在！"
Exit Sub
End If
End Sub

Answer 2

你这个情况完全可以用.ini文件代替，网上大把的现成读写模块 用来做小型的数据存储最合适了

http://hi.baidu.com/baidan/blog/item/b813798b6619891ac8fc7a77.html

参考资料：http://www.baidu.com/baidu?wd=vb%20ini&q=3