[RESOLVIDO] Inserir somente uma Aspa dupla numa String

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

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

Funfar com uma aspa só!!

Não entendi o que pretende.

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

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

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

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?

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

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.

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)...

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