Caractère $00 dans un fichier texte
sokoban
Messages postés
32
Date d'inscription
mardi 4 novembre 2003
Statut
Membre
Dernière intervention
4 novembre 2006
-
3 oct. 2005 à 23:03
jlen100 Messages postés 1606 Date d'inscription samedi 10 juillet 2004 Statut Membre Dernière intervention 25 juillet 2014 - 4 oct. 2005 à 06:45
jlen100 Messages postés 1606 Date d'inscription samedi 10 juillet 2004 Statut Membre Dernière intervention 25 juillet 2014 - 4 oct. 2005 à 06:45
A voir également:
- Caractère $00 dans un fichier texte
- Vba écrire dans un fichier texte - Conseils pratiques -Visual Basic / VB.NET
- Fichier .ini - Conseils pratiques -Visual Basic / VB.NET
- Fichier json - Conseils pratiques -Javascript
- Parcourir une chaine de caractère en python ✓ - Forum Python
- Compteur de caractère - Forum Visual Basic
1 réponse
jlen100
Messages postés
1606
Date d'inscription
samedi 10 juillet 2004
Statut
Membre
Dernière intervention
25 juillet 2014
13
4 oct. 2005 à 06:45
4 oct. 2005 à 06:45
salut,
essaye de faire:
var i:integer;
buffer:string;
begin
for i:= 0 to list.count-1 do
begin
if pos(#0,list[i])<>0 then //verifie l'existence du caractee #0
begin
buffer: =list[i]; // transfert à une cahine provisoire pour faire les operations
repeat
buffer[pos(#0,buffer)]:= ' '; //remplace le caractere par #20H
until pos(#0,buffer)<>0 ;//repete l'operation tant qu'il y a in #00
list[i]: =buffer;// rétabli la liste modifiée
end;
end;
end;
bonne prog;
essaye de faire:
var i:integer;
buffer:string;
begin
for i:= 0 to list.count-1 do
begin
if pos(#0,list[i])<>0 then //verifie l'existence du caractee #0
begin
buffer: =list[i]; // transfert à une cahine provisoire pour faire les operations
repeat
buffer[pos(#0,buffer)]:= ' '; //remplace le caractere par #20H
until pos(#0,buffer)<>0 ;//repete l'operation tant qu'il y a in #00
list[i]: =buffer;// rétabli la liste modifiée
end;
end;
end;
bonne prog;