Visual Basic - Que pasa

Life is soft - evento anual de software empresarial
   
Vista:

Que pasa

Publicado por Carlos (125 intervenciones) el 12/09/2007 20:44:30
Que esta pasnado, desde hace como 30 minuos trator de hacer colocar en el foro una duda pero no he podido... que esta pasando con la pagina ?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Numeros

Publicado por Carlos (125 intervenciones) el 12/09/2007 21:29:02
como hago para que de una cadena de texto solo me agarre los numeros?!
ejemplo:
apl995lapao621laso23

y me devuelva
99562123
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Numeros

Publicado por P. J. (173 intervenciones) el 12/09/2007 21:36:38
Esto te puede ayudar:

Private Function extraeNumeros(ByVal strCadena As String)
Dim strLimpio, strLetra As String
For q = 1 To Len(strCadena)
strLetra = Mid(strCadena, q, 1)
If IsNumeric(strLetra) Then
strLimpio = strLimpio + strLetra
End If
Next
extraeNumeros = strLimpio
End Function

'------------------------------------------------------------------------------
Private Sub cmdValida_Click()
MsgBox extraeNumeros(Me.Text1.Text)
End Sub

Alli hay una funcion, y como usarlo.
Suerte!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Algo así

Publicado por Yo (38 intervenciones) el 12/09/2007 21:41:12
Dim inC as Integer, stCadena as String, stNuevaCadena as String
Dim stCaracter as String

stNuevaCadena = ""
For inC = 1 to Len( stCadena )
stCaracter = Mid( stCadena, inC, 1)
If Asc( stCaracter ) >= 48 and Asc( stCaracter ) <= 57 then stNuevaCadena = stNuevaCadena + stCaracter
Next
' En la variable stNuevaCadena quedará lo que quieres
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Algo así

Publicado por Carlos (125 intervenciones) el 13/09/2007 23:38:10
Gracias me sirvio a la perfecion
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar