REMOVER ASPAS DE UM STRING
Olá, eu gostaria de saber como faço para remover as aspas [Ô] [Ô] de uma string.
Obrigado!
Obrigado!
suastring = replace(suastring, chr(34), [Ô][Ô])
HARRY631,
Criei esta função para resolver o seu problema
abra um projeto adicione um botão e cole este codigo.
Private Sub Command1_Click()
Dim txt As String
txt = [Ô][Ô][Ô]teste[Ô][Ô][Ô]
MsgBox [Ô]sem a função assim seria a string : [Ô] & txt
MsgBox [Ô]Usando a função a mesma string fica assim : [Ô] & RemoveChar(txt, [Ô][Ô][Ô][Ô])
End Sub
Function RemoveChar(txt As String, charr As String) As String
[ô]função pode ser usada para procurar e remover
[ô]qualquer caractere
[ô]txt recebe a string
[ô]char recebe qual carectere deseja remover
Dim i As Integer
Dim p As Integer
Dim resp As String
For i = 1 To Len(txt)
p = i
r = Mid((txt), 0 + p, 1)
If r <> charr Then
resp = resp + r
End If
Next
RemoveChar = resp [ô] resultado final
End Function
Criei esta função para resolver o seu problema
abra um projeto adicione um botão e cole este codigo.
Private Sub Command1_Click()
Dim txt As String
txt = [Ô][Ô][Ô]teste[Ô][Ô][Ô]
MsgBox [Ô]sem a função assim seria a string : [Ô] & txt
MsgBox [Ô]Usando a função a mesma string fica assim : [Ô] & RemoveChar(txt, [Ô][Ô][Ô][Ô])
End Sub
Function RemoveChar(txt As String, charr As String) As String
[ô]função pode ser usada para procurar e remover
[ô]qualquer caractere
[ô]txt recebe a string
[ô]char recebe qual carectere deseja remover
Dim i As Integer
Dim p As Integer
Dim resp As String
For i = 1 To Len(txt)
p = i
r = Mid((txt), 0 + p, 1)
If r <> charr Then
resp = resp + r
End If
Next
RemoveChar = resp [ô] resultado final
End Function
Vlw WebMaster e Moises, funcionou perfeitamente :D
Tópico encerrado , respostas não são mais permitidas