Discussion :

[xenos]

Bonjour,

J'ai une chaine String qui contient à un moment le caractère " (double guillemet). J'aimerais supprimer tous les caractères qui se trouvent après le ".

Je reçois : abcde"fghij

J'aimerais obtenir : abcde

Comment puis je procéder ?

D'avance merci pour vos réponses.



xenos

[ero-sennin]

Salut,

Je te propose ce code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.Button1Click(Sender: TObject);
var
MaChaine:string;
Index:integer;
NouvelleChaine:string;
begin
MaChaine:='abcde"fghij';
// On récupère la position du guillement
index:=pos('"',MaChaine);
//On fait un découpage par la gauche
NouvelleChaine:=LeftStr(MaChaine,length(MaChaine)-index);
ShowMessage(NouvelleChaine);
end;

A+

[banban54]

bonsoir

Code :

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

1
2
 
machaine := copy(machaine, 1, pos('"', machaine) -1);

devrait fonctionner
à+

[ero-sennin]

Je vais pinailler lol.

Il vaut mieux déclarer une nouvelle variable pour ne pas perdre les données de la première :

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.Button1Click(Sender: TObject);
var
MaChaine,NouvelleChaine:string;
begin
  MaChaine:='abcde"fghij';
  NouvelleChaine := copy(MaChaine, 1, pos('"', MaChaine)-1);
  ShowMessage(NouvelleChaine);
end;

[EDIT] Tu as corrigé ton erreur banban54 J'ai rien à rajouter

[banban54]

et oui, j'étais à -1 près!
à+

[xenos]

Un grand merci à vous deux, ero-sennin et banban54.

Ca fonctionne très bien.

Bon développement à tous.



xenos

[Archimède]

sinon en t'inspirant d'un post récent avec très de modif tu faisais ça :

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
 
  c,cmod:string;
    function Trunc(const S: string): string;
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
c:='abc"dft';
cmod:=Trunc(c);
showmessage(cmod);
end;
 
function Tform1.trunc(const S: string): string;
var i,L: Integer;
begin
  i := 1;
  L := Length(S);
  while (i <= L) and (S[i]<>'"') do
  begin
    result := Copy(S,1,i);
    Inc(i);
  end;
end;
 
 
 
end.

[xenos]

Merci pour ta réponse Archimède.

Mais bon, cette solution reste "légèrement" plus longue que :

Code :

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

machaine := copy(machaine, 1, pos('"', machaine) -1);

[Archimède]

c'est vrai... c'est bien d'avoir cependant plusieurs solutions...
et la réponse était pour toi à portée de main avec les derniers posts...
bon code

[ero-sennin]

Un petit tag ?