关于读取rar数据流的问题

xlcwxl

afan

什么是rar数据流？如何读取？

xlcwxl

回复 2# afan

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

asionwu

rar数据流?? 什么来着?

afan

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