Source language: Translate to:

como puedo hacer esto con un archivo de texto

Discusión sobre NeoBook en español

Moderators: Neosoft Support, beno

como puedo hacer esto con un archivo de texto

Postby franco21 » Tue Oct 18, 2016 2:58 pm

Tras leer un archivo de texto, que me busque linea por linea si encuentra una determinada cadena de texto

si existe esa cadena que borre toda la linea o que esa linea sea reemplazada por una nueva linea....

si no existe que agregue al final del archivo una nueva linea

GRACIAS!!!!
franco21
 
Posts: 122
Joined: Tue Jan 14, 2014 3:46 pm

Re: como puedo hacer esto con un archivo de texto

Postby virger » Tue Oct 18, 2016 5:39 pm

Try this
Code: Select all
filelen "file.txt" "[len]"
sertvar "[vsearch]" "hola"
loop "1" "[len]" "[l]"
fileread "file.txt"  "[l]" "[lin]"
searchstr "[bs]" "[lin]" "[pos]" ""
if "[pos]" ">" "0"
filewrite "file.txt" "[pos]" "hellow word, I'm here"
exitloop
endif
endloop
if "[pos]" "=" "0"
filewrite "file.txt" "append" "new-line: [vsearch]"
endif
COSTA RICA
PURA VIDA
User avatar
virger
 
Posts: 504
Joined: Mon Sep 18, 2006 12:21 pm
Location: Costa Rica, America Central

Re: como puedo hacer esto con un archivo de texto

Postby franco21 » Wed Oct 19, 2016 8:05 am

Gracias por tu respuesta pero no me funciona del todo

veras el tema es asi... tengo un listbox que recoge y lista todo lo que encuentra en el archivo deudores.txt

lista algo asi:

NOMBRE DEL CLIENTE -- TELEFONO --- DIRECCION ---Debe $(aca va el sado que debe)...

la idea es que si el Debe $ es (Debe $0) porque ya abono no aparezca en el listado eliminar totalmente esa linea para que solo figuren los deudores...

alguna idea?
franco21
 
Posts: 122
Joined: Tue Jan 14, 2014 3:46 pm

Re: como puedo hacer esto con un archivo de texto

Postby virger » Wed Oct 19, 2016 10:23 am

Pues es mas facil

Code: Select all
... [LsDeudores] la variable en ListBox que almacena lista de deudores
fileread "Deudores.Txt" "[LsDeudores]"
ListBoxSize "ListaDeudores" "[Sz]"
fileerase "Deudores.Txt"
loop "1" "[Sz]" "[c]"
.. [Deudor] la variable del ListBox
    ListBoxGetItem "ListaDeudores" "[c]" "[Deudor]"
    ... calcula el [Debe] con [Deudor]
    if "[Debe]" ">" "0"
        ... recrea la lista de 'solo' deudores
        filewrite "Deudores.Txt" "Append" "[Deudor]"
    endif
endloop

Listo...
COSTA RICA
PURA VIDA
User avatar
virger
 
Posts: 504
Joined: Mon Sep 18, 2006 12:21 pm
Location: Costa Rica, America Central

Re: como puedo hacer esto con un archivo de texto

Postby franco21 » Wed Oct 19, 2016 12:34 pm

MIL MIL GRACIAS!!!!!!
franco21
 
Posts: 122
Joined: Tue Jan 14, 2014 3:46 pm


Return to NeoBook en Español

Who is online

Users browsing this forum: No registered users and 2 guests