Manipulation des chaînes d'une StringList.

Version imprimable

14/08/2015, 10h47
Pierre95

Manipulation des chaînes d'une StringList.

Bonjour,

Je développe une application dont l'un des traitements consiste à afficher dans un combobox les pistes d'un aéroport avec des données les concernant dans différents labels.
Je charge ces données à partir d'un fichier ini dont voici le format:
[AIRPORT]
......
LFPG;CHARLES-DE-GAULLE;392;CDG;49.009722;2.547778 (Structure: Code icao; Nom; Altitude(ft); Code iata; Latitude, Longitude)
......
[RUNWAYS]
.....
LFPG;08L;86;13829;148;13829;13829;338;0.1 (Structure: Code icao; N°Piste; Orient. magn.; Longueur; Largeur; Dist. dispo décoll.; Dist. dispo atterr.; Alt. seuil; Pente)
LFPG;08R;86;8858;197;8858;8858;336;0.2
LFPG;09L;86;8858;197;8858;8858;378;-0.2
LFPG;09R;86;13780;148;13780;13780;370;-0.1
LFPG;26L;266;8858;197;8858;8858;316;-0.2
LFPG;26R;266;13829;148;13829;13829;318;-0.1
LFPG;27L;266;13780;148;13780;13780;387;0.1
LFPG;27R;266;8858;197;8858;8858;392;0.2
.....

La sélection de l'aéroport est simple puisqu'elle ne fait appel qu'à une ligne unique par le code icao.
Pour la sélection des pistes, je charge une Stringlist avec toutes les pistes de l'aéroport choisi plus haut.

Mon problème est de séparer en sous-chaînes les lignes de la Stringlist afin d'y accéder séparément, genre DelimitedText afin de pouvoir les appeler dans les composants dédiés.

Auriez-vous une idée simple?

Merci
Codialement
Pierre

STOP !

non sérieux, faut arrêter de faire n'importe quoi. ce n'est pas parce que les données sont sous forme de texte qu'il faut aller les coller dans un TStringList ! ce sont des données structurées il faut donc les traiter comme tel !
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 type TRunway = record ... end; TAirport = record Name: string; ICAO : string; Runways: TArray<TRunway>; end; var Airports: TArray<TAirport>;
reste plus qu'à écrire une fonction qui charge le fichier dans Airports et là on peut faire des choses sérieuses.

;)

NB: la même chose peut être faite avec des classes, ça demande juste de gérer l'instanciation et la libération.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 type TRunway = class ... end; TAirport = class Name: string; ICAO : string; Runways: TObjectList<TRunway>; end; var Airports: TObjectList<TAirport>;

14/08/2015, 11h41
Pierre95

Merci beaucoup

Cordialement
Pierre

Bonjour !

Je ne sais pas si vous avez réussi à mettre en œuvre la solution proposée par Paul (qui est certainement la meilleure) mais comme je joue ces temps-ci avec les expressions régulières, je me suis amusé à traiter votre problème par ce moyen. Je me permets de présenter ma solution. L'expression régulière utilisée pourrait être améliorée, pour une détection plus fine, mais en l'occurrence il semble que le nombre de points-virgules soit un critère suffisant.

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
program Exercice_01;
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
{$IF CompilerVersion >= 22.0}
  RegularExpressionsCore;
{$ELSE}
  PerlRegex; (* http://www.regular-expressions.info/download/TPerlRegEx.zip *)
{$IFEND}
 
const
  SAMPLE: array[0..7] of string = (
    'LFPG;08L;86;13829;148;13829;13829;338;0.1',
    'LFPG;08R;86;8858;197;8858;8858;336;0.2',
    'LFPG;09L;86;8858;197;8858;8858;378;-0.2',
    'LFPG;09R;86;13780;148;13780;13780;370;-0.1',
    'LFPG;26L;266;8858;197;8858;8858;316;-0.2',
    'LFPG;26R;266;13829;148;13829;13829;318;-0.1',
    'LFPG;27L;266;13780;148;13780;13780;387;0.1',
    'LFPG;27R;266;8858;197;8858;8858;392;0.2'
);
 
var
  r: TPerlRegex;
  s: string;
 
begin
  r := TPerlRegEx.Create;
  r.RegEx := '(.+);(.+);(.+);(.+);(.+);(.+);(.+);(.+);(.+)';
 
  for s in SAMPLE do
  begin
    r.Subject := s;
    if r.Match then
    begin
      WriteLn('Ligne complète         : ', r.Groups[0]);
      WriteLn('Code ICAO              : ', r.Groups[1]);
      WriteLn('N° piste               : ', r.Groups[2]);
      WriteLn('Orient. magn.          : ', r.Groups[3]);
      WriteLn('Longueur               : ', r.Groups[4]);
      WriteLn('Largeur                : ', r.Groups[5]);
      WriteLn('Distance disp. décoll. : ', r.Groups[6]);
      WriteLn('Distance disp. atterr. : ', r.Groups[7]);
      WriteLn('Alt. seuil             : ', r.Groups[8]);
      WriteLn('Pente                  : ', r.Groups[9]);
    end;
  end;
 
  r.Free;
  ReadLn;
end.

24/08/2015, 14h03
ALWEBER

Bonjour,
En complément de la directive proposée par Paul tu peux utiliser delimitedtext avec ton TStringList pour décomposer chacune des lignes de ton StringList.
Voici un lien vers un exemple
stringlist-and-csv