UC知道VB代码，这个读取文本代码怎么写？请看说明！
来源：百度知道 编辑：UC知道 时间：2024/06/06 06:23:24
1，我要读取文本123.txt
我的文本格式是：
AA123||123456
123asdasd||ffwef123
如此类推
2，登陆时,验证文本里的数字(即AA123是帐号123456是密码)
文本里没有对应的帐号,则提示:没有这个帐号
帐号输入正确,密码输入不正确,则提示:密码错误
谢谢先~~
再说下文本的格式：
前面是帐号AA123
《||》这个是分隔符号，分隔符号后面是密码123456
就是不会写代码呀！麻烦写出来哈~
最好详细点~谢谢
我的文本格式是：
AA123||123456
123asdasd||ffwef123
如此类推
2，登陆时,验证文本里的数字(即AA123是帐号123456是密码)
文本里没有对应的帐号,则提示:没有这个帐号
帐号输入正确,密码输入不正确,则提示:密码错误
谢谢先~~
再说下文本的格式：
前面是帐号AA123
《||》这个是分隔符号，分隔符号后面是密码123456
就是不会写代码呀！麻烦写出来哈~
最好详细点~谢谢
可以用楼上的方法，也可以试试这个方法
Dim UserName As String
Dim UserPass As String
Open "123.txt" For Input Access Read As #1
Do Until EOF(1)
Line Input #1, User
If User <> "" Then
UserName = Mid(User, 1, InStr(1, User, "||") - 1)
UserPass = Mid(User, InStr(1, User, "||") + 2, Len(User))
If Text1.Text = UserName And Text2.Text = UserPass Then
MsgBox "登录成功"
Close #1
Exit Sub
End If
End If
Loop
Close #1
dim a as string
dim b() as string
line input #1,a
b=split(a,"||")
这样b(0)就是AA123
b(1)=123456了
第二个问题，逐条读入吧。具体代码你应该会把
Public Sub psubReadFile(userName As String, password As String)
Dim fso, f, ts
Dim strTmp As String
Dim str() As String
On Error Resume Next
Set fso = CreateObject("Scripting.FileSys