Discussion :

[Lolo1988]

Bonjour,

Sous Delphi6 :
Je souhaite récupérer des sous-chaines de caractères dans une chaine de caractères (plus exactement des chaines d'un TMemo), en repérant des positions de caractères autres que numériques, comme la tabulation.

ex :
Listechaine[0] := '-100 {tab} -200 {tab} 2356 {tab} MHz '...
Je cherche à récupérer les données numériques et les chaines de caractères.

Pos(#9,Listechaine[0]) ne fonctionne pas, et je ne vois pas comment détecter la présence de la tabulation. La recherche des espaces n'est pas valable non plus.

J'ai essayé avec char(9), char(265), mais ça ne donne rien...

Comment rechercher la position des tabulations, dans Pos(), copy(), etc... ?

Merci d'avance.

Laurent

[Pedro]

Salut

Essaie:

Code :

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

1
2
 
Pos(Chr(vk_Tab), Listechaine[0]);

[Lolo1988]

Ah, j'avais pas essayé ça... mais ça ne marche pas non plus...

Merci quand même !

Laurent

[Fabrice ROUXEL 1]

Je souhaite récupérer des sous-chaines de caractères dans une chaine de caractères (plus exactement des chaines d'un TMemo),

Je cherche à récupérer les données numériques et les chaines de caractères.

Tiens essayes cela:

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
69
70
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    ListBox1: TListBox;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
  sLine: String;
  SL: TStrings;
  i,deb: Integer;
begin
  ListBox1.Items.Clear;
  SLine := Memo1.Lines[0];
  SLine := StringReplace(SLine,' ',#13#10,[rfReplaceAll]); 
SL :=TStringList.Create;

  i := 1;
  deb :=1;
  SLine := Trim(SLine);
  
  while (i < length(SLine)) do
  begin
    if (SLine[i] = #13) then
    begin
      SL.Add(Copy(SLine, deb, i-deb));
      while ( (SLine[i] = #13) or (SLine[i] = #10) ) do
        Inc(i);
        deb := i;
    end;
    inc(i);
  end;
  if deb <> i then
  begin
    SL.Add(Copy(SLine, deb, Length(SLine)));
  end;

  for i := 0 to SL.Count-1 do
  ListBox1.Items.Add(SL[i]);
  SL.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Memo1.Lines.Add('   1 2 3 libelle1 4 5 6 libelle2     7 8 9    libelle3 ');
end;

end.

[Lolo1988]

En fait, je viens de contourner mon problème en m'inspirant d'un source de la FAQ :"comment extraire les mots d'une chaîne?"

http://delphi.developpez.com/faq/?pa...chaine#explode

(mais au lieu de détecter les caractères non désirés, je cherche les caractères désirés (lettres, nombres, signes + et - )).

Je vais quand même essayer ton code pour voir si c'est plus efficace.

Merci pour votre aide,

Laurent