COMO PEGAR UM NÚMERO QUE ESTAR ENTRE O ( 123 )

 Tópico anterior Próximo tópico Novo tópico

COMO PEGAR UM NÚMERO QUE ESTAR ENTRE O ( 123 )

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#482062 - 02/06/2018 06:04:37

WELISSON
CACHOEIRO DE ITAPEMIRIM
Cadast. em:Junho/2017


Fala pessoal blz?

Estou desenvolvendo um app vb6 e preciso pegar um número que esteja entre o parenteses de
uma textbox ( 123 ). Esse comando deve apenas pegar o número que esteja entre esses
parentes, se houver número fora do parenteses, a função deve ignorar.

Eu pesquisando muito na net e encontrei esse código excelente:


Function LeNumero(Numero As String) As String
    Dim Tamanho As Integer, RESULTADO As String, A As Integer
    

    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


Esse funciona muito bem, porem ele pega os números que estão além do ( ). Existe alguma
forma de eu fazer isso?

Obrigado a todos!





#482069 - 02/06/2018 12:35:57

TUNUSAT
SAMPA
Cadast. em:Dezembro/2003


WELISSON,

    Estou sem VB6 nessa máquina, se você puder fazer a gentiliza de testar:

Function LeNumero(Numero As String) As String
    Dim Tamanho As Integer, RESULTADO As String, A As Integer
    Dim PosInicio As Integer, PosFim as Integer

    If Numero = "" Then
        LeNumero = ""
        Exit Function
    End If
    
    Tamanho = Len(Trim(Numero))
    PosInicio =  Instr$(Numero, "(" )
    PosFim =  InStrRev$(Numero, ")" )

    RESULTADO = Mid$(Numero, PosInicio, PosFim - PosInicio)

    LeNumero = RESULTADO

End Function



[]'s,
Tunusat.

Haja, pois, o que houver, ampliem-se obstáculos, agigantem-se problemas, intensifiquem-se lutas ou se agravem provações, trabalha sempre no bem de todos, porque, trabalhando na Seara do Bem, podes conservar a certeza de que Deus te sustentará. Emmanuel.

#482079 - 02/06/2018 22:59:39

WELISSON
CACHOEIRO DE ITAPEMIRIM
Cadast. em:Junho/2017


Citação:
:
Fala pessoal blz?

Estou desenvolvendo um app vb6 e preciso pegar um número que esteja entre o parenteses de
uma textbox ( 123 ). Esse comando deve apenas pegar o número que esteja entre esses
parentes, se houver número fora do parenteses, a função deve ignorar.

Eu pesquisando muito na net e encontrei esse código excelente:


Function LeNumero(Numero As String) As String
    Dim Tamanho As Integer, RESULTADO As String, A As Integer
    

    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


Esse funciona muito bem, porem ele pega os números que estão além do ( ). Existe alguma
forma de eu fazer isso?

Obrigado a todos!




TUNUSAT, seu código funcionou perfeito, mais ele ainda lê o primeiro
parenteses, mas fora isso funcionou. Fiz a modificação para o código
a baixo e estar atendendo no que eu preciso.

Function LeNumero(Numero As String) As String
    Dim Tamanho As Integer, RESULTADO As String, A As Integer
    Dim PosInicio As Integer, PosFim As Integer

    If Numero = "" Then
        LeNumero = ""
        Exit Function
    End If
    
    Tamanho = Len(Trim(Numero))
    PosInicio = InStr(Numero, "")
    PosFim = InStrRev(Numero, "-")

    RESULTADO = Mid$(Numero, PosInicio, PosFim - PosInicio)

    LeNumero = RESULTADO

End Function


Obrigado meu irmão!



Resposta escolhida #482089 - 04/06/2018 09:47:18

TUNUSAT
SAMPA
Cadast. em:Dezembro/2003


WELISSON,

       Legal!
       Por favor, não esqueça de fechar o tópico e me pontuar se eu ajudei.

Valew!
Tunusat.

Haja, pois, o que houver, ampliem-se obstáculos, agigantem-se problemas, intensifiquem-se lutas ou se agravem provações, trabalha sempre no bem de todos, porque, trabalhando na Seara do Bem, podes conservar a certeza de que Deus te sustentará. Emmanuel.

 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por WELISSON em 04/06/2018 09:50:32