PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

Accueil  |  Messages récents  | Connexion  |   | Français  FR
Accueil → WINDEV 2024 → insertar linea en txt
insertar linea en txt
Débuté par esteban, 25 sep. 2009 01:51 - 3 réponses
#1
Posté le 25 septembre 2009 - 01:51
hola a todos

necesito trabajar con un archivo txt..en donde constantemente estoy insertando datos hacia el..

lo realizo con el siguiente codigo, no tengo ningun problema con el pero me gustaria modificarlo:

sTexto is string=fLoadText(sPath) //cargo el contenido del txt
sTexto=sTexto+"1234567890"+CR //datos que insertare
nGrabo=fWrite(nNum,sTexto) //escritura del txt
IF nGrabo=-1 THEN
Error("error de escritura")
ELSE
fClose(nNum)
END

la consulta o lo que deseo cambiar es en ves de estar leyendo contantemente el txt a una variable y concatenar el contenido leido con el contenido a insertar,
es tratar de insertar directamente al final del txt los datos necesarios y no estar leyendo constatemente el txt, todo esto para ajilizar las operaciones en el caso de que el archivo de texto cresca demasiado, no se si windev tendra alguna instruccion
#2
Posté le 25 septembre 2009 - 10:38
Hola esteban
Usa el siguiente código
ID = fOpen("trayecto\File.txt", foReadWrite)
IF ID <> -1 THEN
Res is boolean = fWriteLine(ID, "Nueva linea")
IF Res = False THEN
...r
END
END


Saludos
Salvador Soler
www.windeveloper.es
#3
Posté le 25 septembre 2009 - 13:53
Hola Estaban,

Pienso que es mejor con foAdd así :

ID = fOpen("trayecto\File.txt", foReadWrite + foAdd)



--
Saludos
pat
http://megustawindev.free.fr
#4
Posté le 25 septembre 2009 - 17:44
gracias pat gracias salvador, con la ayuda de los dos lo solucione...
→ Revenir à WINDEV 2024