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

Gastounelli 5 Messages postés mercredi 23 juin 2004Date d'inscription 3 octobre 2005 Dernière intervention - 1 oct. 2005 à 18:05 - Dernière réponse : Gastounelli 5 Messages postés mercredi 23 juin 2004Date d'inscription 3 octobre 2005 Dernière intervention
- 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

Gastounelli 5 Messages postés mercredi 23 juin 2004Date d'inscription 3 octobre 2005 Dernière intervention - 3 oct. 2005 à 13:08
+3
Utile
Je vous remercie bcp,
et du coup vous me donnez la réponse à d'autres questions !!
Merci, bonne journée
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de Gastounelli
jlen100 1651 Messages postés samedi 10 juillet 2004Date d'inscription 25 juillet 2014 Dernière intervention - 1 oct. 2005 à 21:05
0
Utile
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.