Модераторы: Avada, CaptainFlint, Nik, d-view, Моторокер
Ну это разве что для вас бинарность не показатель и вы редактируете такие файлы в Блокноте, а для всех остальных - это означает шестнадцатеричное редактирование со всеми вытекающими.Бинарность файла не указывает на то, в каком формате нужно обрабатывать файл.
Это что ещё за глупость? Ах, да, сейчас уже начинаю припоминать причину подобных "выводов"...Jonmey писал(а):и вы редактируете такие файлы в Блокноте
Только за остальных говорить не надо, а уж тем более за всех, подавляющая масса которых даже представления об этом не имеет.Jonmey писал(а):а для всех остальных - это означает шестнадцатеричное редактирование со всеми вытекающими
Пустые разговоры - это утверждение того, что не соответствует действительности, что можно наблюдать в предыдущих ваших постах. Я предложил средство автоматизации, которое основную часть указанных потребностей решает. Если никто тут ничем помочь не сможет, то лучше на данный момент не найти решения, в котором помимо D&D выделенных файлов, взятых откуда угодно и в любом кол-ве, есть возможность задать уйму условий для обработки в один проход, чего в батнике реализовать будет почти невозможно (в AutoIt разве только). И вместо того, чтобы дерзить, лучше бы спасибо сказали...Jonmey писал(а):Если у вас нет конкретного решения соответствующего заданным выше условиям, то вы меня очень обяжете, если воздержитесь далее от пустых разговоров на эту тему.
Без масок нельзя?Jonmey писал(а):(где ?? - любой байт)Код: Выделить всё
D1 F2 F0 EE EA E0 5F 31 5F EA EE F2 EE F0 F3 FE 5F E8 F9 E5 EC ?? ?? ?? ?? ??
Код: Выделить всё
Марш в личку![/mod]
"(\xD1\xF2\xF0\xEE\xEA\xE0\x5F\x31\x5F\xEA\xEE\xF2\xEE\xF0\xF3\xFE\x5F\xE8\xF9\xE5\xEC).{5}" "$1\xD1\xF2\xF0\xEE\xEA" %LКод: Выделить всё
<META HTTP-EQUIV="Refresh" CONTENT="0; URL=prise.zip">Код: Выделить всё
Flo-001-HawaiianBeauty.wmv
Flo-002-WetTshirt.wmv
Flo-003-Interview.wmvЕсть полно других многопроходных программ и скрипт, ссылку на который я приводил во втором посте, но суть не в этом. Тут и вправду отдельный скрипт нужен. Вроде несложно. Посмотрим как со временем.shveicar писал(а):программы типа text pipe - могут менять только одну ссылку в одном файле и к сожалению не всегда корректно.
Код: Выделить всё
'================================================================================
' Замена текста в файлах с помощью шаблонов.
' Шаблоны:
' %Name% - имя файла с расширением;
' %FromFileArr% - значение из соответствующей строки файла {файл со значениями замены}.
'
' Параметры:
' {текст для поиска} {текст для замены с шаблонами} {режим кавычек} {файл-список} [{файл со значениями замены}]
' где {режим кавычек}:
' 0 - без учёта (по умолчанию),
' 1 - считать одинарные кавычки в тексте для поиска\замены двойными
'================================================================================
Option Explicit
Dim FSO, WSH, F, FF, Mode, Str1, Str2, Errors, i, FZ, ArrZ
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WSH = CreateObject("WScript.Shell")
Set Errors = CreateObject("Scripting.Dictionary")
With WScript
Str1 = .Arguments(0)
Str2 = .Arguments(1)
Mode = .Arguments(2)
FF = .Arguments(3)
If .Arguments.Count > 4 Then FZ = .Arguments(4)
End With
If InStr(1, Str2, "%FromFileArr%", 1) > 0 Then
ArrZ = Split(FSO.OpenTextFile(FZ, 1).ReadAll, vbNewLine, -1, 1)
End If
If Mode = 1 Then
Str1 = Replace(Str1, "'", """")
Str2 = Replace(Str2, "'", """")
End If
i = 0
On Error Resume Next
With FSO.OpenTextFile(FF, 1)
Do While Not .AtEndOfStream
i = i + 1
F = Trim(.ReadLine)
If F <> "" Then
F = FSO.GetAbsolutePathName(WSH.ExpandEnvironmentStrings(F))
If FSO.FileExists(F) Then
ReplaceInFile F, Str1, Str2, i
If Err.Number > 0 Then
Errors.Add F, Err.Description
Err.Clear
End If
End If
End If
Loop
.Close
End With
On Error GoTo 0
If Errors.Count > 0 Then MsgBox JoinErr(Errors), 0, "Замена текста в файлах с помощью шаблонов"
Set Errors = Nothing
Set WSH = Nothing
Set FSO = Nothing
WScript.Quit 0
Sub ReplaceInFile(pPath, pStr1, pStr2, pLevel)
Dim lText
If FSO.GetFile(pPath).Size > 0 Then
lText = FSO.OpenTextFile(pPath, 1, False, 0).ReadAll
If InStr(lText, pStr1) > 0 Then
lText = Replace(lText, pStr1, TemplReplace(pPath, pStr2, pLevel))
FSO.OpenTextFile(pPath, 2).Write lText
End If
End If
End Sub
Function JoinErr(pDic)
Dim lKey
For Each lKey In pDic
JoinErr = JoinErr & vbNewLine & _
"Файл """ & lKey & """ - " & pDic(lKey)
Next
JoinErr = "Для следующих файлов операция завершена с ошибками:" & vbNewLine & JoinErr
End Function
'Функция замены с помощью шаблонов
Function TemplReplace(pPath, pText, pLevel)
Dim lText, lRepl
lText = pText
lText = Replace(lText, "%Name%", FSO.GetFile(pPath).Name)
If IsArray(ArrZ) Then
If UBound(ArrZ) < (pLevel - 1) Then
lRepl = ""
Else
lRepl = ArrZ(pLevel - 1)
End If
lText = Replace(lText, "%FromFileArr%", lRepl)
End If
TemplReplace = lText
End Function
Из-за проблем передачи параметров, содержащих кавычки, пришлось ввести параметр {режим кавычек}.TOTALCMD#BAR#DATA
%COMMANDER_PATH%\Utils\WHS\TemplReplace.vbs
"<META HTTP-EQUIV='Refresh' CONTENT='0; URL=prise.zip'>" "<META HTTP-EQUIV='Refresh' CONTENT='0; URL=%%FromFileArr%%'>" 1 %L filelist.txt
shell32.dll,1
Массовая замена
-1
Так я проверял с разными путями результат одинаковый-(ничего не происходит)Надо либо указывать в параметрах полный путь к filelist.txt либо класть его в одну папку со скриптом.
Код: Выделить всё
<HTML><HEAD><META HTTP-EQUIV="Refresh" CONTENT="0; URL=prise.zip"><TITLE>302 File moved</TITLE></HEAD></HTML>Изначально я понял задачу не так, как сейчас описывается процедура проверки.shveicar писал(а):Пытаюсь проверить - жму кнопку скрипта ничего не происходит.
Мои действия - выделяю группу -html файлов вида 1.html , 2.html и тд
список с именами замен filelist.txt находится в той же папке что и сам скрипт