Les suggestions de Google sur une ComboBox

Version imprimable

19/06/2010, 01h39
Eric_M

Les suggestions de Google sur une ComboBox

Bonjour à tous,

J'ai récemment fait la découverte d'une adresse url qui permet de montrer les suggestions de Google comme ceci:

Citation:

["Developp",["developphp.com","developed","developpe","developing","developpez.com","developpement durable","developper conjugation","development","developpement limite","develop"]]

(Developp est ma requête et la suite se trouve à être les suggestions Google)

Voici l'url:
http://suggestqueries.google.com/com...refox&hl=en&q= VOTRE REQUÊTE ICI

(Cet url n'est pas compatible avec Internet Explorer)

Je voudrais donc qu'à chaque fois que je tape tu texte dans un ComboBox, un WebBrowser caché naviguerait comme ceci:

Code:

WebBrowser1.Navigate("http://suggestqueries.google.com/complete/search?output=firefox&client=firefox&hl=en&q=" & ComboBox.Text)

Avec un certain code, WebBrowser1 enverrait les suggestions dans une liste déroulante en dessous de la ComboBox.

Est-ce faisable selon vous?
Si oui, expliquez moi s.v.p. comment.

Merci d'avance.
25/06/2010, 17h41
Eric_M

Bon,

Je suis capable d'insérer les suggestions dans une RichTextBox.
Je sais qu'il existe une méthode pour rechercher le texte dans une RichTextBox mais je ne sais pas laquel.

Donc, j'aimerais pouvoir séparer chaque mot dans cette RichTextBox pour ainsi pouvoir les disposer sur une ComboBox.

Voici mon texte:

Code:

["Visual",["visual studio 2010","visual boy advance","visual basic","visual studio","visual studio express","visual thesaurus","visual studio 2008 sp1","visual studio 2010 release date","visual basic tutorial","visual boy advance download"]]

Merci.
25/06/2010, 18h00
Florent Stange

Bonjour.

Une boucle sur chaque caractère de votre string avec une recherche d'espace (ou virgule, ou guillemet, ...) ne solutionnerai pas votre problème ?
Quand a copier chaque mots dans une textbox, je vous conseillerais plutôt de les copier dans une listebox (vous ne maitrisez pas le nombre de mots), quitte à recopier le mot sélectionné par l'utilisateur dans une textbox
25/06/2010, 20h37
Eric_M

Merci Florent Stange de m'avoir répondue.

Citation:

Une boucle sur chaque caractère de votre string avec une recherche d'espace (ou virgule, ou guillemet, ...) ne solutionnerai pas votre problème ?

Quand tu dit « Une boucle », est-ce que tu parle avec For Each...?
Et comment on fait pour rechercher et supprimer les virgules et les guillemets?

Citation:

Quand a copier chaque mots dans une textbox, je vous conseillerais plutôt de les copier dans une listebox (vous ne maitrisez pas le nombre de mots), quitte à recopier le mot sélectionné par l'utilisateur dans une textbox

Je ne voulait pas les copier dans une textbox, mais dans le menu déroulant d'une ComboBox.:D
26/06/2010, 16h34
Florent Stange

Bonjour Eric

Oui une boucle For Each me parait adaptée
Quand au problème de savoir repérer un caractère en particulier, je vous renvois à un précédent post de ce forum
http://www.developpez.net/forums/d94...-debut-chaine/

Pour le ComboBox c'est une très bonne idée.

Bon courage pour l'adaptation du code.
26/06/2010, 17h08
meziantou

Pourquoi ne pas utiliser une RegEx pour extraire les mots.
http://msdn.microsoft.com/en-us/libr...ons.regex.aspx

Merci pour vos réponse!!

Ça marche!

J'ai mis les suggestions dans une listbox.
Voici le code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
   ListBox1.Items.Clear()
        Dim msg As String
        msg = GeckoWebBrowser1.Document.Body.TextContent
        Dim mot As String() = msg.Split(""",""")
 
        If Not mot(3) = "" Then ListBox1.Items.Add(mot(3))
        If Not mot(5) = "" Then ListBox1.Items.Add(mot(5))
        If Not mot(7) = "" Then ListBox1.Items.Add(mot(7))
        If Not mot(9) = "" Then ListBox1.Items.Add(mot(9))
        If Not mot(11) = "" Then ListBox1.Items.Add(mot(11))
        If Not mot(13) = "" Then ListBox1.Items.Add(mot(13))
        If Not mot(15) = "" Then ListBox1.Items.Add(mot(15))
        If Not mot(17) = "" Then ListBox1.Items.Add(mot(17))
        If Not mot(19) = "" Then ListBox1.Items.Add(mot(19))
        If Not mot(21) = "" Then ListBox1.Items.Add(mot(21))

(Le code a l'aire un peu rudimentaire, mais il marche très bien :ccool:)

La raison pourquoi je commence directement à mot(3) est que j'ignore la requète de l'utilisateur pour ajouter à la listbox.

Je fait aussi des bon de 2 car le code me donnait 1 suggestion, 1 virgule, 1 suggestion, 1 virgule et ainsi de suite..

Merci beaucoup

27/06/2010, 08h09
meziantou

Citation:

Je fait aussi des bon de 2

dans ce cas on ne compte pas de la même facon:P
17-18-21
27/06/2010, 20h50
Eric_M

Citation:

Envoyé par meziantou

dans ce cas on ne compte pas de la même facon:P
17-18-21

Oops!

Merci de me l'avoir fait remarqué!

Correction: 17-19-21

Hello,
Dans ce cas une petite boucle est plus belle ^^

Code:

1
2
3
4
5
6
7
   ListBox1.Items.Clear()
        Dim msg As String
        msg = GeckoWebBrowser1.Document.Body.TextContent
        Dim mot As String() = msg.Split(""",""")
        for i as integer = 3 to 21 step 2
               If Not mot(i) = "" Then ListBox1.Items.Add(mot(i))
        end for

C'est plus beau ;)
Sinon c'est cool ce système :ccool:

28/06/2010, 22h12
Eric_M

Ok merci Sankassss. :ccool: