olá pessoal.. queria saber uma forma mais fácil de ler caracterres de um campo e reotrnar um valor para cada caracter, (intderam? bem vou detalhar mais)

ex: num textbox eu vou colocar um texto de apenas 6 caracteres (ex: 1deb05), mas cada campo representa uma texto (ex: 1 = linha, d= speedy, e=troca......)

sendo q essa tabela de códigos eh imensa, eu mi matei pra montar isso aki, com apenas IF e MID(pra ler cada campo em separado), mas o negócio ficou muuuitoo extenso! (cerca de umas 2000 linhas)

ex:

If Mid(tabela, 1, 1) = "1" Then
    textotipo = "SERVIÇO TELEFÔNICO FIXO COMUTADO RESIDENCIAL"
INICIO:
    If Mid(tabela, 2, 1) = "D" Then
    textoarea = "SPEEDY"
        If Mid(tabela, 3, 1) = "1" Then
        textogrupo = "MICROCOMPUTADOR DO USUÁRIO (HARDWARE)"
GRUPO1:
            If Mid(tabela, 4, 1) = "1" Then
            textocomponente = "DISCO RÍGIDO"
                If Mid(tabela, 5, 1) = "1" Then
                textocausa = "CAPACIDADE INSUFICIENTE"
                    If Mid(tabela, 6, 1) = "1" Then
                    textoreparo = "INSTALADO / REINSTALADO O COMPONENTE"
                    ElseIf Mid(tabela, 6, 1) = "2" Then
                    textoreparo = "SUBSTITUÍDO O COMPONENTE"
                    ElseIf Mid(tabela, 6, 1) = "3" Then
                    textoreparo = "EFETUADA EXPANSÃO DO COMPONENTE"
                    ElseIf Mid(tabela, 6, 1) = "4" Then
                    textoreparo = "DEFEITO NÃO REMOVIDO COM NOTIFICAÇÃO AO USUÁRIO"
                    ElseIf Mid(tabela, 6, 1) = "5" Then
                    textoreparo = "DESCONECTADO O COMPONENTE  DA LINHA"
                    ElseIf Mid(tabela, 6, 1) = "7" Then
                    textoreparo = "OUTRO DEFEITO"
                    ElseIf Mid(tabela, 6, 1) = "8" Then
                    textoreparo = "REINSTALADO DRIVER  DO COMPONENTE"
                    ElseIf Mid(tabela, 6, 1) = "9" Then
                    textoreparo = "RECONFIGURADO O COMPONENTE"
                    End If

.......

queria saber se tem um jeito mais simples! grato

Só uma pergunta existe numeros repetidos para funções diferentes

 

ex; 1ad1c

1=linha, a=speeddy, d=comunicado, 1=outra coisa

 

dependendo da resposta tenho uma solução simples

sim, existe numeros repetidos, tudo vai depender do caracter anterior(1da222 <> 1db222)

São muitas combinações destas

 

porque se for então ficarealmente complexo

 

caro rafael faça o registro no site é de grátis.

quanto a seu problema acho que se vc criar um arquivo ini com os grupos dai vc coloca o  codigo ex 1db222 com tudo o que significa ai faça GetPrivateProfileString já no código se surgir um novo cod é só inserir no arquivo.

obrigado pesosal...o detalhe q jah sou cadastrado mas não me lembro do usuario, e sobre a linha de código eu digitei tudo, ficou extenço, são umas 500 combinações diferentes, todas são pegas de uma tabela de valores, mas tah feito, soh queria saber mesmo um jeito de simnplificar, mas jah q terminei, prefiro esquecer tudo! :D mas muito obrigado pela ajuda!