vk_return to
Résolu

Question

Salut,

Bon voil&#224; jesuis en train de bosser sur un petit projet personnel pour transformer mes pages txt en fichier HTML.

J'utilise deux memo.
Une qui &#233;crit normalement et l'autre qui transforme otut ce qu'il faut.
Je change donc les accents en caract&#232;res correct, etc.

Mais bon plus gros soucis est en faites de prendre en compte quand j'appuie sur la touche entr&#233;e.

Voici mon source :

function TextToHtml(Ch: String): String;
const
  MinusculesAccentuees =
  ['&#224;', '&#226;', '&#228;', '&#233;', '&#232;', '&#234;', '&#235;', '&#238;', '&#239;', '&#244;', '&#246;', '&#249;', '&#251;', '&#252;', '&#231;'];
  MajusculesAccentuees =
  ['&#192;', '&#194;', '&#196;', '&#201;', '&#200;', '&#202;', '&#203;', '&#206;', '&#207;', '&#212;', '&#214;', '&#217;', '&#219;', '&#220;', '&#199;'];
  // Autres = [..];
  Modif = MinusculesAccentuees + MajusculesAccentuees; // + Autres (&#233;ventuellement)
var
  i: Integer;
  s: String;
begin
  Result := '';
  for i := 1 to Length(Ch) do
  begin
    if (Ch[i] in Modif) then
      s := '&#' + IntToStr(Ord(Ch[i])) + ';'
    else
      s := Ch[i];
    Result := Concat(Result, s);
  end;
end;

procedure TForm1.Memo1Change(Sender: TObject);
begin
  Memo2.Text := Memo1.Text;

  Memo2.Text := TextToHtml(Memo2.Text);
end;

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
  if GetKeyState(VK_RETURN) < 0 then
  Memo2.Lines.Add('
');
end;

J'essaye de faire simple au possible, pour quel'on puisse reprendre si on le souhaite ma source par la suite...

Mais bien sur mon 
 ne reste pas ce qui parait logique car il recopie dans memo2 ce qu'il y a dans memo1.
Par contre les caract&#232;re accentu&#233;s et tout ca reste inchang&#233; car il transforme en permanence les caract&#232;res...

Donc le mieux serait de rajouter quelque chose dans la fonction "TextToHtml" pour qu'il prenne en compte le retour chariot, mais je ne voit pas comment faire, pourriez-vous m'aider si'l vous plait ?

cs_Delphiprog · Accepted Answer

Le code dans Memo1KeyPress n'est plus utile avec ce qui suit :

function TextToHtml(const Text: string): string;
const
  MinusculesAccentuees = 
    ['&#224;', '&#226;', '&#228;', '&#233;', '&#232;', '&#234;', '&#235;', '&#238;', '&#239;', '&#244;', '&#246;', '&#249;', '&#251;', '&#252;',
    '&#231;'];
  MajusculesAccentuees =
    ['&#192;', '&#194;', '&#196;', '&#201;', '&#200;', '&#202;', '&#203;', '&#206;', '&#207;', '&#212;', '&#214;', '&#217;', '&#219;', '&#220;',
    '&#199;'];
  // Autres = [..];
  Modif = MinusculesAccentuees + MajusculesAccentuees;
  // + Autres (&#233;ventuellement)
var
  i: Integer;
  c: char;
begin
  Result := '';
  i := 1;
   while  i < Length(Text) do
begin
    c : = Text[i];
    if (c in Modif) then
      Result :=  Result + '&amp;#' + IntToStr(Ord(c)) + ';'
else
begin
 case  c of
{$IFDEF MSWindows}
#13:
          begin
            Result : = result + '
' + sLineBreak;
            //on saute le caract&#232;re LineFeed qui suit
            inc(i);
          end;
{$ENDIF}
{$IFDEF Linux}
        sLineBreak: Result :=  Result + '
' + c;
{$ENDIF}
else
        Result := Result + c;
       end ;
    end;
    inc(i);
  end;

end;

procedure TForm1.Memo1Change(Sender: TObject);
begin
  Memo2.Text : = TextToHtml(Memo1.Text);
end;

Pr&#233;cisions :
1- Pour acc&#233;lerer le traitement, l'argument Ch a &#233;t&#233; remplac&#233; par Text pour mieux refl&#233;ter le contenu transmis. 

2- Pour optimiser le temps de traitement, il est maintenant transmis par adresse pour &#233;viter des copies syst&#233;matiquement en m&#233;moire &#224; chaque frappe de touche dans Memo1.

3- Affectation du i&#232;me caract&#232;re de Text &#224; un caract&#232;re de type char. Ceci permet de clarifier le code en utilisant une structure Case..of au lieu d'une suite de if imbriqu&#233;s.

4- La boucle For a &#233;t&#233; remplac&#233;e par une structure while, afin de pouvoir incr&#233;menter la valeur de i quand c'est n&#233;cessaire. C'est notamment le cas du traitement du retour chariot qui, sous Windows a une longueur de 2 caract&#232;res alors que, sous Linux, sa longueur n'est que de 1 (cf. directives de compilation utilis&#233;es dans le code).

5- La constante sLineBreak n'est apparue qu'&#224; partir de Delphi 6 (Kylix est sorti &#224; ce moment l&#224;). Si vous n'en disposez pas, d&#233;clarez simplement une constante sLineBreak = #13#10; .

6- Dans Memo1Change, il n'y a plus qu'une seule affectation, celle du contenu de memo1 transform&#233;. Ca suffit amplement !


<HR color=#008000>
Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.

Also know as · Answer

C'est sublime ! 

Y'a UN seul probl&#232;me quand on le test, il y a un d&#233;calage entre memo1 et memo2.
Si je tape par Exemple "Delphifr c'est super" dans memo 1, et bien dans memo 2 il va m'&#233;crire "Delphifr c'est supe", j'ai un d&#233;calage donc d'une lettre, je dois donc finir par un espace pour finir le texte mais ca c'est pas bien grave

Merci beaucoup DelphiProg !!!

cs_Delphiprog · Answer

Mea culpa. Autant pour moi.
Au lieu de : 
while i < Length(Text) do
il faut mettre :while i <=  Length(Text)  do 

<hr color ="#008000">Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.

Also know as · Answer

Merci grand chef !

cs_Delphiprog · Answer

Surtout pas grand chef apr&#232;s une erreur de d&#233;butant comme celle-ci 

<hr color="#008000">Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.

Also know as · Answer

mah si si si, je maintiens ce que je dis !
JE suis d&#233;butant (et tu en sais quelque chose ).
Alors d&#233;j&#224; modifier la source comme tu viens de le faire, je comprend plus rien, enfin plus je le regarde et plus je commence &#224; comprendre son principe mais ca reste tout de m&#234;me vague pour moi 

Donc si, grand chef 

@+

cs_Delphiprog · Answer

J'ai pourtant pris le temps et la peine de mettre des pr&#233;cisions. Relis les bien.

<hr color="#008000">Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.

Also know as · Answer

Oui je sais, et justement je les ai lu avec grande attention, mais j'ai toujorus parfois quelque blocages sur des trucs de bases que j'arrive pas &#224; assimiler

Vk_return to <br>

8 réponses

Votre réponse

Discussions similaires