parser fichier texte pour avoir un doc html !!

Version imprimable

bonjour, pour parser le texte j'utilise cette fonction :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
function ReplaceSub(str, sub1, sub2: String): String;
var
  aPos: Integer;
  rslt: String;
begin
  aPos := Pos(sub1, str);
  rslt := '';
  while (aPos <> 0) do
    begin
      rslt := rslt + Copy(str, 1, aPos - 1) + sub2;
      Delete(str, 1, aPos + Length(sub1)-1);
      aPos := Pos(sub1, str);
    end;
  Result := rslt + str;
end;

Le remplacement de certain caractères dans mon texte se fait en cliquant sur un bouton avec cette procédur :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
procedure TForm1.Button22Click(Sender: TObject);
var
 my_file : TextFile;
 my_string : String;
 number_of_line : integer;
begin
Memo5.Text := '<span style="font-size:12px;font-family:Lucida Grande"><pre>' + Memo3.Text + '</pre></span>';
 AssignFile(my_file, 'C:\index.html');
Rewrite(my_file);
 
with Memo5 do
begin
For number_of_line := 0 To Lines.Count - 1 Do
ReplaceSub(Memo5.Text, '[g]', '<b>');
ReplaceSub(Memo5.Text, '[/g]', '</b>');
ReplaceSub(Memo5.Text, '[s]', '<u>');
ReplaceSub(Memo5.Text, '[/s]', '</u>');
ReplaceSub(Memo5.Text, '[i]', '<i>');
ReplaceSub(Memo5.Text, '[/i]', '</i>');
ReplaceSub(Memo5.Text, '[align=center]', '<div align=center>');
ReplaceSub(Memo5.Text, '[/align]]', '</div>');
ReplaceSub(Memo5.Text, '[align=left]', '<div align=left>');
ReplaceSub(Memo5.Text, '[/align]]', '</div>');
ReplaceSub(Memo5.Text, '[align=right]', '<div align=right>');
ReplaceSub(Memo5.Text, '[/align]]', '</div>');
End;
 
Writeln(my_file, Memo5.Text);
closeFile(my_file);
WebBrowser1.Navigate('C:\index.html');
end;

==> Problème : le résultat ne change pas du texte initial :s

30/03/2006, 14h56
MD Software

C'est normal, tu ne récupères pas la valeur modifiée.
Ta fonction ReplaceSub retourne un string que tu n'utilises pas
30/03/2006, 14h58
ryko

Bonjour,

tu transformes ta FUNCTION en PROCEDURE et tu passes ta ligne en VAR
30/03/2006, 14h59
avogadro

de qu'elle maniere puis régler le problème???

Cest gooooood, la procédure finale est :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
procedure TForm1.Button22Click(Sender: TObject);
var
 my_file : TextFile;
 my_string : String;
 number_of_line : integer;
begin
Memo5.Text := '<span style="font-size:12px;font-family:Lucida Grande"><pre>' + Memo3.Text + '</pre></span>';
 AssignFile(my_file, 'C:\index.html');
Rewrite(my_file);
 
with Memo5 do
begin
For number_of_line := 0 To Lines.Count - 1 Do
begin
Lines.Strings[number_of_line] := ReplaceSub(Lines.Strings[number_of_line], '[g]', '<b>');
Lines.Strings[number_of_line] := ReplaceSub(Lines.Strings[number_of_line], '[/g]', '</b>');
Lines.Strings[number_of_line] := ReplaceSub(Lines.Strings[number_of_line], '[s]', '<u>');
Lines.Strings[number_of_line] := ReplaceSub(Lines.Strings[number_of_line], '[/s]', '</u>');
Lines.Strings[number_of_line] := ReplaceSub(Lines.Strings[number_of_line], '[i]', '<i>');
Lines.Strings[number_of_line] := ReplaceSub(Lines.Strings[number_of_line], '[/i]', '</i>');
Lines.Strings[number_of_line] := ReplaceSub(Lines.Strings[number_of_line], '[align=center]', '<div align=center>');
Lines.Strings[number_of_line] := ReplaceSub(Lines.Strings[number_of_line], '[/align]]', '</div>');
Lines.Strings[number_of_line] := ReplaceSub(Lines.Strings[number_of_line], '[align=left]', '<div align=left>');
Lines.Strings[number_of_line] := ReplaceSub(Lines.Strings[number_of_line], '[/align]]', '</div>');
Lines.Strings[number_of_line] := ReplaceSub(Lines.Strings[number_of_line], '[align=right]', '<div align=right>');
Lines.Strings[number_of_line] := ReplaceSub(Lines.Strings[number_of_line], '[/align]]', '</div>');
end;
End;
 
Writeln(my_file, Memo5.Text);
closeFile(my_file);
WebBrowser1.Navigate('C:\index.html');
end;