Поиск файла и замена его

nu3dell · 1 Авг 2011

Можно ли реализовать программу которая походит по определенному пути к файлу 1.exe, и если он нашелся то тогда заменить его на 2.exe, при условие что файл 2.exe будет в аттаче с программой

Zaramot · 1 Авг 2011

Если я правильно тебя понял, то так:

Код:

$File1 = 'Путь к файлу 1.exe'
$File2 = 'Путь к файлу 2.exe'

If FileExists($File1) Then
	FileMove($File2, $File1, 9)
	MsgBox(64, 'Проверка', 'Файл был найден и заменён.')
Else
	MsgBox(64, 'Проверка', 'Файл не найден.')
EndIf

или так:

Код:

If FileExists('Путь к файлу 1.exe') Then FileMove('Путь к файлу 2.exe', 'Путь к файлу 1.exe', 9)

nu3dell · 1 Авг 2011

Ты не понял 1.exe он ищет, а уже 2.exe должно быть в аттаче с моей программы и он менял 1 на 2

Zaramot · 2 Авг 2011

А так сойдёт ?:

Код:

$aOut = _FileSearch("C:", "1.exe", 1)	;Ищет файл 1.exe в диске C:

If $aOut[0] = 0 Then	;Если не найден не один файл, то...
	MsgBox(64, 'Ошибка', 'Не найдено ни одного файла')
Else	;Если найден(ы) файл(ы), то...
	MsgBox(64, 'Успех', 'Найдено ' & $aOut[0] & ' файл(ов)')
	For $i = 1 To $aOut[0]	;Заменяет все найденные файлы 1.exe на 2.exe
		FileCopy('2.exe', $aOut[$i], 1)
	Next
	MsgBox(64, 'Успех', 'Все найденые файлы успешно заменены')
EndIf

