VB代码,读取htttp://www.***.com/abc.txt文本代码怎么写？请看具体！

来源：百度知道 编辑：UC知道 时间：2024/05/31 23:19:21
1，我要读取文本abc.txt
我的文本格式是：
AA123||123456
123asdasd||ffwef123
如此类推
2，登陆时,验证文本里的数字(即AA123是帐号123456是密码)
文本里没有对应的帐号,则提示:没有这个帐号
帐号输入正确,密码输入不正确,则提示:密码错误
帐号输入错误,密码正确,则提示:没有这个帐号
谢谢先~~
再说下文本的格式：
前面是帐号AA123
《||》这个是分隔符号，分隔符号后面是密码123456
就是不会写代码呀！麻烦写出来哈~
最好详细点~谢谢
文本路径是http://www.meibu.com/123.txt的！！！！
-------------------------------------------
1楼的代码有错误,缺少表达方式
------------------------------
实时错误424啊！
对象要求！
麻烦1楼erznlie再弄下~谢谢！
==========================
二楼的请看清楚！
读取路径不同！！
如果按照那个问题的把这个路径http://www.meibu.com/123.txt加上去，会提示路径不对！
==========
==========
增加了~还是提示错误424 提示错误是这a = Inet1.OpenURL("http://255gm.meibu.com/123.t

不好意思楼主，你刚没说是在网上的！

现在把新的给你！

Dim a As String
Dim b() As String
Dim c() As String
Dim d, e, i As Long
d = 0
e = 0
a = Inet1.OpenURL("http://255gm.meibu.com/123.txt")
b = Split(a, vbCrLf)
For i = 0 To UBound(b)
c = Split(b(i), "||")
If c(0) = Text2.Text Then
d = 1
If c(1) = Text3.Text Then
e = 1
End If
End If
Next
If d = 0 Then
MsgBox "账号不存在!"
Exit Sub
End If

If e = 0 Then
MsgBox "密码不正确!"
Exit Sub
End If

MsgBox "账号密码均正确!"

楼主，你的inet控件增加了么？

我测试是正常的啊，只是你的地址打不开，还有，楼主你把代码是放在什么过程中的？！

你好像问过这个类似问题，已经回答过了
h