PC SOFT

FOROS PROFESIONALES
WINDEV, WEBDEV y WINDEV Mobile

Inicio | Mensajes recientes | Conéctese... |  | Español FR
Inicio → WINDEV 2024 → ecriture dans fichier à une position donnée
ecriture dans fichier à une position donnée
Iniciado por Robert, 15,jul. 2005 12:24 - No hay respuesta
#1
Publicado el 15,julio 2005 - 12:24
Bonjour

J'aimerai écrire à une position donnée un code dans un fichier externe, pour ce faire j'utilise le code suivant :
BOUCLE (n)
ListeSelectPlus (F2.Liste1, o)
F2.Libellé1 ="Lecture du fichier : " + F2.Liste1[o] + ""
nIdFichier = fOuvre(F2.Liste1[o],foLectureEcriture)
sLigneFichier = fLitLigne(nIdFichier)
TANTQUE PAS sLigneFichier=EOT
numtel = SansEspace(sLigneFichier[[1 A 10]])
coderesp = SansEspace(sLigneFichier[[18 A 19]])
dd=numtel
Résultat = TableCherche (F2.Table_tf_blacklist.tf_number, dd, Vrai )
F2.Libellé1 ="Vérification Black-Liste"
SI Résultat = -1 ALORS
SINON
SI coderesp = 00 ALORS
sLigneFichier[[18 A 19]] = 25
ResEcriture = fEcritLigne (nIdFichier, sLigneFichier)
SINON
SI coderesp = 18 ALORS
Info("Un numéro censé être 25 est 18")
SINON
sLigneFichier[[18 A 19]] = 25
ResEcriture = fEcritLigne (nIdFichier, sLigneFichier)
FIN

FIN
FIN
sLigneFichier = fLitLigne(nIdFichier)
FIN

nIdFichier = ""
sLigneFichier = ""

fFerme(F2.Liste1[o])

o = o -1
FIN

Cela semble marcher +- j'ai l'impression qu'il me colle la ligne en dessous de la ligne sélectionnée et réécrit sur une autre ligne. Qn peut il m'aider,

Merci
→ Volver a WINDEV 2024