MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Localizar String usando o tipo de caractere!

    Compartilhe

    Ednardo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 19
    Registrado : 20/11/2015

    [Resolvido]Localizar String usando o tipo de caractere!

    Mensagem  Ednardo em Sex 13 Abr 2018, 03:34

    Boa Noite amigos, tenho alguns conhecimentos sobre manipulação de strings mais me deparei com uma situação em que não estou conseguindo resolver, preciso extrair um CEP dentro de um Script que está dentro de uma string, sendo que não sei qual é o cep, se soube-se seria bastante simples, preciso saber se tem uma sequencia de caracteres no formato #####-###, caso tenha localizar em que parte da string ele inicia e extrai-lo para outro local, segue a baixo uma string de exemplo, ficaria grato se alguém soubesse qual função em VBA faz essa comparação e informa a localização da substring.

    null,null,null,\"Arena das Dunas - Lagoa Nova, Natal - RN, 59063-400\",null,null,null,null,null,null

    Código:

    null,null,null,null,null,null,null,null,null,null,null,null,1,null,null,null,1,null,8]\n,null,null,null,1,null,null,null,null,null,1]\n,null,null,null,null,null,
    null,[null,[392,106]\n]\n,[null,[203,100]\n,[null,4,null,null,1]\n,null,null,[[[86,86]\n,[408,200]\n]\n]\n,[[[1,0,3]\n,[2,1,2]\n,[2,0,3]\n,[3,0,3]
    \n,[8,0,3]\n,[3,1,2]\n,[9,1,2]\n,[10,0,3]\n,[10,1,2]\n,[10,0,4]\n]\n,1,null,1]\n,null,0]\n,null,[\"zA3QWoSHNcL
    QS_8o7ABA\",null,null,null,null,null,81,null,null,null,null,null,null,[null,null,\"zA3QWoSHNcL-wQS_8o7ABA\"]\n,9937]\n,null,[null,1,null,null,
    [null,1,1,null,1,1]\n,null,null,null,null,[null,null,null,null,null,null,null,3]\n,null,null,null,
    [null,null,1]\n,null,null,1,null,null,null,null,null,null,1,1,1,null,null,null,[null,1]\n,null,null,null,null,null,1]\n,null,[null,[80,92]\n]\n,null,null,null,
    [[[[0,0]\n,[458,768]\n]\n,[[974,0]\n,[1024,768]\n]\n,[[0,0]\n,[1024,20]\n]\n,[[0,748]\n,[1024,768]\n]\n]\n]\n,null,null,null,
    [null,null,1,1,null,1]\n,null,null,[81]\n,null,null,null,null,1,null,null,null,null,null,null,[null,null,1]\n]\n",")]}'\n[[\"arena ds dunas\",
    [[null,null,null,null,null,null,null,null,\"zQ3QWtqhAcL-wQS_8o7ABA\",\"0ahUKEwiavNa0krbaAhVCf5AKHT-5A0gQmBkIAigA\",null,null,null,null,
    [\"zQ3QWtqhAcL-wQS_8o7ABA\",\"0ahUKEwiavNa0krbaAhVCf5AKHT-5A0gQ8BcIAygAMAA\",[\"Lagoa Nova\",\"Natal - RN\",\"[b][color=#ff3300]59063-400[/color][/b]\"]\n,[\"(84)
    3673-6800\"]\n,[null,null,null,[\"http://www.google.com.br/search?q\\u003dArena+das+Dunas+-+Lagoa+Nova,+Natal+-+RN,+59063-
    400\\u0026ludocid\\u003d9906452446042739012#lrd\\u003d0x7b2ff89610fd765:0x897aca0356ad5144,1\",\"3.838
    comentários\",null,\"0ahUKEwiavNa0krbaAhVCf5AKHT-5A0gQ6W4ICygAMAA\"]\n,null,null,null,4.5,3838]\n,null,null,
    [\"http://arenadunas.com.br/\",\"arenadunas.com.br\",null,null,\"1,AOvVaw1OaM5aU5ey_9RDeajsQgQJ,,0ahUKEwiavNa0krbaAhVCf5AKHT-
    5A0gQ61gIDCgHMAA,,\"]\n,null,[null,null,-5.8270108,-35.2123979]\n,\"0x7b2ff89610fd765:0x897aca0356ad5144\",\"Arena das Dunas\",
    null,[\"Estádio de futebol\"]\n,\"Lagoa Nova\",null,null,null,\"Arena das Dunas - Lagoa Nova, Natal - RN, 59063-400\",null,null,null,null,null,null,
    [null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,[[[1]\n,\"Favoritos\"]\n,[[2]\n,\"Quero ir\"]\n,[[4]\n,\
    "Lugares marcados com estrela\"]\n]\n]\n,null,\"https://www.google.com/maps/place/Arena+das
    avatar
    Cláudio Más
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1275
    Registrado : 21/01/2012

    Re: [Resolvido]Localizar String usando o tipo de caractere!

    Mensagem  Cláudio Más em Sex 13 Abr 2018, 05:31

    Boa noite,

    Código:
    Public Sub Pos_CEP(txt As String)

    Dim i As Integer
    Dim achou As Boolean

    achou = False

    For i = 1 To Len(txt) - 8
        If Mid$(txt, i + 5, 1) = "-" And IsNumeric(Mid$(txt, i, 5)) And IsNumeric(Mid$(txt, i + 6, 3)) Then
            achou = True
            Exit For
        End If
    Next i

    If achou Then MsgBox "O CEP inicia na posição: " & i Else MsgBox "CEP não localizado"

    End Sub

    Ednardo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 19
    Registrado : 20/11/2015

    Resolvido

    Mensagem  Ednardo em Sab 14 Abr 2018, 01:41

    Muito obrigado amigo, a velha e boa lógica de programação, perfeito, resolveu meu problema!

      Data/hora atual: Ter 19 Jun 2018, 01:40