string byte char 0

Version imprimable

string byte char 0

bonjour, je me décide à poster car je sais plus quoi faire:marteau:

comment découper une chaine string contenant des caractères #0 (null 0 je sais pas le debogueur delphi affiche #0 en byte c'est le 0

j'interroge des serveurs diffèrent qui me renvoie tous un array de byte que je transforme en string avec:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Function TranslateByteToString(bMsg: TIdBytes): String; Var I: Integer; Begin Result := ''; For I := Low(bMsg) To High(bMsg) Do //on remplace les caractères 0 par saut de ligne linux sinon le string n'est pas affichable ni decoupable avec un tstringlist If bMsg[I] <> 0 Then Result := Result + Chr(bMsg[I]) Else Result := Result + Chr(10); End;
après je parse mon string selon le serveur, sauf qu'un serveur me renvoie en séparateur un caractère 0 que je remplace par des saut de ligne linux lors du passage de l'array de byte en string.

sinon mon tmemo n'affiche pas les string contenant des #0
et impossible d'exploser le string par le caractère zéro tout du moins j'ai pas trouvé d'ou ce post car je voudrai utiliser et renvoyer la réponse sans la modifier si possible...

j'utilise sa qui fonctionne avec les sauts de ligne etc mais pas le caractères #0
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 Function Explode(Ch: String; Sep: String = ';'): TStringList; Var Pos: Integer; Begin Pos := AnsiPos(Sep, Ch); Result := TStringList.Create; While Pos > 0 Do Begin Result.Add(Copy(Ch, 1, Pos - 1)); If Pos <= Length(Ch) Then Ch := Copy(Ch, Pos + Length(Sep), Length(Ch)); Pos := AnsiPos(Sep, Ch); End; If Length(Ch) > 0 Then Result.Add(Ch); End;CODE] ... Var Search: TStringList; Begin Search := Explode(FQueryResult, Chr(10)); Try ... Finally Search.Free; End;
je peut pas découper mon array de byte, obligé après sa conversion en string

et j'ai essayé avec
Code:

1 2 3 LineResult.LineBreak := Chr(10); LineResult.Text := FQueryResult;
avec chr(0); sa va pas

Delimiter et DelimitedText idem

merci pour votre aide. Je sais pas si j'ai été bien clair je m'y perd moi même:mur:

Cette procédure découpe une chaîne en fonction du séparateur défini, mais aussi des #0 ;).

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
procedure Explode(const aText :string; const aList :TStrings; const aSep :char = ';');
var
  PStart :PChar;
  PEnd   :PChar;
  PSep   :PChar;
  Len    :integer;
 
begin
  PStart := PChar(aText);
  PEnd   := PStart +Length(aText);
 
  while PStart < PEnd do
  begin
    PSep := AnsiStrScan(PStart, aSep);
 
    if Assigned(PSep)
    then Len := PSep -PStart
    else Len := StrLen(PStart);
 
    aList.Add(Copy(PStart, 1, Len));
    inc(PStart, Len +1);
  end;
end;

tu as aussi la fonction ExtractStrings (je sais pas depuis quelle version elle existe, moi je suis en D7), qui fait un peu la meme chose.
Sinon, pour parser ton TIdBytes, tu peux surement caster en pchar, avec un truc du genre :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 procedure xxx(bMsg: TIdBytes; SL: TStrings); var i : integer; s: string; begin i := 0; while i <= High(bMsg) do begin s := PChar(@bMsg[i]); Inc(i, Length(s) + 1); //+1 pour le 0 terminal; SL.Add(s); end; end;

12/02/2010, 12h01
ouiouioui

merci Andnotor j'ai utilisé ta méthode:bravo:

maintenant faut que je la modifie pour des séparateur allant jusqu'a 3 Char:pc:

j'ai mis résolu trop vite je bloque encore désolé pour le double post:fessee:

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
Procedure Explode(Const aText: String; Const aList: TStringList;
  Const aSep: Char = ';'; Const aSep1: Char = 'a'; Const aSep2: Char = 'a');
Var
  PStart: PChar;
  PEnd:   PChar;
  PSep:   PChar;
  Len:    Integer;
Begin
  PStart := PChar(aText);
  PEnd   := PStart + Length(aText);
  aList.Clear;
 
  While PStart < PEnd Do
  Begin
    PSep := AnsiStrScan(PStart, aSep);
 
    If Assigned(PSep) And
      ((aSep1 = 'a') Or (Copy(PStart, (PSep - PStart) + 1, 1) = aSep1)) And
      ((aSep2 = 'a') Or (Copy(PStart, (PSep - PStart) + 2, 1) = aSep2)) Then
    Begin
      Len := PSep - PStart;
    End
    Else
      Len := StrLen(PStart);
 
    aList.Add(Copy(PStart, 1, Len));
    Inc(PStart, Len + 1);
  End;
End;

Citation:

FQueryResult:='xdcffbbbssdfftbbbsdffbdddbbeddd';
Explode(FQueryResult, LineResult, 'b', 'b', 'b');

sa me découpe bien en 3 lignes
avec Explode(FQueryResult, LineResult, #0, #0, #0); sa fonctionne pas, avec un #0 oui mais pas plus:?

Il faudrait avoir plus d'exemples des différents chaînes que tu reçois. Mais comme exposé, c'est Inc(PStart, Len +1) qui devrait être à +3. (Pour autant qu'il y ait aussi 3 #0)

Tu peux aussi te passer de ces Copy dans tes tests:

Code:

1
2
3
    if Assigned(PSep)               and
       ((PSep +1)^ in ['a', aSep1]) and
       ((PSep +2)^ in ['a', aSep2]) then...

Maintenant, si il y a toujours les mêmes caractères comme séparateur, AnsiStrPos:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Procedure Explode(Const aText: String; Const aList: TStrings; Const aSep: string);
Var
  PStart: PChar;
  PEnd:   PChar;
  PSep:   PChar;
  Len:    Integer;
Begin
  PStart := PChar(aText);
  PEnd   := PStart + Length(aText);
  aList.Clear;
 
  While PStart < PEnd Do
  Begin
    PSep := AnsiStrPos(PStart, PChar(aSep));
 
    if Assigned(PSep)
    then Len := PSep -PStart
    else Len := StrLen(PStart);
 
    aList.Add(Copy(PStart, 1, Len));
    Inc(PStart, Len +Length(aSep));
  End;
End;

je ne montrerai pas mes 32 lignes de code qui fonctionne pas...8O
la je découpe comme sa:
Code:

1 2 3 4 5 6 For Pos := 1 To Length(FQueryResult) Do If FQueryResult[Pos] = #0 Then FQueryResult[Pos] := #10; LineResult.LineBreak := #10#10#10; LineResult.Text := FQueryResult;
ta fonction avec sa:
Code:

1 2 FQueryResult:='te0st' + #0 + 'tte1sst' + #0#0#0 + 'tes2t' + #0 + 'tes3t'; Explode(FQueryResult, LineResult, #0#0#0);
renvoie 4 lignes au lieu de 2, du coup je remplace tout les #0 et je decoupe avec LineBreak niveau performance je ne sais pas ce que sa donne plutôt que découper directement...

merci beaucoup