MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


3 participantes

    [RESOLVIDO] Inserir somente uma Aspa dupla numa String

    avatar
    MSoccol
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 74
    Registrado : 24/03/2011

    [RESOLVIDO] Inserir somente uma Aspa dupla numa String Empty Inserir somente uma Aspa dupla numa String

    Mensagem  MSoccol 12/5/2011, 14:05

    Bom dia Pessoal, me deparei com um problema novo na construção de uma função no VBA.
    Preciso contar os caracteres até " que é a marcação de segundos de uma coordenada em alguns sistemas, tipo o google Earth

    Já vi o método da contr-barra" \" ", Mas ela só funciona com duas aspas duplas dentro na string, tipo assim
    " \"\" "

    z = InStr(1, coordenada, " \" ")
    z = InStr(1, coordenada, " " ")

    Os dois exemplos acima dão erro, o que é aceito é esse:

    z = InStr(1, coordenada, " \"\" ")

    Desde ja Grato
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [RESOLVIDO] Inserir somente uma Aspa dupla numa String Empty Re: [RESOLVIDO] Inserir somente uma Aspa dupla numa String

    Mensagem  JPaulo 12/5/2011, 14:49

    Se você diz que esse ultimo funfa, qual a duvida que ainda permanece ?


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [RESOLVIDO] Inserir somente uma Aspa dupla numa String Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [RESOLVIDO] Inserir somente uma Aspa dupla numa String Folder_announce_new 102 Códigos VBA Gratuitos...
    [RESOLVIDO] Inserir somente uma Aspa dupla numa String Folder_announce_new Instruções SQL como utilizar...
    avatar
    MSoccol
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 74
    Registrado : 24/03/2011

    [RESOLVIDO] Inserir somente uma Aspa dupla numa String Empty Re: [RESOLVIDO] Inserir somente uma Aspa dupla numa String

    Mensagem  MSoccol 12/5/2011, 14:52

    Funfar com uma aspa só!!
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [RESOLVIDO] Inserir somente uma Aspa dupla numa String Empty Re: [RESOLVIDO] Inserir somente uma Aspa dupla numa String

    Mensagem  JPaulo 12/5/2011, 14:57

    Não entendi o que pretende.

    Você quer contar caracteres validos, com letras ou numeros e ignorar as aspas e barras ????


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [RESOLVIDO] Inserir somente uma Aspa dupla numa String Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [RESOLVIDO] Inserir somente uma Aspa dupla numa String Folder_announce_new 102 Códigos VBA Gratuitos...
    [RESOLVIDO] Inserir somente uma Aspa dupla numa String Folder_announce_new Instruções SQL como utilizar...
    avatar
    MSoccol
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 74
    Registrado : 24/03/2011

    [RESOLVIDO] Inserir somente uma Aspa dupla numa String Empty Re: [RESOLVIDO] Inserir somente uma Aspa dupla numa String

    Mensagem  MSoccol 12/5/2011, 15:22

    Não, eu quero contar quantos caracteres existem até as aspas da seguinte string:

    25°12'32.23"S


    é isso, independente de contar, somar ou ignorar é saber como coloco uma aspa só numa string.

    Grato
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [RESOLVIDO] Inserir somente uma Aspa dupla numa String Empty Re: [RESOLVIDO] Inserir somente uma Aspa dupla numa String

    Mensagem  JPaulo 12/5/2011, 17:35

    Faça o teste;


    Cole esta função num modulo novo, salve e teste chamando a função por exemplo assim;

    Private Sub SeuBotao_Click()
    MsgBox ContaCarateres(SuaCaixaTexto)
    End Sub


    Public Function ContaCarateres(strCampo As String) As Long
    'By JPaulo ® Maximo Access
    Dim intotal As Integer
    ContaCarateres = 0
    For intotal = 1 To Len(strCampo)
    If InStr(1, "°'.ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789", Mid(strCampo, intotal, 1), vbTextCompare) > 0 Then
    ContaCarateres = ContaCarateres + 1
    End If
    Next intotal
    ContaCarateres = ContaCarateres - 1
    End Function


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [RESOLVIDO] Inserir somente uma Aspa dupla numa String Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [RESOLVIDO] Inserir somente uma Aspa dupla numa String Folder_announce_new 102 Códigos VBA Gratuitos...
    [RESOLVIDO] Inserir somente uma Aspa dupla numa String Folder_announce_new Instruções SQL como utilizar...
    avatar
    MSoccol
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 74
    Registrado : 24/03/2011

    [RESOLVIDO] Inserir somente uma Aspa dupla numa String Empty Re: [RESOLVIDO] Inserir somente uma Aspa dupla numa String

    Mensagem  MSoccol 12/5/2011, 18:36

    Olá JPaulo, muito interessante essa sua função, acabei de testá-la e vi que ela se baseia na idéia de que depois das aspas só existirá um caractere. Isso já me ajuda no meu problema, pois meus dados terão essa característica como fixa, então minha funçõa incorporará isso, talvez não do modo que postastes pois acho mais complexo do que necessito. (poderia ter explicado melhor meu problema)


    De qualquer forma, fica a pergunta, como colocar somente uma aspa dupla dentro de uma string?

    LiveBrain
    LiveBrain
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 182
    Registrado : 15/05/2011

    [RESOLVIDO] Inserir somente uma Aspa dupla numa String Empty Re: [RESOLVIDO] Inserir somente uma Aspa dupla numa String

    Mensagem  LiveBrain 15/5/2011, 12:23

    Eu já tive um problema parecido e resolvi usando a função Chr(34).

    Segue um exemplo bem básico.

    Dim AspasDuplas As String
    AspasDuplas = Chr(34) & "Aspas Duplas" & Chr(34)
    MsgBox AspasDuplas


    Abraços
    avatar
    MSoccol
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 74
    Registrado : 24/03/2011

    [RESOLVIDO] Inserir somente uma Aspa dupla numa String Empty Re: [RESOLVIDO] Inserir somente uma Aspa dupla numa String

    Mensagem  MSoccol 16/5/2011, 18:02

    Olá Fredhc, esse no seu exemplo exitem quatro aspas, duas da determinação da string e outras duas do valor a ser retornado. Meu problema é colocar uma única aspa dentro da string. Tente fazer isso no seu exemplo.

    é o mesmo caso da contra-barra, que só funciona com uma quantidade par de aspas duplas.
    LiveBrain
    LiveBrain
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 182
    Registrado : 15/05/2011

    [RESOLVIDO] Inserir somente uma Aspa dupla numa String Empty Re: [RESOLVIDO] Inserir somente uma Aspa dupla numa String

    Mensagem  LiveBrain 17/5/2011, 11:09

    então eu não entendi o que vc quer fazer.. aspas duplas é aspas duplas (") se vc quer inserir umas aspas simples (') ou duas aspas simples ('') é só usar chr(39)...
    avatar
    MSoccol
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 74
    Registrado : 24/03/2011

    [RESOLVIDO] Inserir somente uma Aspa dupla numa String Empty Re: [RESOLVIDO] Inserir somente uma Aspa dupla numa String

    Mensagem  MSoccol 21/5/2011, 15:12

    Bem contrariando a lógica das coisas, o VBA retorna uma aspa quando se colocam quatro aspas numa para uma string. Acho que ja tinham escrito isso, mas achei tão fora de lógica que não testei direito. Abaixo o exemplo:

    Como meu problema era descobrir quantos caracteres existiam antes de uma aspa dupla (utilizado para definir os segundos de uma coordenada geográfica), basta isso

    Function Aspas(texto As String) As Integer
    Aspas = InStr(1, texto, """")
    End Function

    Isso para texto = 29°30'45"S, retorna o valor 9, que é o que eu preciso. Me pareceu ilógico porque quando quero retornar os caracteres até o °, utilizo "°" e pronto.

    Desculpe se não entendi a sugestão dos que já haviam falado isso. Mas fica a lição

    Obrigado a todos

    Conteúdo patrocinado


    [RESOLVIDO] Inserir somente uma Aspa dupla numa String Empty Re: [RESOLVIDO] Inserir somente uma Aspa dupla numa String

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 07:53