[v79italya]

megaloman, спасибо большое

[v79italya]

вызвать скрипт из командной строки, указав в аргументе скрипта в кавычках путь к папке »

какой командой в cmd запустить скрипт, указав местонахождение скрипта и папки с CSV?
Путь к скрипту: D:\Новая папка\script.vbs
Путь к папке: D:\Новая папка\папка
Еще можно ли в скрипте прописать не сохранять bak-и? Или добавить строки, которые удалят эти bak-и из папки?

Iska, а ваш скрипт можно вызвать из cmd ?

[megaloman]

vbs-скрипт - это исполнимый файл. Примеры запуска из командного окна в прикрепленном файле. Его вызов можно прописать в bat-файле, но смысла в этом никакого.

Код:

"D:\Новая папка\script.vbs" "D:\Новая папка\папка"

Bat сохранить в 866 кодировке.

Еще можно ли в скрипте прописать не сохранять bak-и? »

В предыдущем посте я выделил в коде строку, создающую bak, красным. Если Вы её закомментируете (то есть поставите в начале строки апостроф ' , то bak создаваться не будет.
По моему скромному мнению также можно поступить и со скриптом Iska, тем более что при его неверном использовании его скрипт выдаёт инструкцию с форматом командной строки для его запуска.

[v79italya]

megaloman, спасибо. Позже опробую

[Iska]

Iska, а ваш скрипт можно вызвать из cmd ? »

Можно:

Код:

"%SystemRoot%\System32\cscript.exe" //nologo "D:\Новая папка\script.vbs" "D:\Новая папка\папка"

[v79italya]

Iska, megaloman, спасибо
Мне cmd нужно было для макроса. Но не смог настроить.

HTML код:

Sub aa()
'Shell "cmd.exe", vbNormalFocus
'Shell "cmd.exe /t:0f /k cd C:\MIDI"
'Shell ("c:\windows\system32\cmd.exe  ""D:\Новая папка\b.vbs"" ""D:\Новая папка\Новая папка") & vbCr
'Shell ("c:\windows\system32\cmd.exe" & Chr(34) & "\" & Chr(34) & "D:\Новая папка\b.vbs" & Chr(34) & " " & Chr(34) & "D:\Новая папка\Новая папка")
End Sub

Не разбираюсь совсем в этом, делал по нагугленному и методом проб. Ничего не получилось и уже устал. Хватит мне вариант: схватить и бросить на скрипт

[megaloman]

v79italya, зачем нужен этот макрос? Почему Вы привязаны к Excel? В чем конечная цель? Или Вам надо эту задачу решить в CMD?

Кастрировал vbs и превратил его в макрос Excel. Путь к папке указать явно.

Код:

Sub AA()

BoxIn = "D:\Новая папка\папка"
FileIn = "^.*\.csv$"
Repl = "\n.*,null.*"

With CreateObject("Scripting.FileSystemObject")
    On Error Resume Next
        Set Folds = .GetFolder(BoxIn)
        If Err.Number <> 0 Then
            MsgBox "Ошибка при открытии папки" + vbCrLf + BoxIn + vbCrLf + vbCrLf + Err.Description
            Exit Sub
        End If
    On Error GoTo 0
    
    Set RegMaska = CreateObject("VBScript.RegExp")
    RegMaska.Pattern = FileIn
    RegMaska.IgnoreCase = True
    
    Set RegRepl = CreateObject("VBScript.RegExp")
    RegRepl.Pattern = Repl
    RegRepl.IgnoreCase = True
    RegRepl.Global = True
    
    Set Files = Folds.Files
    
    For Each jf In Files
        If RegMaska.Test(jf) Then
            On Error Resume Next
            Err.Number = 0
            Set fIn = .OpenTextFile(jf, 1, False)
            
            If Err.Number <> 0 Then
                MsgBox "Ошибка при открытии файла" + vbCrLf + .GetAbsolutePathName(jf) + vbCrLf + vbCrLf + Err.Description
                On Error GoTo 0
            Else
                Alls = ""
                Alls = fIn.ReadAll
                fIn.Close
                On Error GoTo 0
                If RegRepl.Test(Alls) Then
                    jfNew = jf.Path
                    If .FileExists(jf + ".bak") Then .DeleteFile jf + ".bak", True
'                    .MoveFile jf, jf + ".bak"       ' ==== Создание страх копии
                    
                    With .CreateTextFile(jfNew, True)
                        .Write (RegRepl.Replace(Alls, ""))
                        .Close
                    End With
                End If
            End If
        End If
    Next
End With
End Sub

[v79italya]

зачем нужен этот макрос? Почему Вы привязаны к Excel? »

У меня все на макросах построено. Перед скачиванием этих csv фильтрация нужных тикеров, после скачивания обработка этих csv - все на макросах и формулах. Причем я макросы не пишу, могу только пользоваться(могу интуитивно изменить). Собрал все воедино. а недельку назад программка скачивания перестала работать. Пришлось скачивать напрямую, в этот раз уже в csv(до этого в txt), еще и строки пустые остаются. вот и надо было исправить.

В чем конечная цель? Или Вам надо эту задачу решить в CMD? »

В cmd не надо решать, просто у меня уже есть один скрипт, который запускаю макросом через cmd. И этот хотел запустить. Не получилось бы и ладно, вариант СХВАТИТЬ ПАПКУ И БРОСИТЬ НА СКРИПТ очень подходит.
А конечная цель: получить тикеры, отвечающие необходимым требованиям. В свободном доступе фильтрация по моим условиям не найдена, вот и сделал свое. Как то так.
Спасибо большое за помощь

[Jeka124]

Всем привет. Столкнулся с такой проблемой. Есть пару тысяч txt файлов и в них нужно оставить определенные строки а остальное удалить, после этого файлы сохранить с таким же именем.

type your_file.txt | findstr /i /v "mozila" > temp.txt
del your_file.txt
rename temp.txt your_file.txt

Код расположенный выше не подходит так как нужно прописывать имя, и за один раз он обработает только один файл а нужно сразу все, иначе смысле этой затеи теряется так как макросом это все сделать будет гораздо быстрее. Операционная система Win 10. Если кто знаете подскажите.

[Iska]

Есть пару тысяч txt файлов »

Это будет зависеть от того, где они «есть».