smtqy520 发表于 2012-11-14 17:16:37

【已解决】如何能随机选择TXT内的EXE文件启动，请大侠们帮帮忙

本帖最后由 smtqy520 于 2012-11-19 18:53 编辑

在TXT内我写了几个程序名或者绝对路径的程序，如何能随机启动呢，请高手们帮帮忙，谢谢你了，

afan 发表于 2012-11-14 18:15:25

一行一个路径Local $sTxt = FileRead('test.txt')
Local $aFile = StringRegExp($sTxt, '(?m)\h*(\V+\S)\h*', 3)
If @Error Then Exit
Local $n = Random(0, UBound($aFile) - 1, 1)
If Not FileExists($aFile[$n]) Then Exit MsgBox(48, '提醒', '"' & $aFile[$n] & '" 文件不存在')
ShellExecute($aFile[$n])

netegg 发表于 2012-11-14 20:33:20

咦，怪异，楼主的银子是怎么跑出来的？

afan 发表于 2012-11-14 20:59:09

咦，怪异，楼主的银子是怎么跑出来的？
netegg 发表于 2012-11-14 20:33 http://www.autoitx.com/images/common/back.gif


    注册老早了…… 估计那会注册就有银子，逢年过节也有~ 你应该清楚吧，比他还早

netegg 发表于 2012-11-14 21:30:36

回复 4# afan
印象里没送过几次呀

骗子 发表于 2012-11-14 22:09:34

送过1此800还是888来的

smtqy520 发表于 2012-11-19 18:53:39

谢谢你，，，

smtqy520 发表于 2012-11-19 18:56:05

我也不知道为什么我有这么多钱
页: [1]
查看完整版本: 【已解决】如何能随机选择TXT内的EXE文件启动，请大侠们帮帮忙