论坛 › 『 提问交流 』 › 关于读取rar数据流的问题

xlcwxl 发表于 2010-3-28 22:32:00

关于读取rar数据流的问题

afan 发表于 2010-3-28 22:38:20

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

xlcwxl 发表于 2010-3-28 23:12:35

本帖最后由 xlcwxl 于 2010-3-28 23:38 编辑

回复 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 发表于 2010-3-28 23:12:51

rar数据流?? 什么来着?

afan 发表于 2010-3-28 23:56:26

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

查看完整版本: 关于读取rar数据流的问题