Problème pour faire des ajouts de caractères à une page HTML

Question

Bonjour, J'ai une page HTML existante dans lequel je veux faire des ajouts de caractères. J'affiche ensuite le tout dans un WebBrowser. Pour ce faire, je mémorise l'ensemble du code HTML de ma page existante puis je mémorise mes ajouts, jusque là je sais à peu prés faire… Mon problème par contre, c'est que mes ajouts je les saisis dans un RichEdit et quand j'affiche mes modifications (Ajout avec Page Existante) dans mon WebBrowser, je perds tous mes retours à la ligne (j’ai mon texte qui est tout agglutiné à la suite). Je ne sais pas trop comment le résoudre, si vous avez une idée c'est volontiers. Merci par avance, Voici mon code : var PageHTMLenCours, Ajout : string;Var TexteHTML : TStringList; begin // On mémorise le code HTML de la page en cours PageHTMLenCours := (WebBrowser1.Document as IHTMLDocument3).documentElement.outerhtml; // Mémorise l'ajout dans un String Ajout:=RichEdit1.Text; // Contruction du mail recus en page HTML TexteHTML:=TStringList.create; // Initialisation de la StringList // Defini le code HTML de la page HTML qui va être créée apres (Ajout + Code de la page en cours) TexteHTML.Add(''+Ajout+''+PageHTMLenCours); // Enregistre le corps du message TexteHTML.SaveToFile('c:\Test.html'); // Efface la page affichée precedement WebBrowser1.Navigate('About:Blank'); // Affiche la nouvelle page tenant compte de l'ajout WebBrowser1.Navigate(Form2.Edit53.Text+'\'+Form2.Edit55.Text+'\Test.html');

vieuxpere · Answer

En fait pour simplifier, je souhaite recuperer les retours chariots de mon richedit. Je pense qu'il faut pour les prendre en compte soit modifier mon code HTML d'insertion (''+Ajout+'') soit ma variable "Ajout" qui est enstring alors que peut-être il faut TStrings.

Francky23012301 · Answer

Je craque












. 

Je te propose une chose camarade : met toi d'accord avec toi même sur une stratégie une fois pour toute 
 et n'en change plus. Quand cela sera fait revient nous voir .

vieuxpere · Answer

Bonjour Francky, Je sollicite le forum pour des questions différentes, les problèmes énoncés précédemment ont été en grande partie résolus (beaucoup grâce à toi d'ailleurs). Pour ce souci là, mon code marche mais je ne sais pas récupérer les retours à la ligne, j'ai tout à la suite. Je pense qu'il faut structurer différemment : "Ajout:=RichEdit1.Text" et/ou "TexteHTML.Add(''+Ajout+''+PageHTMLenCours)" Si quelqu'un a une idée, c'est volontiers.

Bacterius · Answer

N'utilise pas le WebBrowser : il signifie Internet Explorer.


Cordialement, Bacterius !

vieuxpere · Answer

J'ai fini par trouver :


 Ajout:=StringReplace(RichEdit1.Text,#13,'
',[rfReplaceAll]); 
// Si on a un saut de ligne (#13), alors on le remplace par l'équivalent HTML (
)

En tous cas, merci à tous !

Problème pour faire des ajouts de caractères à une page HTML

5 réponses

Votre réponse

Discussions similaires