.版本 2
.局部变量 temp, 文本型
.局部变量 数组, 文本型, , "0"
.局部变量 n1, 整数型
.局部变量 ss, 文本型
temp ＝ 到文本 (读入文件 (“D:\账号.txt”))
数组 ＝ 分割文本 (temp, #换行符, )
.计次循环首 (取数组成员数 (数组), n1)
信息框 (数组 [n1], 0,
.计次循环尾 ()
'这个循环只能读取每一行的内容,而不能把每一行中以逗号分隔的帐号和密码读出来
账号格式应该是这样的,一行一个,账号密码以逗号分隔:
qwe,123
asd,456
qwe,555
.版本 2
.局部变量 temp, 文本型
.局部变量 数组, 文本型, , "0"
.局部变量 n1, 整数型
.局部变量 ss, 文本型
.局部变量 文件号, 整数型
文件号 ＝ 打开文件 (“D:\账号.txt”, , )
.循环判断首 ()
temp ＝ 读入一行 (文件号)
数组 ＝ 分割文本 (temp, “,”, 2)
信息框 (数组 [1], 0, )
信息框 (数组 [2], 0, )
.循环判断尾 (取反 (是否在文件尾 (文件号, )))
.局部变量 temp, 文本型
.局部变量 数组, 文本型, , "0"
.局部变量 n1, 整数型
.局部变量 ss, 文本型
.局部变量 文件号, 整数型
文件号 ＝ 打开文件 (“D:\账号.txt”, , )
.循环判断首 ()
temp ＝ 读入一行 (文件号)
数组 ＝ 分割文本 (temp, “,”, 2)
信息框 (数组 [1], 0, )
信息框 (数组 [2], 0, )
.循环判断尾 (取反 (是否在文件尾 (文件号, )))
温馨提示：答案为网友推荐，仅供参考
第1个回答 2013-03-16
.版本 2
.子程序 _按钮1_被单击
.局部变量 temp, 文本型
.局部变量 数组, 文本型, , "0"
.局部变量 n1, 整数型
.局部变量 ss, 文本型
temp ＝ 到文本 (读入文件 (“C:\Documents and Settings\Administrator\桌面\账号.txt”))
数组 ＝ 分割文本 (temp, “ ”, ) '此处双引号有空格
.计次循环首 (取数组成员数 (数组), n1)
' 信息框 (数组 [n1] ＋ #换行符, 0, )
编辑框1.加入文本 (数组 [n1] ＋ #换行符)
.计次循环尾 ()
复制可用
.子程序 _按钮1_被单击
.局部变量 temp, 文本型
.局部变量 数组, 文本型, , "0"
.局部变量 n1, 整数型
.局部变量 ss, 文本型
temp ＝ 到文本 (读入文件 (“C:\Documents and Settings\Administrator\桌面\账号.txt”))
数组 ＝ 分割文本 (temp, “ ”, ) '此处双引号有空格
.计次循环首 (取数组成员数 (数组), n1)
' 信息框 (数组 [n1] ＋ #换行符, 0, )
编辑框1.加入文本 (数组 [n1] ＋ #换行符)
.计次循环尾 ()
复制可用
第2个回答 2013-03-16
你想读取全部的用户名还是全部的密码
