probleme d'espace avec une "var" :-(

**weldoo** · 24/07/2006, 21h16

bonsoir a tous,
voila j'ai un petit probleme avec une varible (enfin je pense).

donc, je suis sur la réalisation d'un petit soft, qui a pour bute
de sauvegarder les mots clé pour une recherche sur google.

donc ajouter/suprimer des mots/thermes enregistré dans un tcombobox.

donc le probleme est que quand je clic sur recherche qui
m'ouvre une page explorer avec google, les mots recherché
sont tout collé entre eu :-( les espace inclu ne sont plus la !!!

je vous indique mon script :

Code :

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

1
2
3
4
5
6
7
procedure TForm1.Button1Click(Sender: TObject);
Var lien,adresse:String;
begin
lien:=(ComboBox1.Text);
adresse:='http://www.google.fr/search?q='+lien+'&btnG=Search';
ShellExecute(0,'OPEN',PChar(adresse), Nil, Nil, SW_SHOW);
end;

que pensez vous de cette erreur ???
moi je veut retrouver les espace includ

**Pedro** · 24/07/2006, 21h33

Salut

Tu peux faire comme ça:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Button1Click(Sender: TObject);
Var lien,adresse:String;
     i : integer;
begin
lien:='';
For i := 0 to ComboBox1.Items.Count-1 do
   lien := lien +' '+ ComBoBox1.Items[i];//ajoute chaque item à la suite en insérant un espace
Trim(Lien);//E,nlève les espaces à la fin et au début
adresse:='http://www.google.fr/search?q='+lien+'&btnG=Search';
ShellExecute(0,'OPEN',PChar(adresse), Nil, Nil, SW_SHOW);
end;

EDIT: il doit certainement y avoir une astuce aussi avec DelimitedText de TStrings. Voir

pour plus de détails

**weldoo** · 24/07/2006, 22h19

alors en faite,
je recherche a avoir les espaces entre les mots (dans un meme item).
1 item = une recherche.

le probleme est par exemple "pour un seul item":

"manger de la ..." "a midi et soir"

donne avec mon script

"mangerdela..." "amidietsoir"

le scrit que tu me donne, ajoute tous les items a la recherche avec un espace.
mais je sans que le résultat est pas loin, je creuse creuse

**Pedro** · 24/07/2006, 22h25

Si tu regardes bien sur Google, c'est pas des espaces mais des + qu'il faut mettre

Donc ajoute

Code :

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

1
2
 
lien := AnsiReplaceStr(lien,' ','+');

Et ça devrait être bon

**weldoo** · 24/07/2006, 23h04

de cette facon ?

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.Button1Click(Sender: TObject);
Var lien,adresse:String;
begin
lien:=(ComboBox1.Text);
lien:= AnsiReplaceText(lien,' ','+');
adresse:='http://www.google.fr/search?q='+lien+'&btnG=Search';
ShellExecute(0,'OPEN',PChar(adresse), Nil, Nil, SW_SHOW);
end;

je debute sur le delphi, mais je pensai deja a un truc comme replace.
la sa m'indique 'identificateur non déclaré"...

je cherche

**TicTacToe** · 25/07/2006, 11h03

Le '+' est la bonne solution pour Google comme l'a dit Pedro
Sinon, de manière générale il faut utiliser les code ascii dans une URL avec '%' devant.

L'espace est à remplacer par '%20' par exemple.

**Pedro** · 25/07/2006, 13h45

Salut

Effectivement comme le dit TicTacToe, le %20 remplace l'espace.
Il conviendrait toutefois de savoir si tu veux faire une recherche sur chacun de tes mots de chacun de tes Items, une recherche sur la phrase de chacun de tes items ou une recherche de la phrase construite en réunissant out tes Items...

**weldoo** · 26/07/2006, 19h07

il convient qu'il y a de "" qui indique google
qu'il doit faire une recherche par lot de mot ou pas pour l'item.

esque c'est juste ?

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.Button1Click(Sender: TObject);
Var lien,adresse:String;
begin
lien:=(ComboBox1.Text);
lien:= AnsiReplaceText(lien,' ','+');
adresse:='http://www.google.fr/search?q='+lien+'&btnG=Search';
ShellExecute(0,'OPEN',PChar(adresse), Nil, Nil, SW_SHOW);
end;