Página 1 de 1
Pesquisar termo dentro de TXT
Enviado: 28 Set 2010 17:22
por hilton_menezes
Boa tarde,
Preciso pesquisar um termo dentro um arquivo texto. Alguem pode me indicar uma leitura ou mesmo um tópico?
Basicamente, um arquivo texto com aproximadamente 100 linhas, em uma delas existirá o Termo "VENDA BRUTA". Eu preciso pegar o valor / texto que vem após esse termo.
Att,
Re: Pesquisar termo dentro de TXT
Enviado: 28 Set 2010 18:18
por Itamar M. Lins Jr.
Ola!
Provavelmente é para o registro tipo 61 do sintegra.
Código: Selecionar todos
cText := memoread(cArq)
nLinh := mlcount(cText)
For n := 1 to nLinh
? memoline(cText,,n)
Next
Pode usar, "$" para achar, substr() pegar, val() mudar....
Saudações,
Itamar M. Lins Jr.
Re: Pesquisar termo dentro de TXT
Enviado: 29 Set 2010 01:32
por rochinha
Amiguinho,
Faça uma analise do uso das funções AT() e RAT()
Re: Pesquisar termo dentro de TXT
Enviado: 29 Set 2010 10:59
por hilton_menezes
Ah! Me esqueci de um detalhe importante, estou usando o xHarbour, que tem os mesmo métodos que o Clipper.
Quero agradecer a ajuda já prestada!
Re: Pesquisar termo dentro de TXT
Enviado: 29 Set 2010 11:02
por hilton_menezes
Outra coisa, não tem nada com o Sintegra, é que para obter a Venda Bruta do dia anterior na Daruma FS-600, o suporte me indicou o uso de um método que gera o arquivo "RETORNO.TXT" e deste arquivo obtenho o valor da Venda Bruta anterior.
Meleka deles, mas fazer o q né!
Mais uma vez, agradeço a ajuda!
Re: Pesquisar termo dentro de TXT
Enviado: 29 Set 2010 13:57
por hilton_menezes
Fechando o assunto e desde já agradecendo aos interessados!
Segue abaixo o código que acabei escrevendo:
Código: Selecionar todos
nRetorno := Bematech_FI_MapaResumoMFD()
lRetorno := TrataRetorno(nRetorno,.T.)
IF (lRetorno .and. File(sRetorno))
cText := MemoRead(sRetorno) /* Lê o Arquivo Texto */
nLinhas := mlCount(cText) /* Obtém o Numero de Linhas */
For n := 1 to nLinhas
sLinha := MemoLine(cText,,n) /* Obtém a Linha do Texto */
nPos := At('Venda Bruta',sLinha) /* Pesquisa na Linha se Existe o Texto */
If (nPos > 0) /* Se encontrou, obtém o Valor */
cValor := AllTrim(SubStr(sLinha,At(':',sLinha) + 1,16)) /* Obtém o Valor a ser retornado */
EndIf
Next
EndIf
Bom, mais uma vez, meus agradecimentos!!!!
Re: Pesquisar termo dentro de TXT
Enviado: 29 Set 2010 14:37
por alxsts
Olá!
Talvez este tópico ajude:
link.
Re: Pesquisar termo dentro de TXT
Enviado: 30 Set 2010 08:59
por Itamar M. Lins Jr.
Será que funciona na Daruma ?
Saudações,
Itamar M. Lins Jr.