您需要 登录 才可以下载或查看,没有账号?加入
举报
Func findfile() $readfiel =GUICtrlRead($Combo1) $foo = Run(@ComSpec & " /c rar vb "&$readfiel&"", @ScriptDir, @SW_HIDE, $STDOUT_CHILD) $lines = "" While 1 $line = StdoutRead($foo) If @error Then ExitLoop $lines &= $line Wend MsgBox(0,"test",$lines) EndFunc
Func findfile() $readfiel =GUICtrlRead($Combo1) $foo = Run(@ComSpec & ' /c rar vb "' & $readfiel & '"', @ScriptDir, 0, 2) $lines = "" While 1 Sleep(1) $line = StdoutRead($foo) If @error Then ExitLoop $lines &= $line WEnd $lines = StringRegExpReplace(String($lines), '\s+$', '') $lines = StringRegExpReplace($lines, '\r\n', '\|') MsgBox(0, "test", $lines) EndFunc ;==>findfile
本版积分规则 发表回复 回帖后跳转到最后一页
|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度
GMT+8, 2025-2-27 04:55 , Processed in 0.158078 second(s), 24 queries .
Powered by Discuz! X3.5 Licensed
© 2001-2024 Discuz! Team.