Antonio Baptista

@Midori Boa tarde , muito obrigado deu certo. Grato pela atencao

@Midori Segue um print e anexo , pela syntax que você mandou não esta deletando as linhas , consegue pegar esse arquivo anexo e rodar por ai ? exemplo.zip

@Midori Boa tarde , percebi que no meu arquivo de origem na frase esta um "linguicao" ai ele não encontra a pesquisa , como faco no excel manual , faco o filtro e pesquiso se na linha contem ai da certo , mas como colocar nessa syntax isso . Por exemplo se na coluna A contem a palavra MINISTERIO então delete. não sei se me expressei legal Grato

@Midori Boa tarde o excel tem somente a coluna A , segue um exemploPasta1.xlsx Grato

@devair1010 Boa noite fiz o teste e funcionou,mas não consigo colocar varias linhas ao mesmo tempo pra remover, imagine quer terei uma planilha de 500 linhas, com 30 ocorrencias para excluir, tipo excluir as palavras segunda terca quarta quinta sexta sábado e etc ? terei que fazer um a um ? Obrigado pelo apoio

Boa noite . Preciso criar uma macro excel para pesquisar diversas ocorrencias em uma planilha e excluir a linha inteira. ex arquivo MINISTERIO DA AGRICULTURA TESTE DE EXCLUSAO 001 SEMPRE ESTOU AQUI 003 NUNCA ESTOU AQUI Fazer um for no arquivo acima e excluir a linha inteira, com as ocorrencias que comecem com os titulos MINISTERIO , 001 e 003 Grato.

@ricardo_br Alterei agora e nesse trecho não preciso mexer ? if not "%Vazio: =%"=="" for %%a in ("%Linha:~42,9%") do set NovoArquivo=%CArquivo%%NArquivo%_Resultado%EArquivo% for /f "usebackq delims=" %%a in ("%Arquivo%") do call :Editar "%%~a" if exist "%NovoArquivo%" start "" notepad.exe "%NovoArquivo%" exit :Editar set "Linha=%~1" set "Vazio=%Linha:~1497,10%" if not defined Vazio goto :EOF if not "%Vazio: =%"=="" for %%a in ("%Linha:~42,9%") do >>"%NovoArquivo%" echo %%~a goto :EOF

@ricardo_br Boa noite. Por favor consegue me ajudar a uns meses atras criou uma bat para mim . Preciso altera.la para que pesquise da coluna 1497 se as proximas 10 posições estiverem preenchidas ele printe no arquivo. Mexi nas posições , mas não consegui acertar.. exemplo abaixo : @echo on. REM --------> PROCURA SE TEM DATA DE EXCLUSAO <-------- :: Coloque aqui o arquivo (se não tiver na mesma pasta que o bat o caminho completo:) set "Arquivo=C:\UNIMED_QUENTE\itau_fim_mes\esta_na_matricula_e_esta_arquivo_itau.txt" if not exist "%Arquivo%" goto :NExiste :: NArquivo = Nome do Arquivo :: EArquivo = Extensão do Arquivo :: CArquivo = Caminho do Arquivo for %%a in ("%Arquivo%") do ( set NArquivo=%%~na set EArquivo=%%~xa set CArquivo=%%~dpa ) set NovoArquivo=%CArquivo%%NArquivo%_Resultado%EArquivo% for /f "usebackq delims=" %%a in ("%Arquivo%") do call :Editar "%%~a" if exist "%NovoArquivo%" start "" notepad.exe "%NovoArquivo%" exit :Editar set "Linha=%~1" echo %linha% set "Vazio=%Linha:~1477,30%" if not defined Vazio goto :EOF pause if not "%Vazio: =%"=="" for %%a in ("%Linha:~41,10%") do >>"%NovoArquivo%" echo %%~a goto :EOF :NExiste echo. echo O arquivo: "%Arquivo%" não existe echo. pause exi

