Je souhaiterai modifier un fichier avec windev de la façon suivante :
aaaa000100bbbb
ccccc002000dddd
en :
aaaa000108bbbb
ccccc002160dddd
pourriez-vous m'aider a faire le code car je débute et j'ai du mal à le faire sur plusieurs ligne :
//Modification XML//
ContenuFichier est une chaîne
ContenuFichier = fChargeTexte("C:\100.txt")
Partie01 est une chaîne
Partie02 est un entier
Partie03 est une chaîne
i est un entier = 1
res est un entier
uneligne est un entier
NumFic est un entier
NomFic est une chaîne = "C:\108.txt"
ResFermeFichier est un entier
fCrée(NomFic)
//Création du fichier NomFic
NumFic = fOuvre(NomFic, foLectureEcriture)
SI NumFic = -1 ALORS
DélaiAvantFermeture(1000)
DélaiAvantFermeture(1000)
Erreur("Erreur de création du fichier "+NomFic)
SINON
FIN
// Extraction du code XML contenu dans la première balise "<operation>"Ppartie01 = XMLExtraitChaîne(SourceXML, "CLTCPT", i)
Partie01 = Milieu (ContenuFichier, 1, 10)
Partie02 = Milieu (ContenuFichier, 11, 21)
Partie03 = Milieu (ContenuFichier, 22, 29)
// Réouvrir le fichier
NumFic = fOuvre(NomFic,foAjout)
SI NumFic = -1 ALORS
Erreur("Erreur d'ouverture de "+NomFic)
SINON
// Ecriture dans le fichier
res = fEcrit(NumFic,Partie01 )
res = fEcrit(NumFic,(Partie02*1.08))
res = fEcrit(NumFic,Partie03 )
SI res = -1 ALORS
Erreur("Erreur d'écriture dans "+NomFic)
FIN
FIN