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

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

本帖最后由 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

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

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

我也不知道为什么我有这么多钱

用户名		自动登录	找回密码
密码			加入

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

相关帖子