RETIRAR ASPAS SIMPLES DA TEXTBOX


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: RETIRAR ASPAS SIMPLES DA TEXTBOX

comendador

SÃO GONÇALO
RJ - BRASIL

ENUNCIADA !

Postada em 19/03/2011 12:34 hs

Fala feras como faço para retirar aspas simples de uma textbox exe:

Text1.Text = "Alguém. A' Coisa"

E quero que fique assim:
Text1.Text = "Alguém. A Coisa"

Juan Carlos R.A

MACEIO
AL - BRASIL

ENUNCIADA !

Postada em 19/03/2011 17:19 hs

muito facil usa a função replace

sintaxis:

replace(string, "valor a pesquisar", "valor a substituir")

replace("Alguém. A' Coisa", "'","")

LCRamos

GOIANIA
GO - BRASIL

ENUNCIADA !

Postada em 19/03/2011 20:35 hs

Veja se serve, retire o que não quiser.

Public Function removeACENTOS(ByVal sTEXTO As String) As String
Dim vPOS As Byte
Dim icouNT As Integer
Const vCOMACENTO = "ÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÒÓÔÕÖÙÚÛÜàáâãäåçèéêëìíîïòóôõöùúûü""''ºª"
Const vSEMACENTO = "AAAAAACEEEEIIIIOOOOOUUUUaaaaaaceeeeiiiiooooouuuu      "
    For icouNT = 1 To Len(srtexTO)
        vPOS = InStr(1, vCOMACENTO, Mid(srtexTO, icouNT, 1))
        If vPOS > 0 Then
            Mid(sTEXTO, icouNT, 1) = Mid(vSEMACENTO, vPOS, 1)
        End If
    Next
    removeACENTOS = sTEXTO
End Function

vlu//

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR