Pesquisar termo dentro de TXT

[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,

[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.

[rochinha]

Amiguinho,

Faça uma analise do uso das funções AT() e RAT()

[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!

[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!

[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!!!!

[alxsts]

Olá!

Talvez este tópico ajude:
link.

[Itamar M. Lins Jr.]

Será que funciona na Daruma ?

Saudações,
Itamar M. Lins Jr.