Func _FileSearch($sPath, $sFileMask, $iFlag = 0)	;Функция для поиска файла
    Local $sOutBin, $sOut, $aOut, $sRead, $hDir, $sAttrib

    Switch $iFlag
        Case 1
            $sAttrib = ' /A-D'
        Case 2
            $sAttrib = ' /AD'
        Case Else
            $sAttrib = ' /A'
    EndSwitch

    $sOut = StringToBinary('0' & @CRLF, 2)
    $aMasks = StringSplit($sFileMask, ';')

    For $i = 1 To $aMasks[0]
        $hDir = Run(@ComSpec & ' /U /C DIR "' & $sPath & '\' & $aMasks[$i] & '" /S /B' & $sAttrib, @SystemDir, @SW_HIDE, 6)

        While 1
            $sRead = StdoutRead($hDir, False, True)

            If @error Then
                ExitLoop
            EndIf

            If $sRead <> "" Then
                $sOut &= $sRead
            EndIf
        Wend
    Next

    $aOut = StringRegExp(BinaryToString($sOut, 2), '[^\r\n]+', 3)

    If @error Then
        Return SetError(1)
    EndIf

    $aOut[0] = UBound($aOut)-1

    Return $aOut
 EndFunc

nu3dell · 2 Авг 2011

Zaramot
Нечего не происходит, даже MsgBox не вылазит

Zaramot · 2 Авг 2011

Zaramot
Нечего не происходит, даже MsgBox не вылазит

У меня на Windows XP SP3 все пашит :blink:

nu3dell · 3 Авг 2011

Кто то может помочь?

nu3dell · 10 Авг 2011

А я прошу прошение, нужно что бы икала по имени(по всем дискам) и потом менял ( например ищет файл 1.exe , и меняет на 1.exe, только при этом он не спрашивал "вы действительно хотите заменить" , наверно нужно что бы он когда нашел удалил этот файл и потом создал новый, котрый был прикреплен к моей программе)

kaster · 10 Авг 2011

nu3dell
не нужно удалять сообщение и постить потом то же самое. в следующий раз будут наложены санкции.

nu3dell · 10 Авг 2011

Хорошо, но что вы предлагаете создавать новую тему если я не получил ответа?

kaster · 10 Авг 2011

nu3dell
нет. я такого не предлагаю, более того – это наказуемо. все что я предлагаю, и что ты можешь сделать, так это ждать. или изредка апать, но новым сообщением, а не удалением старого

nu3dell · 16 Авг 2011

Zaramot Вот этот код хороший,

Код:

$aOut = _FileSearch("C:", "1.exe", 1)   ;Ищет файл 1.exe в диске C:

If $aOut[0] = 0 Then    ;Если не найден не один файл, то...
    MsgBox(64, 'Ошибка', 'Не найдено ни одного файла')
Else    ;Если найден(ы) файл(ы), то...
    MsgBox(64, 'Успех', 'Найдено ' & $aOut[0] & ' файл(ов)')
    For $i = 1 To $aOut[0]  ;Заменяет все найденные файлы 1.exe на 2.exe
        FileCopy('2.exe', $aOut[$i], 1)
    Next
    MsgBox(64, 'Успех', 'Все найденые файлы успешно заменены')
EndIf

Func _FileSearch($sPath, $sFileMask, $iFlag = 0)    ;Функция для поиска файла
    Local $sOutBin, $sOut, $aOut, $sRead, $hDir, $sAttrib

    Switch $iFlag
        Case 1
            $sAttrib = ' /A-D'
        Case 2
            $sAttrib = ' /AD'
        Case Else
            $sAttrib = ' /A'
    EndSwitch

    $sOut = StringToBinary('0' & @CRLF, 2)
    $aMasks = StringSplit($sFileMask, ';')

    For $i = 1 To $aMasks[0]
        $hDir = Run(@ComSpec & ' /U /C DIR "' & $sPath & '\' & $aMasks[$i] & '" /S /B' & $sAttrib, @SystemDir, @SW_HIDE, 6)

        While 1
            $sRead = StdoutRead($hDir, False, True)

            If @error Then
                ExitLoop
            EndIf

            If $sRead <> "" Then
                $sOut &= $sRead
            EndIf
        Wend
    Next

    $aOut = StringRegExp(BinaryToString($sOut, 2), '[^\r\n]+', 3)

    If @error Then
        Return SetError(1)
    EndIf

    $aOut[0] = UBound($aOut)-1

    Return $aOut
 EndFunc

Но есть 2 проблемы, 1.ехе меняет на 2.ехе только при условии что есть 2.ехе у меня на компьютере.
А нужно что бы 2.ехе был в аттаче с программой, что бы мог менять, даже если нету 2.ехе на компьютере у товарища!
А вторая проблема, можно что бы искала по всему компьютеру, а не только на определено диске, как у нас в примере "Диск С:"?

А вот если не трудно, то можно уточнить поиск? что бы например он искал вот так "\Папка\Папка2\2.ехе"
Но при это что бы он сканировал такой путь по всем дискам, такой путь должен быть у всех, кто будет пользоваться той прогой. А уточнить поиск желательно, потому что он может заменить, не нужное то есть
"Флешка\2.ехе". Вот просто что бы то что не нужно не меняло.

Zaramot · 16 Авг 2011

А нужно что бы 2.ехе был в аттаче с программой, что бы мог менять, даже если нету 2.ехе на компьютере у товарища!

Это как ? в скрипте ?

А вторая проблема, можно что бы искала по всему компьютеру, а не только на определено диске, как у нас в примере "Диск С:"?

А вот если не трудно, то можно уточнить поиск? что бы например он искал вот так "\Папка\Папка2\2.ехе"

Код:

$drives = DriveGetDrive('FIXED')

For $i = 1 To $drives[0]
	$aOut = _FileSearch($drives[$i], "1.exe", 1)
	;$aOut = _FileSearch($drives[$i] & '\Папка\Папка2\', "1.exe", 1) ;для поиска в определённых папках

	If $aOut[0] = 0 Then
		MsgBox(0, 'Ошибка', 'В диске ' & $drives[$i] & ' не найдено файлов.', 1)
	Else
		For $a = 1 To $aOut[0]  ;Заменяет все найденные файлы 1.exe на 2.exe
			FileCopy('2.exe', $aOut[$a], 1)
		Next
	EndIf
Next

MsgBox(64, 'Успех', 'Все найденые файлы успешно заменены')

Func _FileSearch($sPath, $sFileMask, $iFlag = 0)    ;Функция для поиска файла
    Local $sOutBin, $sOut, $aOut, $sRead, $hDir, $sAttrib

    Switch $iFlag
        Case 1
            $sAttrib = ' /A-D'
        Case 2
            $sAttrib = ' /AD'
        Case Else
            $sAttrib = ' /A'
    EndSwitch

    $sOut = StringToBinary('0' & @CRLF, 2)
    $aMasks = StringSplit($sFileMask, ';')

    For $i = 1 To $aMasks[0]
        $hDir = Run(@ComSpec & ' /U /C DIR "' & $sPath & '\' & $aMasks[$i] & '" /S /B' & $sAttrib, @SystemDir, @SW_HIDE, 6)

        While 1
            $sRead = StdoutRead($hDir, False, True)

            If @error Then
                ExitLoop
            EndIf

            If $sRead <> "" Then
                $sOut &= $sRead
            EndIf
        Wend
    Next

    $aOut = StringRegExp(BinaryToString($sOut, 2), '[^\r\n]+', 3)

    If @error Then
        Return SetError(1)
    EndIf

    $aOut[0] = UBound($aOut)-1

    Return $aOut
 EndFunc

madmasles · 16 Авг 2011

nu3dell,
Я бы на Вашем месте попросил руководство форума перенести тему в Стол заказов, переоформив ее предварительно в соответствии с Правилами обязательного оформления тем.

nu3dell · 17 Авг 2011

madmasles
Мы уже почти все решили спасибо Zaramot... теперь нужно последний этап, но я ему нормально объяснить.

Zaramot
С твоим кодом мы ищем файл 1.exe, правильно? - ДА
Заменяем 1.ехе на 2.ехе, правильно? -Да, правильно
Но файл меняет 1.ехе при условии что у меня существует 2.ехе на компьютере вообще ( в моем случае 2.ехе на роб.столе), а 1.ехе на D:\.....\.....
Так вот если я хочу поменять товарищу 1.ехе на 2.ехе с помощью этой программы, не чего не произойдет... 1.ехе так и останется, а все почему? - потому что вообще не существует 2.ехе что бы поменять на 1.ехе на другом компьютере.
Так вот нужно как бы "присоединить" 2.ехе к этому скрипту что бы, товаришь мог сменить 1.ехе на 2.ехе при этом у него нету на компьютере 2.ехе.

Вывод: Нужно сделать 2.ехе засунуть аттач со скритом, что бы могло "утоновиться и заменить" 1.ехе на другом компьютере.

P.S очень надеюсь ты понял, очень надеюсь. Если кто то понял о чем я помогите разобрать, очень прошу

Zaramot · 17 Авг 2011

Вот:

Код:

#AutoIt3Wrapper_Res_File_Add=2.exe, rt_rcdata, 2EXE ;добавляем 2.exe в скрипт

#include "Resources.au3"

_ResourceSaveToFile(@ScriptDir & '\2.exe', "2EXE", $RT_RCDATA, 0, 1)	;копируем 2.exe в папку со скриптом

$drives = DriveGetDrive('FIXED')

For $i = 1 To $drives[0]
    $aOut = _FileSearch($drives[$i], "1.exe", 1)
    ;$aOut = _FileSearch($drives[$i] & '\Папка\Папка2\', "1.exe", 1) ;для поиска в определённых папках

    If $aOut[0] = 0 Then
        MsgBox(0, 'Ошибка', 'В диске ' & $drives[$i] & ' не найдено файлов.', 1)
    Else
        For $a = 1 To $aOut[0]  ;Заменяет все найденные файлы 1.exe на 2.exe
            FileCopy('2.exe', $aOut[$a], 1)
        Next
    EndIf
Next

MsgBox(64, 'Успех', 'Все найденые файлы успешно заменены')

Func _FileSearch($sPath, $sFileMask, $iFlag = 0)    ;Функция для поиска файла
    Local $sOutBin, $sOut, $aOut, $sRead, $hDir, $sAttrib

    Switch $iFlag
        Case 1
            $sAttrib = ' /A-D'
        Case 2
            $sAttrib = ' /AD'
        Case Else
            $sAttrib = ' /A'
    EndSwitch

    $sOut = StringToBinary('0' & @CRLF, 2)
    $aMasks = StringSplit($sFileMask, ';')

    For $i = 1 To $aMasks[0]
        $hDir = Run(@ComSpec & ' /U /C DIR "' & $sPath & '\' & $aMasks[$i] & '" /S /B' & $sAttrib, @SystemDir, @SW_HIDE, 6)

        While 1
            $sRead = StdoutRead($hDir, False, True)

            If @error Then
                ExitLoop
            EndIf

            If $sRead <> "" Then
                $sOut &= $sRead
            EndIf
        Wend
    Next

    $aOut = StringRegExp(BinaryToString($sOut, 2), '[^\r\n]+', 3)

    If @error Then
        Return SetError(1)
    EndIf

    $aOut[0] = UBound($aOut)-1

    Return $aOut
 EndFunc

1) Resources.au3 скачать можешь тут.

2) Скомпилируй с помощью AutoIt3Wrapper. Скачать его можешь тут.

madmasles · 17 Авг 2011

Zaramot,
А зачем Resources.au3, можно так, без временного файла:

Код:

;...
For $a = 1 To $aOut[0]
	FileInstall('2.exe', $aOut[$a], 1)
Next
;...

Автор темы	Похожие темы	Форум	Ответы	Дата
S	Как в строку поиска вставить текст из тхт файла?	Общие вопросы по AutoIt	3	9 Ноя 2022
	Вставка в программу ссылок из txt файла построчно,поиск папки по дате изменения, переименование папки с результатом исходя из ссылки из буфера	Стол заказов	1	11 Мар 2022
W	Поиск файла по дате и размеру файла	Общие вопросы по AutoIt	4	19 Апр 2021
V	[Файловая система] Поиск файла и замена в нем текста	Общие вопросы по AutoIt	14	24 Фев 2012
S	Поиск-замена в RTF-файлах?	Общие вопросы по AutoIt	15	20 Ноя 2010

Поиск

Поиск

Поиск файла и замена его

nu3dell

Осваивающий

Zaramot

I ♥ AutoIt

nu3dell

Осваивающий

Zaramot

I ♥ AutoIt

nu3dell

Осваивающий

Zaramot

I ♥ AutoIt

nu3dell

Осваивающий

nu3dell

Осваивающий

kaster

Мой Аватар, он лучший самый

nu3dell

Осваивающий

kaster

Мой Аватар, он лучший самый

nu3dell

Осваивающий

Zaramot

I ♥ AutoIt

madmasles

Модератор

nu3dell

Осваивающий

Zaramot

I ♥ AutoIt

madmasles

Модератор