VB代码，要读取文本里的帐号才能使用，代码怎么写？？

来源：百度知道 编辑：UC知道 时间：2024/06/02 02:00:02
例如：文本里有帐号123，使用软件时要输入帐号123才能用，没有输入则提示：你没有输入帐号！
1，我要读取文本123.txt
我的文本格式是：
AA123||123456
123asdasd||ffwef123
如此类推
2，登陆时,验证文本里的数字(即AA123是帐号123456是密码)
文本里没有对应的帐号,则提示:没有这个帐号
帐号输入正确,密码输入不正确,则提示:密码错误
谢谢先~~
再说下文本的格式：
前面是帐号AA123
《||》这个是分隔符号，分隔符号后面是密码123456
就是不会写代码呀！麻烦写出来哈~
最好详细点~谢谢
==========================================
那我把文本传到服务器空间，文本地址怎么写？

'画两个文本框,一个按钮
Private Sub Command1_Click()
Dim myAll As String, myNamePassword() As String, myName() As String
Dim a As Integer, myGetName As Boolean
Open "c:\123.txt" For Binary As #1
myAll = Input(LOF(1), 1)
Close
myNamePassword() = Split(myAll, vbCrLf)
For a = 0 To UBound(myNamePassword)
myName() = Split(myNamePassword(a), "||")
If myName(0) = Text1.Text Then
myGetName = True
If myName(1) <> Text2.Text Then
MsgBox "密码错误"
Else
MsgBox "用户名和密码都正确"
'在这里写入您要做的事情
End If
End If
Next
If myGetName = False Then MsgBox "没有这个帐号"
End Sub

我也是刚接触这个，你可以在窗体添加一个list1和一个list2 用来加载账号密码，设置为不可见就行了
Private Sub Command1_Click()
On Error Resume Next
List1.Clear: List2.Clear
Open "f:\123.txt" For Input As #1
D