none
Separar valores de uma string RRS feed

  • Pergunta

  • Boa noite Pessoal,

    Gostaria de saber como faço em ASP (não é ASP.NET) para separar valores de uma string. Por exemplo:

    Eu tenho o telefone gravado em uma variável: (12) 3456-7890

    Gostaria de separar as informações e deixar em duas variáveis

    DDD = (12)
    Telefone = 3456-7890

    O parenteses e o hífem eu tiro com um replace.... mas não consigo separar as informações... não sei como fazer...

    Fico no aguardo,


    Eder Pardeiro
    sexta-feira, 5 de agosto de 2011 23:53

Respostas

  • Eder,

     

         Minhas engrenagens mais antigas entraram em movimento, mas não tenho certeza absoluta:

         Mais simples (sabendo que o formato NUNCA mudará):

        
       Dim ddd as String
    
       Dim tel as String
    
       Dim completo as String
       completo = "(12) 6546-8757"  
    
       ddd = Left(completo, 3)
    
       tel = Right(completo, 9)
    
    
    


         Mais complexo (mas também é necessário estar certo de sempre haver um espaço separando ambos):

       Dim ddd as String
    
       Dim tel as String
    
       Dim completo as String
       completo = "(12) 6546-8757"  
    
       ddd = Left(completo, InStr(completo, " "))
    
       tel = Right(completo, InStr(completo, " ")-Len(completo))
    
    
    


    Att,

    Ricardo

    • Marcado como Resposta Eder Pardeiro sábado, 6 de agosto de 2011 14:38
    sábado, 6 de agosto de 2011 10:49

Todas as Respostas

  • Eder,

     

         Minhas engrenagens mais antigas entraram em movimento, mas não tenho certeza absoluta:

         Mais simples (sabendo que o formato NUNCA mudará):

        
       Dim ddd as String
    
       Dim tel as String
    
       Dim completo as String
       completo = "(12) 6546-8757"  
    
       ddd = Left(completo, 3)
    
       tel = Right(completo, 9)
    
    
    


         Mais complexo (mas também é necessário estar certo de sempre haver um espaço separando ambos):

       Dim ddd as String
    
       Dim tel as String
    
       Dim completo as String
       completo = "(12) 6546-8757"  
    
       ddd = Left(completo, InStr(completo, " "))
    
       tel = Right(completo, InStr(completo, " ")-Len(completo))
    
    
    


    Att,

    Ricardo

    • Marcado como Resposta Eder Pardeiro sábado, 6 de agosto de 2011 14:38
    sábado, 6 de agosto de 2011 10:49
  • Valeeeeu Ricaro....

    Perfeito kra... suas engrenagens estão a toda prova... rsrs

    Só o "as string" que não precisa...

    Funcionou perfeitamente.... muito obrigado!!!


    Eder Pardeiro
    sábado, 6 de agosto de 2011 14:38