回复 2楼xiaochen_qin的帖子Function reasyzh(文本路径, 分割字符)
//功能:读取账号密码
//参数1:字符串型,账号文本路径
//参数2:字符串型,二维数组,第一微表示序号,第二维表示密码,数组值是账号或者密码
Dim txt, txtarr, i, zharr
txt = Plugin.File.ReadFileEx(文本路径)
txtarr = Split(txt, "|")
Redim 动态二维数组((UBound(txtarr) - 1), 1)
For i = 0 To UBound(txtarr) - 1
zharr = Split(txtarr(i), 分割字符)
动态二维数组(i, 0) = zharr(0)
动态二维数组(i, 1) = zharr(1)
Next
reasyzh = 动态二维数组
Erase 动态二维数组
End Function