ZECA Posted August 31, 2010 Report Share Posted August 31, 2010 Parece que vi em algum lugar deste forum um programa que procura num diretorio, dentro dos arquivos determinadas frases. Por exemplo: Tenho um diretorio cheio de arquivos PRGs e preciso achar dentro de um destes PRG um frase, por exemplo abre_arquivo(). Ai digito .....exe > abre_arquivo() ele procura em todos os arquivos e mostra o resultado Alguem conhece ou já ouviu falar? Sds José Carlos - ZECA fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP Quote Link to comment Share on other sites More sharing options...
ZECA Posted August 31, 2010 Author Report Share Posted August 31, 2010 Parece que vi em algum lugar deste forum um programa que procura num diretorio, dentro dos arquivos determinadas frases. Por exemplo: Tenho um diretorio cheio de arquivos PRGs e preciso achar dentro de um destes PRG um frase, por exemplo abre_arquivo(). Ai digito .....exe > abre_arquivo() ele procura em todos os arquivos e mostra o resultado Alguem conhece ou já ouviu falar? Sds José Carlos - ZECA fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP Quote Link to comment Share on other sites More sharing options...
Luiz Fernando Posted August 31, 2010 Report Share Posted August 31, 2010 citação:Parece que vi em algum lugar deste forum um programa que procura num diretorio, dentro dos arquivos determinadas frases. Por exemplo: Tenho um diretorio cheio de arquivos PRGs e preciso achar dentro de um destes PRG um frase, por exemplo abre_arquivo(). Ai digito .....exe > abre_arquivo() ele procura em todos os arquivos e mostra o resultado Alguem conhece ou já ouviu falar? Sds José Carlos - ZECA fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP id=quote>id=quote>Ola Jose Carlos, o xdev faz isto... Abraços Luiz Fernando msn: empresoft@globo.com skype:empresoft empresoft@globo.com FWH 8.04,XHARBOUR 1.1,PELES,XDEV,VLIB,ADS 8.1 FWH 9.12,XHARBOUR 1.2,ADS 9.0 Quote Link to comment Share on other sites More sharing options...
ZECA Posted August 31, 2010 Author Report Share Posted August 31, 2010 citação: citação:Parece que vi em algum lugar deste forum um programa que procura num diretorio, dentro dos arquivos determinadas frases. Por exemplo: Tenho um diretorio cheio de arquivos PRGs e preciso achar dentro de um destes PRG um frase, por exemplo abre_arquivo(). Ai digito .....exe > abre_arquivo() ele procura em todos os arquivos e mostra o resultado Alguem conhece ou já ouviu falar? Sds José Carlos - ZECA fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP id=quote>id=quote>Ola Jose Carlos, o xdev faz isto... Abraços Luiz Fernando msn: empresoft@globo.com skype:empresoft empresoft@globo.com FWH 8.04,XHARBOUR 1.1,PELES,XDEV,VLIB,ADS 8.1 FWH 9.12,XHARBOUR 1.2,ADS 9.0 id=quote>id=quote>Beleza, Obrigado !!! Sds José Carlos - ZECA fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP Quote Link to comment Share on other sites More sharing options...
Lourencio Rodrigues Gomes Posted August 31, 2010 Report Share Posted August 31, 2010 Existe um programa chamado TS-Text Search do Peter Norton, faz exatamente isto. Ex. se você está procurando uma cadeia de caracter por exemplo "teste" em um determinado PRG que você não sabe em qual ela está, é só digitar: TS *.prg TESTE, ele localiza, exibe o nome do PRG e a linha. Manda seu email que eu te enviarei. mbrasillourencio@webgv.com.br Quote Link to comment Share on other sites More sharing options...
LUIS1361303120 Posted August 31, 2010 Report Share Posted August 31, 2010 Eu tenho um feito em delp??????? 7 e com os fontes,, se quiseres te passo por email.... ele faz tudo isso e procurar ate dentro de arquivo do word.... eu so vi isso na pesquisa do windows na versao 98.. essa do xp e uma porcar.... nao coloquei qual linguagem por que uso e nao abandono o fivewin... coloque aqui o seu email que te mando.. Luis Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted September 1, 2010 Report Share Posted September 1, 2010 Larga mão de tudo isso... use a xDev.. show Vc não vai precisar ficar instalando um prog aqui outro ali... a xDev acha até em LIB Boa Noite... durma bem Retorne avisando se a dica funcionouid=red> Luiz Arruda Corumbá - MS ico.corumba@gmai.com Quote Link to comment Share on other sites More sharing options...
Luisão Posted September 1, 2010 Report Share Posted September 1, 2010 O Prompt de Comando faz isso também. Use o findstr Findstr /i /m /s /c:"abre_arquivo" *.PRG /i ignora o case dos caracteres /m mostra somente o nome do arquivo /s pesquisa em sub-diretórios /c: string a ser pesquisada *.PRG arquivos que serão procurados Isso é útil até para EXE, teve casos que precisei procurar se um EXE usava ou não um determinado campo de um DBF, e esse comando serviu muito bem... Luis Fernando Jr. (Luisão) Leme/SP -- FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY + [Ghost/Java]Script E-Mail: juninho.luisao@gmail.com MSN: juninho_luisao@hotmail.com Skype: luis.fernando.jr Quote Link to comment Share on other sites More sharing options...
LUIS1361303120 Posted September 1, 2010 Report Share Posted September 1, 2010 verifique esse arquivo feito em clipper,, ele e parecido com o find do windows.... ******************************************************** * FINALIDADE: PROCURAR EM UM GRUPO DE ARQUIVOS POR UMA DETERMINADA STRING PARAMETERS ARQ,GRUPO private arq, grupo, v clear ? "ladp acha.exe" if type('arq')='U' .or. type('grupo')='U' ? 'Utilizacao: Acha ' ? '' quit endif n=adir(arq) if n<1 ? 'arquivo nao encontrado' ? ' ' quit endif @ 24,0 say n declare v[n] cnta=adir(arq,v) asort(v) ? 'Digite para interromper.' ? 'Procurando no(s) arquivos(s)= '+upper(arq) ?? ' ('+str(n,3,0)+' arquivos)' ? 'Pelo grupo = '+ grupo ? ' ' for i=1 to n arquivo=memoread(v) linhas=mlcount(arquivo,120) ? ' ' ? str(1,4,0)+' - Procurando no arquivo: '+v+' ('+str(linhas,5,0)+' linhas)' for x=1 to linhas @ row(),60 say ' '+str(x/linhas*100,6,2)+' %' linha=memoline(arquivo,120,x) ii=0 for y=1 to len(linha)-len(grupo) ii=inkey() if ii=27 ? ' ' ? ' Interrompido pelo Usuario' EXIT endif if upper(substr(linha,y,len(grupo)))=upper(grupo) tone(250,2) ? ' Encontrou na linha: '+str(x,4,0) endif next y if ii = 27 ; exit ; endif next x next i tone(1000,5) tone(10000,3) tone(1000,5) ? ' ' quit Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.