那片叶子 发表于 2009-9-14 14:50:17

读取帐号列表问题！

本帖最后由 那片叶子 于 2009-9-14 16:57 编辑



以这张图为示！
读取帐号列.ini内的帐号！

帐号为1行1行的读，在输入框内输入一个帐号，和帐号列表.ini内一样则继续，如ini里没有那帐号就退出！
请各位大大指点迷津！

afan 发表于 2009-9-14 15:20:18

#Include <File.au3>
Dim $a, $inp = '读取输入框字符'
_FileReadToArray('帐号列表.ini', $a)
For $i = 1 to $a
   If $a[$i] = $inp Then msgbox(0,0,0)
Next

那片叶子 发表于 2009-9-14 15:33:50

:face (8): 又是AFAN帮我解决！ 谢谢！救星啊！！！

请教下，
比如 http:\\www.***.com\12345.ini

如何获取那文件名 12345

afan 发表于 2009-9-14 15:38:18

$a = 'http:\\www.***.com\12345.ini'
$a = stringregexp($a, '\\([^\\]+).ini', 3)
msgbox(0,0, '获取到的文件名：' & $a)

那片叶子 发表于 2009-9-14 15:42:12

:face (17): 这么快？看来我和你有缘啊！ 嘿嘿！

afan 发表于 2009-9-14 15:42:46

可惜你是叶子不是花，呵呵

那片叶子 发表于 2009-9-14 15:44:11

:face (29): 想采花？

afan 发表于 2009-9-14 15:44:43

采花大盗是也...

那片叶子 发表于 2009-9-14 15:47:10

:face (22):

我就多个问题好了！（趁你在！）

比如我在输入框输入 560而http://www.***.com/ $D .ini
$D 不是560则退出，如果是则继续！

afan 发表于 2009-9-14 15:51:22

Dim $inp = '读取输入框字符', $a = 'http:\\www.***.com\12345.ini'
$D = stringregexp($a, '\\([^\\]+).ini', 3)
If $inp <> $D then Exit
;以下代码继续

那片叶子 发表于 2009-9-14 15:53:31

:face (35): 得此 贤者 指导 ，勿半途而废啊！埋头去！
页: [1]
查看完整版本: 读取帐号列表问题！