[megaloman]

А можно на языке vbs удалить все эти фрагменты

Код:

FileIn = "Z:\Box_In\playlist.txt"

RegExp = "download:""https:.*?\.mp4"", "

With WScript.Arguments
    If .Count <> 0 Then FileIn = .Item(0)
End With

With CreateObject("Scripting.FileSystemObject")
    On Error Resume Next
    With .OpenTextFile(FileIn, 1)
        If Err.Number <> 0 Then
            MsgBox "Error open file " + vbCrLf + vbCrLf + FileIn + vbCrLf + vbCrLf + "Код ошибки " + CStr(Err.Number) + vbCrLf + Err.Description
            WScript.Quit 1
        End If
        InTxt = .ReadAll
        If Err.Number <> 0 Then
            MsgBox "Error read file " + vbCrLf + vbCrLf + FileIn + vbCrLf + vbCrLf + "Код ошибки " + CStr(Err.Number) + vbCrLf + Err.Description
            WScript.Quit 1
        End If
        .Close
        On Error GoTo 0
    End With
            
    With CreateObject("VBScript.RegExp")
        .Pattern = RegExp
        .IgnoreCase = True
        .MultiLine = True
        .Global = True
        Result = .Replace(InTxt, "")
    End With
    
    With .CreateTextFile(FileIn, True)
        .Write Result
        .Close
    End With
    
End With
MsgBox "Done!"

[YuS_2]

А можно ли на языке vbs? »

пора переходить уже... ибо:

Век живи, век учись! »

[angel_lyucifer]

А можно на языке vbs удалить все эти фрагменты »

Спасибо вам большое....

[Iska]

megaloman, несколько замечаний по коду:

• .MultiLine в данном случае не нужен;
• .Replace() следует выполнять только после проверки совпадения шаблона по .Test();
• то же самое касается и пересоздания файла, дабы не переписывать одно и то же, т.е. и Replace(), и .CreateTextFile() должны быть внутри условия If .Test(…) Then … End If (на PowerShell, кстати, мне тоже следовало бы так делать).

[Busla]

.Replace() следует выполнять только после проверки совпадения шаблона по .Test() »

нет

на PowerShell, кстати, мне тоже следовало бы так делать »

на PowerShell не надо пытаться писать как на (Visual)Basic

[megaloman]

.Replace() следует выполнять только после проверки совпадения шаблона по .Test(); »

ИМХО, не так категорично. Однако, если помнить о том, что это

касается и пересоздания файла, дабы не переписывать одно и то же, »

то это было бы полезным.

Код:

.................
    With CreateObject("VBScript.RegExp")
        .Pattern = RegExp
        .IgnoreCase = True
        .Global = True
	If Not .Test(InTxt) Then
            MsgBox "no substrings to replace. Reg expression:" + vbCrLf + vbCrLf + """" + RegExp + """"
            WScript.Quit 1
	End If
        Result = .Replace(InTxt, "")
    End With
.................

[Iska]

нет »

Да.

на PowerShell не надо пытаться писать как на (Visual)Basic »

Как токмо PowerShell превратится из процедурного языка в какой-нибудь функциональный — так сразу и начну не пытаться писать.

ИМХО, не так категорично. »

Если для последующей обработки критичны дата/время файла, или же сам файл имеет объём, исчисляемый в сотнях мегабайт — то категорично. Лучше зараз привыкать.

[Busla]

или же сам файл имеет объём, исчисляемый в сотнях мегабайт — то категорично. »

а если гигабайт?

Лучше зараз привыкать »

не надеяться на достаточный объём памяти, а работать построчно
тогда и вопрос перезаписи снимется

Как токмо »

не кривяйтесь

PowerShell превратится из процедурного языка в какой-нибудь функциональный »

аргументируйте: каким местом PowerShell нефункциональный? и почему он процедурный?

[Iska]

а если гигабайт? »

То ещё категоричнее .

не надеяться на достаточный объём памяти, а работать построчно»

Это правильный подход.

тогда и вопрос перезаписи снимется »

Вопрос останется. Зачем переписывать много…байтный файл, в котором ничего не изменилось?

не кривяйтесь »

Видимо, «кривляйтесь». Приношу Вам свои извинения, считайте неудавшейся шуткой.

аргументируйте: каким местом PowerShell нефункциональный? и почему он процедурный? »

Хорошо, выражусь иначе: я не вижу существенных отличий в парадигме программирования между WSH и PowerShell (за исключением конвеера). А уж что будет использоваться, If .Test(…) Then … End If или If([RegEx]::IsMatch(…)) {…} — не суть важное.

[YuS_2]

не вижу существенных отличий в парадигме программирования между WSH и PowerShell (за исключением конвеера) »

я бы сказал, что powershell мультипарадигмальный язык, так как в нем явно присутствуют, как минимум, три - функциональная, процедурная и ООП