como puedo hacer esto con un archivo de texto

[franco21]

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

[virger]

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

[franco21]

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?

[virger]

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

[franco21]

MIL MIL GRACIAS!!!!!!