Comment tout supprimer après le caractère " dans une String ?

Version imprimable

02/12/2007, 18h44
xenos

Comment tout supprimer après le caractère " dans une String ?

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

Salut,

Je te propose ce code:

Code:

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+ :P

bonsoir
Code:

1 2 machaine := copy(machaine, 1, pos('"', machaine) -1);
devrait fonctionner
à+

Je vais pinailler lol.

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

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 :mrgreen:

02/12/2007, 19h07
banban54

et oui, j'étais à -1 près!
à+
02/12/2007, 19h13
xenos

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

Ca fonctionne très bien.

Bon développement à tous.

xenos

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

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
 
  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.

02/12/2007, 20h05
xenos

Merci pour ta réponse Archimède.

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

Code:

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

:D
02/12/2007, 20h19
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 ;)
02/12/2007, 20h54
ero-sennin

Un petit tag :resolu: ?