Discussion :

[portu]

Bonjour,

Je suis actuellement sur un projet qui manipule de l'unicode et je cherche une fonction de remplacement de chainet de texte.

Mais bon, Delphi 7 n'est pas très à l'aise avec l'unicode ou plutôt n'offre pas des tas de bibliothèques qui permet de le manipuler.

J'ai vu qu'il y avait le compo TNT mais je ne souhaite vraiment pas utiliser de composants non standard dans ce projet.

Avez-vous sous le coude un fonction que fait celà ?

Merci d'avance

[ShaiLeTroll]

StringReplace, tu as le code dans SysUtils, tu remplace string par WideString dans tout le code
AnsiUpperCase par WideUpperCase

AnsiPos tu la réécris en WidePos (utilise l'algo de PosEx dans StrUtils, suffit de remplace string par WideString, et d'enlever l'appel à Pos)

Copy si tu manque de confiance, remplace par CopyMemory en considérant la taille du char à 2

Tu devrais pouvoir nous finir quelques chose de sympa, en fouillant sur Koders, tu pourras aussi trouver les fonctions qui manque pour refaire AnsiPos en WidePos (avec l'algo d'origine de AnsiPos et non celui de PosEx)

[portu]

OK Merci, je vais essayer de faire ça !

[portu]

Ca à l'air de marcher. Voici le code :

Code :

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

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
function WidePos(const SubStr, S: WideString): Integer;
var
  I,X: Integer;
  Len, LenSubStr: Integer;
begin
    I := 1;
    LenSubStr := Length(SubStr);
    Len := Length(S) - LenSubStr + 1;
    while I <= Len do
    begin
      if S[I] = SubStr[1] then
      begin
        X := 1;
        while (X < LenSubStr) and (S[I + X] = SubStr[X + 1]) do
          Inc(X);
        if (X = LenSubStr) then
        begin
          Result := I;
          exit;
        end;
      end;
      Inc(I);
    end;
    Result := 0;
end;
function WCopy(const S : WideString;index : Integer; Count : Integer):WideString;
var
  R : widestring;
begin
  SetLength(R,Count);
  CopyMemory(PWideChar(R),PWideChar(S)+Index-1,Count*2);
  Result := R;
end;
function WideStringReplace(const S, OldPattern, NewPattern: WideString;
  Flags: TReplaceFlags): WideString;
var
  SearchStr, Patt, NewStr: WideString;
  Offset: Integer;
begin
  if rfIgnoreCase in Flags then
  begin
    SearchStr := WideUpperCase(S);
    Patt := WideUpperCase(OldPattern);
  end else
  begin
    SearchStr := S;
    Patt := OldPattern;
  end;
  NewStr := S;
  Result := '';
  while SearchStr <> '' do
  begin
    Offset := WidePos(Patt, SearchStr);
    if Offset = 0 then
    begin
      Result := Result + NewStr;
      Break;
    end;
    Result := Result + WCopy(NewStr, 1, Offset - 1) + NewPattern;
    NewStr := WCopy(NewStr, Offset + Length(OldPattern), Length(S)-Offset-Length(OldPattern)+1);
    if not (rfReplaceAll in Flags) then
    begin
      Result := Result + NewStr;
      Break;
    end;
    SearchStr := WCopy(SearchStr, Offset + Length(Patt), Length(S)-Offset-Length(OldPattern)+1);
  end;
end;

Mais je ne suis pas très sûr du code de la fonction WCopy...

[ShaiLeTroll]

Tu dois pouvoir simplifier mais cela me semble bien !
Tu dois pouvoir accéder à l'adresse dans S via [], à tester

Code :

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

1
2
3
4
5
function WCopy(const S : WideString; index : Integer; Count: Integer):WideString;
begin
  SetLength(Result, Count);
  CopyMemory(PWideChar(Result), PWideChar(S[Index]), Count * SizeOf(WideChar));
end;

[portu]

OK parfait Merci.

J'ai encore une petite question concernant unicode.
J'essaie de charger un fichier UTF-8 dans un TMemoryStream. Jusque là OK. Mais quand je veux charger un var WideString, j'ai l'impression qu'il ne charge pas avec le bon codage. Quand j'inspecte la valeur , je vois des caractères du style "?????4???". Chose qui ne m'arrange pas vu que ma fonction WideStringReplace ne fonction pas dans ce cas de figure.

Aurai-je oublié quelque chose ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
  S : TMemoryStream;
  Content : WideString;
begin
  S := TMemoryStream.Create;
  try
    S.LoadFromFile('c:\Test.xml');
    S.Position := 0;
    SetLength(Content,S.Size);
    S.Read(Content[1],Length(Content));
    S.Clear;
    Content := WideStringReplace(Content,'test','',[]);
    S.Write(Content[1],Length(Content));
    S.SaveToFile('c:\test.out');
  finally
    S.Free;
  end;

[portu]

Mais en fait, UTF8 c'est codé sur 8 bits donc ça peut tenir dans un string non ?

[ShaiLeTroll]

Tu as le type UTF8String qui n'est ni plus ni moins une string que l'on manupile avec UTF8Decode et UTF8Encode
ou Utf8ToUnicode pour un WideString (PWideChar)

[Andnotor]

Quand j'inspecte la valeur , je vois des caractères du style "?????4???".

Pas sûr que D7 puisse inspecter de l'unicode .

Sinon, SetLength(Content,...) est 2x trop grand. Content attend une taille en WideChar, mais TMemoryStream.Size renvoie une taille en octet.

Enfin, si ton fichier est unicode, il a peut-être un tag $FEFF en début de fichier. Il faudrait lire ce word en premier.

[portu]

Pfff quelle punition l'unicode avec delphi 7....

Tant que j'y suis, je vais vous expliquer le but de mon travail (On ne sais jamais, peut être que quelqu'un aura une meilleure idée que la mienne).

J'ai dans une table paradox (), un champ qui contient un document zippé xml codé en UTF8. A l'aide d'un XSL, je transforme le XML en HTML que j'affiche dans un TWebBrowser. J'utilise pour la transormation TXMLDocument et TXSL????.

Jusqu'à présent, on me fournissait des xml en ISO-???? (latin-1) et je n'avais pas (trop) de problème.

Maintenant, je ne sais pas si les composants TXMLDocument et TXSL???? peuvent contenir et générer de l'UTF8.

Avez-vous déjà été confronté à ce genre de problèmes ?

Merci

[Montor]

Le problèmefréquent avec Xml c'est les caractères d'accents mais le fait d'ajouter au début

Code xml :

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

<?xml  encoding="UTF-8"?>