Discussion :

[secretman]

J'ai une clé du registre qui me renvoie une ou plusieurs chaine unique comprenant un chemin suivi de 2 valeurs numériques (au format chaine string) (ex : c:\Pagefiles.sys 4096 1028)

J'aimerais récuperer ce chemin mais si je prend l'espace comme repaire de position, il peut se trouver des chemins comprenant des espaces
ex : "C:\program files 4096 1028".

Me faut-il tester chaque caractère pour déterminer s'il s'agit d'une valeur numérique et comment ?

Merci.

Dan

[Sub0]

Si les 2 derniers mots sont toujours des nombres, tu peux considérer que les mots précédents sont le chemin... Voici la fonction ExplodeLazy qui te permettra de récupérer chaque mot d'une chaîne. Le code se trouve dans ce post. Si les 2 derniers mots sont des nombres, il te suffira alors de refusionner le chemin :

Code :

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

1
2
3
Chemin := '';
For x:=0 To List.Count - 3 Do 
  Chemin := Chemin + List[x];

Me faut-il tester chaque caractère pour déterminer s'il s'agit d'une valeur numérique et comment ?

Tu peux éventuellemet utiliser la fonction Val pour vérifier si le mot est un nombre plutôt que de tester chaque caractère.

[Cl@udius]

Salut

Bon je vais aller de ma petite solution, peut-être plus simple à mettre en place que la solution de Sub0

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
function GetPathFromString(const AValue: string): string;
var
  ADone: Boolean;
begin
  result := AValue;
  if (result[1] in ['''', '"']) then
    result := Copy(result, 2, MaxInt);
  ADone := False;
  repeat
    if result[Length(result)] in [' ', '0'..'9', '''', '"'] then
      result := Copy(result, 1, Length(result) - 1)
    else
      ADone := True;
  until (ADone) or (result = '');
end;

@+ Claudius

[Sub0]

Cl@udius, je ne sais pas si ton code tient compte des chemins qui possèderaient un nombre... Par exemple, si tu as une chaîne du genre : C:\program files\1000 4096 1028

[Cl@udius]

Cl@udius, je ne sais pas si ton code tient compte des chemins qui possèderaient un nombre...

Ah ah! Je suis tombé dans le piège !
Je regrette subitement de t'avoir tiré la langue !!!

Reste effectivement ExplodeLazy.
@+

[secretman]

Sub0, aurais-tu un exemple d'appel de ta fonction ExplodeLazy ?

notamment pour le paramètre "out A: Types.TStringDynArray", je ne voie pas comment faire...

cela sera plus parlant,

Merci,

Dan

[ShaiLeTroll]

ne pas oublier l'unité Types dans les uses

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure AfficheExplode(const Value: string);
var
   StrArray: Types.TStringDynArray;
   iStr: Integer;  
begin
  ExplodeLazy(Value, StrArray, ' ');
  for iStr := Low(StrArray) to High(StrArray) do
     Memo.Lines.Add(StrArray[iStr]);
end;

cela donnerai par exemple

Code :

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

C:\program files\1000 4096 1028

Code :

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

1
2
3
C:\program files\1000
4096
1028

tu peux utiliser mon autre fonction Explode qui possède plus de paramètre qu'ExplodeLazy pour obtenir

Code :

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

C:\program files\1000 4096 1028

Code :

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

1
2
3
4
5
6
C:
program
files
1000
4096
1028

avec le même genre d'appel à un détail près '\ ' au lieu de ' '

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure AfficheExplode(const Value: string);
var
   StrArray: Types.TStringDynArray;
   iStr: Integer;  
begin
  Explode(Value, StrArray, '\ ');
  for iStr := Low(StrArray) to High(StrArray) do
     Memo.Lines.Add(StrArray[iStr]);
end;