@Diego Mendes Rodrigues Boa noite , montei o codigo abaixo e funcionou, obrigado. Set TDate=%date:~6,4%%date:~3,2%%date:~0,2% for /f "delims=" %%i in (' forfiles /p C:\teste /s /m *.txt /d -7 /c "cmd /c echo @path" ') do ( "C:\Program Files\7-Zip\7z" a "C:\teste\teste_%TDate%.zip" %%i )

Boa tarde Preciso desenvolver uma bat windows, para listar todos os arquivos com mais de 90 dias de um diretorio, e em seguida fazer o zip. não estou conseguindo aninhar os comandos REM - LISTA ARQUIVOS COM + 90 DIAS forfiles.exe /s /p "E:\CC\RunBatch" /m *.log /d -90 2>null REM- FAZ O ZIP "C:\Program Files\7-Zip\7z.exe" a log.zip (entrada com nomes dos arquivos pego na linha acima) |Grato.

@ricardo_br Ricardo não precisa esta ótimo assim. Grato

@ricardo_br Boa tarde, esta correto sim seu entendimento , eu que não consegui chegar nessa conclusao . Grato

@ricardo_br Ricardo Boa noite , ficou excelente muito obrigado pela ajuda , você como sempre nos surpreendendo. Tks

@ricardo_br @Ricardo Boa tarde, fiz os testes ele não estava gerando o arquivo de log, em vez de >> no comeco da linha coloquei no final ai resolveu. 2pontos quando não tiver nenhum processo rodando na hora dessa execucao, ele fica engordando a saida com o cabecalho vazio ou seja ficara cheio de cabecalho. não da pra inverter a ordem , tipo so gerar se achar execucoes com mais de 15 minutos ? Faltou o numero do PID dos processos. Vou tentar ajustar esses pontos (sou fraco nisso , mas vou tentar) Obrigado

@ricardo_br Ricardo isso mesmo que preciso, me manda o codigo por favor . Grato

@ricardo_br Assim todos processos sao RUNPGM100 , porém no commandile terao nomes diferentes , ou seja todos processos serao RUNPGM100 mas no comandline terao processos diferentes.

@ricardo_br Bom dia Ricardo, isso mesmo , mas incluindo o print do Commandline engordando a saida em um arquivo de log

@ricardo_br A principio sim ,mas preciso tb colher o campo cmdline

@Ricardo bom dia td bem ? Sera que consegue por gentileza ajudar com esse bat script que você criou ? As modificacoes seriam acrescentar na saida o parametro commandline^ Formatar a saida (SE possível). O restante de pesquisar se roda a mais de 15 minutos fica igual DE @echo off set Processo=notepad.exe set Pesquisa=TEXTO for /f "delims=" %%a in ('wmic process where caption^="%Processo%" get commandline^,processid^,creationdate /format:csv ^|findstr "%Pesquisa%"') do for /f "tokens=3,4 delims=," %%b in ("%%~a") do call :Verificar "%%~b" "%%~c" exit :Verificar set Inicio=%~1 set Inicio=%Inicio:~0,4%/%Inicio:~4,2%/%Inicio:~6,2% %Inicio:~8,2%:%Inicio:~10,2%:%Inicio:~12,2% set Ordem= for /f "delims=" %%a in ('powershell -command "$Duracao = new-timespan -start '%Inicio%' -end (get-date);if ($Duracao.TotalSeconds -ge 900) {write-host Matar}"') do set "Ordem=%%a" if "%Ordem%"=="Matar" taskkill /pid "%~2" goto :EOF PARA: C:\Program Files\CA\scripts>wmic process where caption^="runpgm1000.exe" get processid^,commandline^,creationdate /format:table SAIDA COMANDO Acima: CommandLine CreationDate ProcessId RUNPGM1000 NETMIGRAQL 0061400688 20230807083751.220000-240 818160 RUNPGM1000 NETMIGRAQL 0061400749 20230807085808.274799-240 814324 RUNPGM1000 TPACTBASD 197188011 G999 1 20230807090236.737666-240 819056 SAIDA PRETENDIDA:: CreationDate ProcessId CommandLine 07/08/2023 08:37:51 818160 RUNPGM1000 NETMIGRAQL 0061400688 07/08/2023 08:58:08 814324 RUNPGM1000 NETMIGRAQL 0061400749 07/08/2023 09:02:36 819056 RUNPGM1000 TPACTBASD 197188011 G999

