[megaloman]

Имя файла можно прописывать явным образом в скрипте, либо указывать в аргументе скрипта в кавычках при вызове, либо создать, например, на рабочем столе значок на этот скрипт и в проводнике затягивать на него мышкой обрабатываемый файл

Код:

FileIn = "Z:\Box_In\Исходный файл.txt"
S1 = "download:""https:"
S2 = ".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
    
    Mas = Split(InTxt, vbCrLf)
    With .CreateTextFile(FileIn, True)
        For Each iMas In Mas
            If Not (InStr(1, iMas, S1) = 1 And (InStrRev(iMas, S2) + Len(S2) - 1) = Len(iMas)) Then
                .WriteLine iMas
            End If
        Next
        .Close
    End With
End With

[Busla]

Код:

findstr /V /R "^download:\"https.*mp4\",$" text.txt

[angel_lyucifer]

Имя файла можно прописывать явным образом в скрипте, либо указывать в аргументе скрипта в кавычках при вызове, либо создать, например, на рабочем столе значок на этот скрипт и в проводнике затягивать на него мышкой обрабатываемый файл »

Скрипт запускается, но ничего не происходит.
А расширение вашего скрипта vbs?

Код:

FileIn = "Z:\Box_In\Исходный файл.txt"
S1 = "download:""https:"
S2 = ".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
    
    Mas = Split(InTxt, vbCrLf)
    With .CreateTextFile(FileIn, True)
        For Each iMas In Mas
            If Not (InStr(1, iMas, S1) = 1 And (InStrRev(iMas, S2) + Len(S2) - 1) = Len(iMas)) Then
                .WriteLine iMas
            End If
        Next
        .Close
    End With
End With

[megaloman]

angel_lyucifer, расширение vbs, заархивируйте и дайте образец Вашего файла, так можно сто лет гадать, в чем дело.

[angel_lyucifer]

заархивируйте и дайте образец Вашего файла, так можно сто лет гадать, в чем дело. »

Ок, вот.

[YuS_2]

Ок, вот. »

в этом файле всего одна строка, поэтому никаких строк:

найти все строки которые начинаются с "download:"https:" и заканчиваются на ".mp4"," »

найдено не будет, т.к. они попросту не существуют в таком виде.

[angel_lyucifer]

найдено не будет, т.к. они попросту не существуют в таком виде. »

Я вас понял, но всё же необходимо удалить все эти фрагменты в строке...

[Iska]

необходимо удалить все эти фрагменты в строке... »

Так это совсем другое дело, нежели озвученное ранее:

Необходимо найти все строки которые начинаются с "download:"https:" и заканчиваются на ".mp4"," и удалить их. »

На PowerShell:

Код:

(Get-Content -Path 'C:\Мои проекты\0261\playlist.txt') -replace "download:`"https://.*?\.mp4`", " | Set-Content -Path 'C:\Мои проекты\0261\playlist2.txt'

[angel_lyucifer]

На PowerShell: »

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