Ayuda ListBox
Publicado por Joshua (20 intervenciones) el 30/08/2005 19:40:48
Hola, veran tengo el siguiente problema deseo sacar una cadena para luego comprobar si esta existe en un listbox, y tengo el siguiente codigo para sacar la cadena del listbox
necesito sacar la palabra eletronica@ y necesito que solo salga ELECTRONICA
Try
For i = 0 To sss.Length - 1
sss = Me.TextBox1.Text
ss = Mid(sss, i + 1, sss.Length)
If ss = "@" Then
paso = paso
For j = 0 To Me.ListBox1.Items.Count - 1
If Me.ListBox1.SelectedItem.Text = paso Then
Me.TextBox1.Text = paso + "<BR>"
paso = ""
Exit For
End If
Next
Else
paso = paso & Mid(sss, i + 1, sss.Length)
Me.Response.Write("<BR>" + paso)
End If
Next
Catch ex As Exception
Me.Response.Write(ex.ToString)
End Try
el problema es que no me saca la palabra que necesito para comprobarla, me seria de mucha ayuda que me dijieran de que manera, puedo sacar la palabra pero sin el arroba
De antemano Gracias
necesito sacar la palabra eletronica@ y necesito que solo salga ELECTRONICA
Try
For i = 0 To sss.Length - 1
sss = Me.TextBox1.Text
ss = Mid(sss, i + 1, sss.Length)
If ss = "@" Then
paso = paso
For j = 0 To Me.ListBox1.Items.Count - 1
If Me.ListBox1.SelectedItem.Text = paso Then
Me.TextBox1.Text = paso + "<BR>"
paso = ""
Exit For
End If
Next
Else
paso = paso & Mid(sss, i + 1, sss.Length)
Me.Response.Write("<BR>" + paso)
End If
Next
Catch ex As Exception
Me.Response.Write(ex.ToString)
End Try
el problema es que no me saca la palabra que necesito para comprobarla, me seria de mucha ayuda que me dijieran de que manera, puedo sacar la palabra pero sin el arroba
De antemano Gracias
Valora esta pregunta


0