Discussion :

[gobgob]

Ce topic est très sérieux !

Bon en fait j'aimerais savoir le nom de la fonction permettant de récuperer une portion de sring. Je m'explique. Supposons que ma string s contienne 30 caracteres et que je veuille tous les caracteres compris entre le dixième et le 27eme.

Je ne trouve pas de telle fonction dans l'aide delphi. Si elle n'existe pas tanpis je la coderai moi même.

Merci d'avance.

[cadetill]

Salut

Copy

A+

[tourlourou]

Code :

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

Tanga:=Copy(String,11,16);

[karami]

Je sais pas s'il existe une telle fonction, mais j'ai trouvé qlques fcts qui peuvent t'aider à coder la tienne.

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
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
 
unit FonctionsChaine;
 
interface
 
 
function droite(substr: string; s: string): string;
function DroiteDroite(substr: string; s: string): string;
function gauche(substr: string; s: string): string;
function NbSousChaine(substr: string; s: string): integer;
function NDroite(substr: string; s: string;n:integer): string;
function GaucheNDroite(substr: string; s: string;n:integer): string;
 
implementation
 
function droite(substr: string; s: string): string;
begin
  if pos(substr,s)=0 then result:='' else
    result:=copy(s, pos(substr, s)+length(substr), length(s)-pos(substr, s)+length(substr));
end;
 
function droiteDroite(substr: string; s: string): string;
{============================================================================}
{ fonction qui renvoie la sous chaine de caractère situè à droite de la sous }
{ chaine substr située la plus à droite                                      }
{ ex: si substr = '\' et S= 'truc\tr\essai.exe droiteDroite renvoie essai.exe}
{============================================================================}
begin
  Repeat
    S:=droite(substr,s);
  until pos(substr,s)=0;
  result:=S;
end;
 
function gauche(substr: string; s: string): string;
{============================================================================}
{ fonction qui renvoie la sous chaine de caractère situè à gauche de la sous }
{ chaine substr                                                              }
{ ex: si substr = '\' et S= 'truc\tr\essai.exe' gauche renvoie truc           }
{============================================================================}
begin
  result:=copy(s, 1, pos(substr, s)-1);
end;
 
function NbSousChaine(substr: string; s: string): integer;
{==================================================================================}
{ renvoie le nombre de fois que la sous chaine substr est présente dans la chaine S}
{==================================================================================}
begin
  result:=0;
  while pos(substr,s)<>0 do
  begin
    S:=droite(substr,s);
    inc(result);
  end;
end;
 
function NDroite(substr: string; s: string;n:integer): string;
{==============================================================================}
{ renvoie ce qui est à droite de la n ieme sous chaine substr de la chaine S   }
{==============================================================================}
var i:integer;
begin
  for i:=1 to n do
  begin
    S:=droite(substr,s);
  end;
  result:=S;
end;
 
function GaucheNDroite(substr: string; s: string;n:integer): string;
{==============================================================================}
{ renvoie ce qui est à gauche de la droite de la n ieme sous chaine substr     }
{ de la chaine S                                                               }
{ ex : GaucheNDroite('/','c:machin\truc\essai.exe',1) renvoie 'truc'           }
{ Permet d'extraire un à un les éléments d'une chaine séparés par un séparateur}
{==============================================================================}
var i:integer;
begin
  S:=S+substr;
  for i:=1 to n do
  begin
    S:=copy(s, pos(substr, s)+length(substr), length(s)-pos(substr, s)+length(substr));
  end;
  result:=copy(s, 1, pos(substr, s)-1);
end;
 
 
end.

[karami]

J'ai pas vu les autres posts, donc ça existe, c'est bien à connaitre.

[gobgob]

Wow merci à tous !

[evarisnea]

je ne voudrais pas être rabat joie ,mais à l'avenir, pense à rechercher un peu sur le forum avant de poster une question. en effet si tu avais pris le temps de le faire, tu aurais trouvé plusieurs réponses à ta question sans avoir besoin de la poser.

[karami]

je ne voudrais pas être rabat joie ,mais à l'avenir, pense à rechercher un peu sur le forum avant de poster une question. en effet si tu avais pris le temps de le faire, tu aurais trouvé plusieurs réponses à ta question sans avoir besoin de la poser.

je ne voudrai pas etre Bafoussam joie , mais c'est pas moi qui a posé la question, il te suffira de voir le 1er post pour le savoir .

[evarisnea]

je ne voudrai pas etre Bafoussam joie , mais c'est pas moi qui a posé la question, il te suffira de voir le 1er post pour le savoir .

Bafoussam joie ?
désolé karami, mais mon post ne t'était pas destiné, mais plutôt à gobgob l'auteur de la discussion.