Supprimer la fin d'une string

Version imprimable

15/06/2006, 19h37
Gaadek

Supprimer la fin d'une string

Coucou, je sais, c'est une question de newvie, mais y'a des fois, on doute de tout, même du plus simple!!

Alors la question du jour est toute bête:

J'ai un treeview avec des noeuds nommé ainsi:
- Un mot ou une chaine (ex: 'root', 'Mon système',...)
- Un mot ou chaine suivie d'un nombre entre parenthèses (ex: 'Musique (0)', Test (10563)',...

J'aimerais, lorsque je lis le Txt d'un noeud isoler uniquement le nom, et pas les parenthèses avec ce qu'il y a dedans:
- 'root' -> 'root'
- 'test (5000)' -> 'test'
- etc...

Comment s'y prendre pour faire ça le + proprement possible ??

Parce que les boucles à gogo pour lire la position du caractère '(', c'est pas cool, d'autant plus que si le caractère '(' n'existe pas, la copie foire (StrLcopy(Dest,Source,Position_( - 1) )

Merci
15/06/2006, 19h40
Pascal Jankowski

Regarde dans l'aide la fonction POS

Pos + Delete = solution!

Aller, le code pour les fénants ou les débutants:

Code:

1
2
3
4
5
6
7
8
9
10
11
procedure machin;
var
  s:string;
  i: integer;
begin
  s := 'test (10)';
  i := Pos(s,'(');
 
  if (i>0) then
    Delete(s,i-1,50); // 50 pour être sur de tout effacer!
end;

15/06/2006, 22h14
qi130

Tu peux utiliser LeftStr à la place du Delete...
16/06/2006, 07h52
Pascal Jankowski
Pour les fainéants, les débutants et surtout pour moi qui suis les deux...

@Gradeek
Ta solution ne peut pas fonctionner car POS doit être renseignée différemment. En effet, on indique en premier la sous-chaîne que l'on recherche et ensuite la chaîne dans laquelle on recherche.

D'autre part si ta chaîne fait plus de 100 caractères et que '(' se trouve en 3ème position alors ta procédure échouera.
Utilise length pour être certain d'effacer le restant de ta chaîne.
Code:

1 2 3 4 5 s := 'test (10)'; i := Pos('(',s); if i > 0 then Delete(s,i-1,length(s));
16/06/2006, 14h40
Philbzh
Plutot que de faire

Code:

Delete(s,i-1,length(s));

utilise plutot
Code:

1 2 3 4 5 6 7 i := Pos('(',s); if i > 0 then begin Delete(s,i,length(s)); s:=trim(s); end;
sinon :
'test (10)'->'test' mais 'test(10)'->'tes'
et si ton string commence par '(' rien ne sera supprimer.

Citation:

If count specifies more characters than remain starting at the index, Delete removes the rest of the string. If count is less than or equal to 0, no characters are deleted