Filtro

[elia]

Carissima comunità,
volevo porre una domanda che mi fa molta curiosità.

Prima di tutto sto creando un Gestore di Pacchetti in gambas e avevo inserito una TextBox in cui se te inserisci una delle lettere le va a cercare in un item di una ListBox e ti fa comparire solo quelli. Purtroppo io non so come procedere.

Sapete darmi un consiglio?

Grazie

[Gianluigi]

Intendi qualcosa del genere da inserire ad esempio in un evento button_click?

Codice: gambas [Seleziona]

Dim s, res As String
  Dim i As Integer
  
  s = TextBox1.Text
  For i = 0 To ListBox1.Count - 1
    res = ListBox1[i].Text
    If res Like "*" & s & "*" Then
      Message("Trovata corrispondenza in " & res)
    Endif 
  Next   

 

[elia]

Si, grazie tante
Ciao

[vuott]

Proporrei anche una riga del genere:  

Codice: gambas [Seleziona]

Public Sub Button1_Click()

  Dim i As Integer

   i = ListBox1.Find("*" & TextBox1.Text & "*", gb.Like)

   If i > -1 Then
     Message.Info("Trovata corrispondenza in " & ListBox1[i].Text)
   Endif
   
End

[Gianluigi]

Forse non ho capito quello che voleva elia, ma avevo compreso desiderasse trovare tutte le corrispondenze rispetto a una o poche lettere inserite 
Con Find trovi la prima o sbaglio?

Codice: gambas [Seleziona]

ListBox1.Add("Pippo")
  ListBox1.Add("Pluto")
  ListBox1.Add("Massimo")
  ListBox1.Add("Mario")
  ListBox1.Add("Rino")
  ListBox1.Add("Lino")

Se ad esempio in questi dati cerchiamo le corrispondenze di r  tu trovi solo Mario io trovo anche Rino perché con Find si trova solo la prima corrispondenza. Almeno credo.
 

[vuott]

.... avevo compreso desiderasse trovare tutte le corrispondenze rispetto a una o poche lettere inserite
Con Find trovi la prima o sbaglio?
...con Find si trova solo la prima corrispondenza. Almeno credo.

Sì...  è come tu dici: lui cerca tutte le  le corrispondenze.
In questo caso il tuo codice va bene.