Discussion :

[tomy29]

bonjour,
je dispose d'un fichier texte dont la source est le texte d'une page web. Dans ce texte il y a des caracteres speciaux (comme shift + Entrée, ° automatique...) que le fichier texte pure ne reconnait pas dans bloc note. il met dont un caractere special a la place , une sorte de carré.
J'aurais voulu savoir si delphi permet de retrouver le code de ces caracteres et de les remplacer par autre chose.

Merci

bon week end!

[qi130]

Tu peux charger ton fichier dans 1 stringList (LoadFromFile), puis sur chaque item de ce stringlist utiliser

Code :

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

1
2
3
For i:=0 to MonStringList.Count - 1 do
 MonStringList.String[i]:=
     StringReplace(MonStringList.String[i],';',',',[rfReplaceAll]) ; // remplacle les ";" par des ","

Puis SaveToFile...

Mais c'est bien sûr à toi de piéger les caractères indésirables

[tomy29]

merci,

le probleme justement c'est de savoir comment reconnaitre les caracteres speciaux qui sont invisible (on croit que c'est un espace, et en fait ce n'est pas ca, il s'agit d'un caractere special mal affiché par Blocnote).
Je me demandais s'il y avait un code special (comme #10#13 pour retour a la ligne je crois) que je pouvais essayer de capturer.

[qi130]

Le pb avec le retour chariot, c'est que si tu le supprimes, tu vas destructurer ton fichier.

Et puis, normalement, le retour chariot est bien "digéré" par les éditeurs de fichiers texte.

[tomy29]

j'ai imprimé les differents code ascii de mes caracteres.
Quelle difference y a t il entre le code ascii 32 et le 160?

les deux signifient un "espace".
mais le cas qui est mal traité dans mon programme est celui ou espace = 160.

Y a t il une particularité au code 160?

Sinon, comment dans une chaine de caracteres puis je remplacer tous les caracteres ayant pour code ascii 160 par le caractere espace ayant le code ascii 32?

[qi130]

Sinon, comment dans une chaine de caracteres puis je remplacer tous les caracteres ayant pour code ascii 160 par le caractere espace ayant le code ascii 32?

Tu peux charger ton fichier dans 1 stringList (LoadFromFile), puis sur chaque item de ce stringlist utiliser

Code :

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

1
2
3
4
 
For i:=0 to MonStringList.Count - 1 do
 MonStringList.String[i]:=
     StringReplace(MonStringList.String[i],';',',',[rfReplaceAll]) ; // remplacle les ";" par des ","

Puis SaveToFile...

Au lieu de

';',','

,
tu utilises la fonction Chr

Chr(160),Chr(32)