Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для Creat0R

Must AutoIt


Сообщения: 3054
Благодарности: 1009

Профиль | Сайт | Отправить PM | Цитировать


Цитата Iska:
приведите Ваш код, как Вы пробовали »
Примерно так:

Код: Выделить весь код
$sBat = _
    '@echo off' & @CRLF & _
    'chcp 1251 > nul' & @CRLF & _
    'dir /b "' & @DesktopDir & '\*.txt"'

$hFile = FileOpen("test_dir.bat", 2)
FileWrite($hFile, $sBat)
FileClose($hFile)

$sSdOutRead = ""
$iPid = Run(@DesktopDir & '\test_dir.bat', @DesktopDir, @SW_HIDE, 2)

While 1
    $sSdOutRead &= StdoutRead($iPid)
    If @error <> 0 Then ExitLoop
WEnd

ConsoleWrite($sSdOutRead & @CRLF)
Но я ошибся немного, при тестах с выводом в файл я забыл убрать флаг указывающий на вывод в поток - Так работает:

Код: Выделить весь код
#include <Array.au3>

$aReturn = _FileSearch(@DesktopDir, "*.txt")
_ArrayDisplay($aReturn)

Func _FileSearch($sPath, $sFileMask)
    Local $sBatContent, $sBatFile, $sTmpFile, $hFile, $sRet, $aRet

    $sBatFile = @TempDir & "\~FileSearch.bat"
    $sTmpFile = @TempDir & "\~FileSearch.tmp"

    $sBatContent = _
        '@ECHO OFF' & @CRLF & _
        'CHCP 1251 > Nul' & @CRLF & _
        'Dir "' & $sPath & '\' & $sFileMask & '" /S /B /A RASH>"%Temp%\~FileSearch.tmp'

    $hFile = FileOpen($sBatFile, 2)
    FileWrite($hFile, $sBatContent)
    FileClose($hFile)

    RunWait($sBatFile, @TempDir, @SW_HIDE)
    $sRet = FileRead($sTmpFile)

    FileDelete($sBatFile)
    FileDelete($sTmpFile)

    $aRet = StringSplit(StringStripCR(StringStripWS($sRet, 3)), @LF)
    Return SetError(@error, 0, $aRet)
EndFunc

-------
“Сделай так просто, как возможно, но не проще этого.”... “Ты никогда не решишь проблему, если будешь думать так же, как те, кто её создал.”

Альберт Эйнштейн

P.S «Не оказываю техподдержку через ПМ/ICQ, и по email - для этого есть форум. ©»

http://creator-lab.ucoz.ru/Images/Icons/autoit_icon.png Русское сообщество AutoIt | http://creator-lab.ucoz.ru/Images/Ic...eator_icon.png CreatoR's Lab | http://creator-lab.ucoz.ru/Images/Icons/oac_icon.png Opera AC Community

Это сообщение посчитали полезным следующие участники:

Отправлено: 23:55, 04-02-2010 | #35