Also know as269
Messages postés samedi 13 décembre 2003Date d'inscription
22 novembre 2010
Dernière intervention
-
30 oct. 2004 à 14:30 - Dernière réponse : Also know as269
Messages postés samedi 13 décembre 2003Date d'inscription
22 novembre 2010
Dernière intervention
- 31 oct. 2004 à 19:17
Je crée mon site Internet en utilisant UltraEdit-32.
Pour cela aucun problème.
Mais il y a une tâche qui m'énerve quelques peu c'est de remplacer à chaque fois dans les fichier cela "e" par un "é".
J'aimerais automatiser une tâche pour qu'un programme en Delphi m'automatise automatiquement cette tâche.
Par exemple, une fois mon fichier fini en ayant laissé mes é, è, etc.
Je prend mon programe Delphi, j'ouvre mon fichier, et je clique par exemple sur le bouton "Appliquer" pour qu'il me change automatiquement tous mes é, è, etc par le code correct.
Je suis débutant dans ce language, donc si vous avez une solution, s'il vous plaît faite que ce soit clair, car sinon je vais rien comprendre !
J'ai bien chercher moi même, en faisant à ma manière :
- J'ai crée deux mémo, l'un avec le fichier original et l'autre avec les caractères modifié, normalement.
- Pas de rpoblème pour ouvrir mon fichier dans le memo1 et j'utilise ceci :
procedure TForm1.Memo1Change(Sender: TObject);
begin
Memo2.Text: =Memo1.Text
end;
- Par la suite en cherchant un peu j'ai vu que je pouvais utiliser la fonction key, mais je n'arrive pas à l'utiliser pour juste transformer les "é" par exemple et les remplacer par des é dans le memo2.
jinh68215
Messages postés mardi 29 juillet 2003Date d'inscription
1 septembre 2006
Dernière intervention -30 oct. 2004 à 17:04
0
Utile
Re,
Bon je crois pouvoir texpliquer :
sFichierSource représente ton doc html non modifié
sFichierDest représente ton doc html modifié
procedure TForm1.ModifFichier(sFichierSource, sFichierDest: String);
var
fSrc, fDest: TextFile;
sBuffer: String;
begin
AssignFile(fSrc, sFichierSource);
AssignFile(fDest, sFichierDest);
Reset(fSrc);//se place au debut du fichier source
Rewrite(fDest);//Réécrit le fichier destination
While not eof(fSrc) do begin//Tant qu'on est pas à la fin du fichier
Readln(fSrc, sBuffer);//Lire la ligne et la stocker dans sBuffer
AnsiReplaceStr(sBuffer, 'é', 'eacute;');//eacture; eagrave; sont des identifiants html pour les voyelles accentuées.
AnsiReplaceStr(sBuffer, 'è', 'eagrave;');//AnsiReplaceStr remplace les accents par les identifiants
AnsiReplaceStr(sBuffer, 'à', 'agrave;');
...
Writeln(fDest, sBuffer);//on écrit la ligne modifiée dans le fichier de destination
End;
CloseFile(fSrc);
CloseFile(fDest);
end;
Merci beaucoup opur ce code qui est très bien est qui n'a guèrebesoin d'être changé sauf par les extremiste du code ASCII, je parle de ceux qui veulent à tout prit changer en é. Pour ma part cela est parfait !! Merci beaucoup en tout cas !
