VBS输入值与TXT文本比对是否正确，不正确就提示
答案:1 悬赏:70
解决时间 2021-01-08 08:17
- 提问者网友：杀手的诗
- 2021-01-07 14:43
VBS输入值与TXT文本比对是否正确，不正确就提示
最佳答案
- 二级知识专家网友：神的生死簿
- 2021-01-07 16:04
Set FSO = CreateObject("Scripting.FileSystemObject")
a = FSO.OpenTextFile("a.txt").ReadAll
Do
u = InputBox("请输入名字")
p = InputBox("请输入密码")
i = InStr(1, vbCrLf & a & vbCrLf, vbCrLf & u & "," & p & vbCrLf)
If i = 0 Then MsgBox "错误，请重新输入"
Loop While i = 0
MsgBox "通过"追问如果失败，貌似会无限循环，所以是要加入do exit的吧追答输入的名字密码正确，就退出循环了。
a = FSO.OpenTextFile("a.txt").ReadAll
Do
u = InputBox("请输入名字")
p = InputBox("请输入密码")
i = InStr(1, vbCrLf & a & vbCrLf, vbCrLf & u & "," & p & vbCrLf)
If i = 0 Then MsgBox "错误，请重新输入"
Loop While i = 0
MsgBox "通过"追问如果失败，貌似会无限循环，所以是要加入do exit的吧追答输入的名字密码正确，就退出循环了。
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