function 读账号信息(文件名)
变量 b,内容,列表框内容,列表框数量,添加=真,文件名="账号密码"
b = 文件获取行数("d:/"&文件名&".txt")
traceprint(b)
if(b>0)
for(var i = 0; i < b; i++)
字符串分割(文件读指定行("d:/"&文件名&".txt",i),",",内容)
if(数组大小(内容)==4)
列表框数量=列表框获取选项个数("列表框0")
traceprint(列表框数量)
if(列表框数量==0)
列表框增加文本("列表框0",文件读指定行("d:/"&文件名&".txt",i))
traceprint(文件读指定行("d:/"&文件名&".txt",i))
else
for(var di = 0; di < 列表框数量; di++)
traceprint("列表框获取文本"&列表框获取文本("列表框0",di))
traceprint("文件读指定行"&文件读指定行("d:/"&文件名&".txt",i))
if(列表框获取文本("列表框0",di)==文件读指定行("d:/"&文件名&".txt",i))
文件删指定行("d:/"&文件名&".txt",i)
添加=假
end
end
如果(添加)
列表框增加文本("列表框0",文件读指定行("d:/"&文件名&".txt",i))
结束
end