Rajouter une chaine de caractère en début de ligne d'un fichier texte [Résolu]

Messages postés
5
Date d'inscription
mercredi 23 juin 2004
Dernière intervention
3 octobre 2005
- - Dernière réponse : Gastounelli
Messages postés
5
Date d'inscription
mercredi 23 juin 2004
Dernière intervention
3 octobre 2005
- 3 oct. 2005 à 13:08
Tout est dit dans le sujet. J'en suis au niveau de lire chaque ligne du fichier
while not Eof(NomFicRefTxt)do
begin
Readln(NomFicRefTxt,Ch);
/// Writeln(NomFicRefTxt,'XXXX = ');
end;
Mais voilà j'aimerai rajouter la chaine XXXX = en début de chaque ligne. Le writeln ne marche pas sur le même fichier (ou je ne sais pas l'utiliser !)
Pourriez vous m'aider s'il vous plait ?
Vous remercie d'avance
Afficher la suite 

Votre réponse

2 réponses

Meilleure réponse
Messages postés
5
Date d'inscription
mercredi 23 juin 2004
Dernière intervention
3 octobre 2005
3
Merci
Je vous remercie bcp,
et du coup vous me donnez la réponse à d'autres questions !!
Merci, bonne journée

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources a aidé 106 internautes ce mois-ci

Commenter la réponse de Gastounelli
Messages postés
1651
Date d'inscription
samedi 10 juillet 2004
Dernière intervention
25 juillet 2014
0
Merci
salut ,

utilise un Tstrings:

var

TempList: TStrings;

i:integer;

begin

TempList := TStringList.Create;

try

TempList.LoadFromFile('nomdu fichier');

except

MessageDlg('Fichier
'+'nomdu fichier'+' introuvable' , mtError ,
[mbOk], 0); exit

end else

begin

for i: =0 to TempList.count-1 do

begin

TempList[i]:='XXXX = '+TempList[i];

end;

TempList.SavetoFile('nomdu fichier');

finally TempList.Free; end;

end;

bonne prog
Commenter la réponse de jlen100

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.