Discussion :

[missoumsoft]

salut mes amis TM
j'ai un fichier texte je veux ajouter(inséré dans le 1er ligne de cette fichier un entete.(un texte)
j'ai essayé avec fEcritLigne mais pas du resultat
aide moi SVP

[laurent30s]

Il te faut charger le fichier dans une chaine
Insérer ta ligne dans la chaine
Puis sauver la nouvelle chaine dans le fichier

Une petite procédure qui fait cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
PROCEDURE fInsereLigne(psChaineInitiale est une chaîne,psLigneAInserer est une chaîne,pnNoLig est un entier)
// pnNoLig = Numéro de la ligne avant laquelle on doit insérer la ligne
//           Si <= 1 alors la ligne est inséré en début de fichier
 
p est un entier
sChaineDebut est une chaîne
sChaineFin est une chaîne
 
SI pnNoLig <= 1 ALORS
	p = 0
	sChaineDebut = ""
	sChaineFin   = psChaineInitiale
SINON
	p =PositionOccurrence(psChaineInitiale,RC,pnNoLig - 1)
	// CR correspond à 2 octets : CR + LF (fin de ligne + retour à la ligne)
	// c'est pour ça qu'il faut faire p + 1
	sChaineDebut = Gauche(psChaineInitiale,p + 1)
	sChaineFin   = Droite(psChaineInitiale,Taille(psChaineInitiale) - (p + 1))
FIN
 
RENVOYER sChaineDebut + psLigneAInserer + RC + sChaineFin

et comment s'en servir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
sChaineInitiale est une chaîne = fChargeTexte(SC_SelecteurFichier)
fSauveTexte(sCheminDuFichier, fInsereLigne(sChaineInitiale,SAI_LigneAInserer,SAI_NoLig))

[missoumsoft]

merci beaucoup laurent30s
j'ai un autre solution
ajouter ligne au debut de fichier texte

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
sChaineInitiale est une chaîne ="Texte que je veux inserer "+RC+fChargeTexte("D:\nomFichier.txt")
fSauveTexte("D:\nomFichier.txt", sChaineInitiale)

ajouter ligne au Fin de fichier texte

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
sChaineInitiale est une chaîne =fChargeTexte("D:\nomFichier.txt")+"Texte que je veux inserer "
fSauveTexte("D:\nomFichier.txt", sChaineInitiale)

Mais vos solutions est excellent et très détaillé merci laurent30s