Имя пользователя:
Пароль:
 

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

Аватара для angel_lyucifer

Старожил


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

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


Цитата megaloman:
Имя файла можно прописывать явным образом в скрипте, либо указывать в аргументе скрипта в кавычках при вызове, либо создать, например, на рабочем столе значок на этот скрипт и в проводнике затягивать на него мышкой обрабатываемый файл »
Скрипт запускается, но ничего не происходит.
А расширение вашего скрипта 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

-------
Век живи, век учись! =)


Отправлено: 00:48, 13-05-2019 | #4