@Ricardo bom dia td bem ? Sera que consegue por gentileza ajudar com esse bat script que você criou ? As modificacoes seriam acrescentar na saida o parametro commandline^ /format table Eliminar a parte do findstr Formatar a saida O restante de pesquisar se roda a mais de 15 minutos fica igual DE @echo off set Processo=notepad.exe set Pesquisa=TEXTO for /f "delims=" %%a in ('wmic process where caption^="%Processo%" get commandline^,processid^,creationdate /format:csv ^|findstr "%Pesquisa%"') do for /f "tokens=3,4 delims=," %%b in ("%%~a") do call :Verificar "%%~b" "%%~c" exit :Verificar set Inicio=%~1 set Inicio=%Inicio:~0,4%/%Inicio:~4,2%/%Inicio:~6,2% %Inicio:~8,2%:%Inicio:~10,2%:%Inicio:~12,2% set Ordem= for /f "delims=" %%a in ('powershell -command "$Duracao = new-timespan -start '%Inicio%' -end (get-date);if ($Duracao.TotalSeconds -ge 900) {write-host Matar}"') do set "Ordem=%%a" if "%Ordem%"=="Matar" taskkill /pid "%~2" goto :EOF PARA: C:\Program Files\CA\scripts>wmic process where caption^="runpgm1000.exe" get processid^,commandline^,creationdate /format:table SAIDA COMANDO Acima: CommandLine CreationDate ProcessId RUNPGM1000 NETMIGRAQL 0061400688 20230807083751.220000-240 818160 RUNPGM1000 NETMIGRAQL 0061400749 20230807085808.274799-240 814324 RUNPGM1000 TPACTBASD 197188011 G999 1 20230807090236.737666-240 819056 SAIDA PRETENDIDA:: CreationDate ProcessId CommandLine 07/08/2023 08:37:51 818160 RUNPGM1000 NETMIGRAQL 0061400688 07/08/2023 08:58:08 814324 RUNPGM1000 NETMIGRAQL 0061400749 07/08/2023 09:02:36 819056 RUNPGM1000 TPACTBASD 197188011 G999

@ricardo_br Obrigado , ficou muito clareo agora. @Utopico Boa noite , obrigado pela ajuda, nas proximas minha leitura sera mais apurada. Abco

@ricardo_br Muito obrigadoooooo você é show !

@Ricardo, boa tarde. Poderia me explicar por favor como funciona a variável set "Nome=%%~na" e !Nome:~0,9!%%~xa? O que significa ~na e essa !? Se tiver algum artigo publicado lhe agradeço. Obrigado.. @echo off SetLocal EnableDelayedExpansion Set Fonte=Teste set "PTemp=c:\temporario" if not exist "%PTemp%" md "%PTemp%" For /f "delims=" %%a in ('dir /b /a "%Fonte%\*.txt"') do ( set "Nome=%%~na" if not "!Nome:~8,1!"=="" move "%Fonte%\%%a" "%PTemp%\!Nome:~0,9!%%~xa" ) exit

@ricardo_br OPA foi isso , faltou o c:\Teste. Funcionou Certim , muito obrigado pela ajuda Abco

@ricardo_br Esta estranho diz que não exite o executavel , mas quando dei 2 clics ele gerou a pasta temporario sem nada dentro. C:\teste>dir O volume na unidade C é Windows 10 X64 O Número de Série do Volume é 3CAE-EC58 Pasta de C:\teste 21/07/2023 17:27 <DIR> . 21/07/2023 17:27 <DIR> .. 21/07/2023 17:23 0 1234.txt 21/07/2023 17:23 0 12345678999999.txt 21/07/2023 17:23 521 x.bat 21/07/2023 17:29 525 xx.bat 4 arquivo(s) 1.046 bytes 2 pasta(s) 98.209.615.872 bytes disponíveis C:\teste>cmd /c xx.bat O sistema não pode encontrar o arquivo especificado.