按键精灵 如何循环读取账号密码?
一个文本,里面账号密码是如下的格式12345678----1234565648256----46546595114785----546588账号和密码是同一行的,中间--...
一个文本,里面账号密码是如下的格式
12345678----123456
5648256----465465
95114785----546588
账号和密码是同一行的,中间----隔开,第一次循环时读取第一行的账号,然后再读取密码,第二次读取第二行的账号,然后再密码,如此类推。做其他动作都能自己搞定,怎么读取到这账号密码?
我自己找到个读取的,但是他只能读取整行,而且诡异的是每次都缺失每行首字母。
这个怎么写? 展开
12345678----123456
5648256----465465
95114785----546588
账号和密码是同一行的,中间----隔开,第一次循环时读取第一行的账号,然后再读取密码,第二次读取第二行的账号,然后再密码,如此类推。做其他动作都能自己搞定,怎么读取到这账号密码?
我自己找到个读取的,但是他只能读取整行,而且诡异的是每次都缺失每行首字母。
这个怎么写? 展开
2个回答
2018-08-02
展开全部
题主,你好。参考代码如下:(满意请采纳,谢谢)
使用说明:路径F:\cs.txt 修改成你的文本路径
//下面这句是向目标文件("F:\cs.txt")读出文本内容到变量(Text)
text = Plugin.File.ReadFileEx("F:\cs.txt")
hArray = Split(Text, "|")
i = 0
For UBound(hArray)
MyArray = Split(hArray(i), "----")
//下面这句是得到文本内容
Msgbox "第" & i + 1 & "行帐号:" & Cstr(MyArray(0)) & chr(13) & " 密码:" & Cstr(MyArray(1))
i = i + 1
Next
展开全部
Text = Plugin.File.ReadFileEx("C:\Documents and Settings\Administrator\桌面\账密.txt")
账密数组 = split(Text, "|")
For i = 0 To (UBound(账密数组) + 1) / 2+1 Step 2
账号 = 账密数组(i)
密码 = 账密数组(i + 1)
TracePrint 账号
TracePrint 密码
//输出
Next
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询