html - LoadFromFileRésolu

Question

Bonjour, 
Cela fait d&#233;j&#224; un petit moment que je cherche comment importer un fichier html dans une variable TStrings. LoadFromFile provoque des erreurs lors de la conversion des caract&#232;res accentu&#233;s etc... 

Avez-vous une autre solution ?
Merci d'avance.


@+
Bonne Prog'
Nico

Emandhal · Accepted Answer

un  "&#233;" devient un "&#195;&#169;" parce que le format est l'UTF8 pour ces chaines... Il faut donc pour chaques lignes utiliser la syntaxe suivante :
Strings[Index] := UTF8Decode(Strings[Index]);

si tu ne veux pas faire 2 passes il faudra que tu fasses le LoadFromFile &#224; la main :)

Tout probl&#232;me a sa solution... Mais en g&#233;n&#233;ral, c'est jamais la bonne...

jmp77 · Answer

Hello Ni69,



Ecoute je viens de faire ca comme test 
procedure TForm1.Button2Click(Sender: TObject);



var

Files : TStringList;



begin

Files := TStringList.Create;



   Try

   Files.LoadFromFile(ExtractFilePath(Application.exeName) + 'Test.html');

   Memo1.Lines := Files;

   Finally

   Files.Free;

   end;

end;



Et je n'ai eu aucun message d'erreur et il m'a bien afficher les ligne dans le memo.


Bonne prog,
JMP77.

N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e.

ni69 · Answer

En fait, quand je parle d'erreur, il ne s'agit pas de messages d'ereur, mais d'erreurs dans le texte charg&#233; : par exemple, un "&#233;" devient un "&#195;&#169;"... ce qui est assez emb&#234;tant... 


@+
Bonne Prog'
Nico

jmp77 · Answer

Lol effectivement ca peut etre embettant.



Je regarde ca des que je peux. Mais je n'ai pas d'id&#233;e la comme ca.

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e.

ni69 · Answer

merci...


@+
Bonne Prog'
Nico

japee · Answer

Bizarre autant qu'&#233;trange, ni69... 



J'ai essay&#233; pour en avoir le coeur web...
euh net, chez moi les &ccedil; (&#231;), &eacute; (&#233;), &agrave;
(&#224;), etc... apparaissent bien tels qu'ils sont cod&#233;s dans la page html.




Ou alors, je n'ai pas tout compris. En particulier comment un "&#233;" devient un "&#195;&#169;" ???



Voici juste pour info le code que j'ai utilis&#233;, bien que j'imagine que &#231;a ne soit pas ce qui te pose probl&#232;me.



procedure TForm1.Button1Click(Sender: TObject);

var TS: TStrings;

begin

  if OpenDialog1.Execute then

  begin    

    TS := TStringList.Create;

    try

      TS.LoadFromFile(OpenDialog1.FileName);

      ListBox1.Clear;

      ListBox1.Items.Assign(TS);

    finally

      TS.Free;

    end;

  end;

end;



Bonne prog'

Emandhal · Answer

oops UTF8Decode renvoie un WideString... Enfin bref, je pense que tu as deja un bonen piste 

Tout probl&#232;me a sa solution... Mais en g&#233;n&#233;ral, c'est jamais la bonne...

ni69 · Answer

Japee >> mon probl&#232;me est qu'il ne charge pas correctement les caract&#232;res "&#233;", "&#232;", "&#224;", etc... pas leurs &#233;quivalenbts html "&eacute", etc...
Mon projet est un convertisseur de caract&#232;res accentu&#233;s en leur &#233;quivalent html... donc au d&#233;part, j'ai des "&#233;"... dans le fichier html.
Emandhal >> merci je n'y avait pas pens&#233; 

Merci &#224; vous tous ! 

PS : En chargeant le texte dans un RichEdit, le probl&#232;me est aussi r&#233;solu 


@+
Bonne Prog'
Nico



<HR>
N'oubliez pas de cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient !

japee · Answer

Ok, ni69, je crois que j'ai compris. Je suis un peu long &#224; la d&#233;tente parfois. 

J'avais post&#233; un code &#224; ce sujet ici :



[code.aspx?id=27193 CONVERTIR LES CARACT&#200;RES SP&#201;CIAUX EN CODE HTML]



Ce code convertit les caract&#232;res accentu&#233;s en leur code html strict (pas symbolique, quoi).



Bonne prog'

ni69 · Answer

Merci japee j'avais d&#233;j&#224; vu ce code, mais j'avais un probl&#232;me pour ouvrir le fichier html, apr&#232;s, &#231;a allait tout seul, mais il fallait avoir les bons caract&#232;res au d&#233;part, sinon &#231;a convertissait rien du tout ! 


@+
Bonne Prog'
Nico



<HR>
N'oubliez pas de cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient !

Html - LoadFromFile

10 réponses

Votre réponse

Discussions similaires