|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Datas/Números/Strings)
|
|
 |
Título da Dica: Função para pegar apenas os números de uma string
|
 |
|
|
|
Postada em 31/7/2003 por Ellicristian
Essa função pega apenas os números de uma string.
Function LeNumero(Numero As String) As String
Dim Tamanho As Integer, RESULTADO As String, A As Integer
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Função que pega apenas os valores numericos da string
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
If Numero = "" Then
LeNumero = ""
Exit Function
End If
Tamanho = Len(Trim(Numero))
For A = 1 To Tamanho
If Asc(Mid(Numero, A, 1)) >= 48 And Asc(Mid(Numero, A, 1)) <= 57 Then
RESULTADO = RESULTADO + Mid(Numero, A, 1)
End If
Next
LeNumero = RESULTADO
End Function
Para chama-la, faça assim:
text1.text = lenumero(text2.txt)
T+
|
|
|
|
|
