Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
114 internautes nous ont dit merci ce mois-ci
<!doctype html public "-//W3C//DTD HTML 4.0 Transitional//EN" "http://www.w3.org/TR/html4/transitional.dtd">
procedure TForm1.ModifFichier(sFichierSource, sFichierDest: String) var fSrc, fDest: TextFile; sBuffer: String; begin AssignFile(fSrc, sFichierSource); AssignFile(fDest, sFichierDest); Reset(fSrc); Rewrite(fDest); While not eof(fSrc) do begin Readln(fSrc, sBuffer); AnsiReplaceStr(sBuffer, 'é', 'eacute;'); AnsiReplaceStr(sBuffer, 'è', 'eagrave;'); AnsiReplaceStr(sBuffer, 'à', 'agrave;'); ... Writeln(fDest, sBuffer); End; CloseFile(fSrc); CloseFile(fDest); end;
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;
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.