Discussion :

[windmastr26]

Bonsoir,

Quelqu'un pourrait m'expliquer pourquoi j'ai un caractère #0 lorsque je lit la seule ligne de mon fichier de type texte ?

Structure du fichier :

Code :

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

http://blablabla.com

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Procedure trucmachinchouette;
var
  url     : string;
  fMAJ    : TextFile;
begin
  if (fileexists('c:\toto.txt')) then
  begin
     AssignFile(fMAJ,'c:\toto.txt');
     Reset(fMAJ);
     ReadLN(fMAJ,url);
     showMessage(url); //Ne m'affiche rien car url = #0'http://.....'
     closeFile(fMAJ);
  end;
end;

En fait le caractère #0 semble être interprété comme une fin de ligne, du coup le reste n'est pas traité ! Et aucun "StringReplace" n'arrive à y remédier...

[Paul TOTH]

Bonsoir,

Quelqu'un pourrait m'expliquer pourquoi j'ai un caractère #0 lorsque je lit la seule ligne de mon fichier de type texte ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Procedure trucmachinchouette;
var
  url     : string;
  fMAJ    : TextFile;
begin
  if (fileexists('c:\toto.txt')) then
  begin
     AssignFile(fMAJ,'c:\toto.txt');
     Reset(fMAJ);
     ReadLN(fMAJ,url);
     showMessage(url); //Ne m'affiche rien car url = #0'http://.....'
     closeFile(fMAJ);
  end;
end;

En fait le caractère #0 semble être interprété comme une fin de ligne, du coup le reste n'est pas traité ! Et aucun "StringReplace" n'arrive à y remédier...

le #0 est traité par Windows comme la fin de chaîne (PChar)

mais d'après ton code il doit être présent dans ton fichier texte...à moins que ce ne soit un fichier UNICODE et que ta version de Delphi ne le gère pas. Dans ce cas c'est une WideString avec #0'h'#0't'#0't'#0'p'....

[windmastr26]

Bonjour,

En fait il s'agit d'un simple fichier texte créé sous notepad et sans inscrire de caractère nul #0. Le fichier a ensuite été envoyé sur un site web (via ftp) pour être téléchargé par mon appli delphi via un composant Indy idHTTP (méthode get).

J'utilise ensuite la procédure citée dans mon précédent post pour lire le fichier, et le readln me renvoi alors :

Code :

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

#0'http:.....'

Cela viendrait-il du composant Indy ? J'ai suivi le tuto de la rubrique delphi pour l'utiliser...

[Paul TOTH]

j'imagine que ce n'est pas idHTTP qui enregistre le fichier sur disque, il peut y avoir une erreur entre deux

[windmastr26]

C'est ce que je me dis aussi, mais il n'y a pas grand chose entre les deux...

Code :

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

1
2
3
4
5
6
7
8
9
10
chemin:='c:\download.txt';
url:='http://www.monsite.fr/support/download/maj.txt';
fichier := TFileStream.Create(chemin,fmCreate);
try
  idHTTP.Get(url,fichier);
except
  on e:Exception do
    lbResult.Caption:='Erreur lors de la récupération des mises à jour...';
end;
fichier.Free;

Peut être un paramétrage d'Indy à faire ? Mais je n'ai rien vu de ce coté là...

[windmastr26]

Non ça ne vient pas d'Indy mais bel et bien de la fonction "readLN".

Je viens de créer un fichier tout simple avec notepad :

Code :

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

http://blablabla.com

Je l'ai enregistré sous C et en format ANSI : il me génère le même problème...

[windmastr26]

Je viens de "résoudre" mon problème, même si je ne l'explique pas encore totalement...

En fait plus loin dans mon script, j'analysais ma chaine contenant la ligne de mon fichier afin de créer un tableau de 3 éléments.

J'ai donc utilisé un truc du style (version simplifiée) :

Code :

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

for i:=0 to length(chaine) tab[0]:=chaine[i];

J'ai remplacé "chaine[i]" par "copy(chaine,i,1)" et ça semble fonctionner.

Pourquoi l'accès à ma chaine par l'intermédiaire de sa position me rajoutait un caractère null #0 en début de chaine ? Je ne sais pas du tout... Alors si quelqu'un sait, histoire de ne pas mourir plus idiot que je ne le suis, je suis preneur

[Paul TOTH]

lol

parce que la chaine commence à l'indice 1 et non 0

[windmastr26]

Bon bin je peux finalement me sentir encore plus idiot ! lol

Désolé pour l'erreur si évidente et merci à toi

[Linkin]

Pour parcourir une string c'est de 1 à Length(Chaine)
chaine[i], pour i=0 renverra toujours 0. (D'ailleurs Chaine[0] ne compile pas)

Edit: Grillé, trop de temps à répondre