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

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

Аватара для madmasles

Ветеран


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

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


wwe,
Примерно так у меня получилось:
Код: Выделить весь код
$sFile = "MyFile.txt"

$aReturn = _FileSearch(@HomeDrive, $sFile)
If $aReturn[0] = 0 Then
    MsgBox(0, "Тест", "Файл не найден.", 5)
    Exit
EndIf
$value = InputBox("Тест", "Введите что-нибудь")
If @error = 1 Then Exit
If $value = "" Then
    MsgBox(0, "Тест", "Вы ничего не ввели")
    Exit
EndIf
$hFile = FileOpen($aReturn[1], 2)
FileWriteLine($aReturn[1], $value)
FileClose($hFile)

Func _FileSearch($sPath, $sFileMask)
    Local $sOut = StringToBinary("0" & @CRLF, 2), $aOut
    Local $hDir = Run(@ComSpec & ' /U/C DIR "' & $sPath & '\' & $sFileMask & '" /S/B/A-D', @SystemDir, @SW_HIDE, 6)

    While 1
        $sOut &= StdoutRead($hDir, False, True)
        If @error Then ExitLoop
    WEnd

    $aOut = StringRegExp(BinaryToString($sOut, 2), "[^\r\n]+", 3)
    If @error Then Return SetError(1)

    $aOut[0] = UBound($aOut) - 1
    Return $aOut
EndFunc   ;==>_FileSearch

Последний раз редактировалось madmasles, 26-02-2010 в 18:46.


Отправлено: 20:33, 20-02-2010 | #3