USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Replace
GAFA
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 18/10/2004 10:19 hs            
Pessoal preciso tirar os caracteres especias de um texto, ou seja, a acentucao grafica, como fz????o replace faz isso, ?????
   
ghost_jlp
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 18/10/2004 10:49 hs            
   
Elieser Topassi
Pontos: 2843 Pontos: 2843
SÃO JOSÉ DO RIO PRETO
SP - BRASIL
ENUNCIADA !
Postada em 18/10/2004 11:03 hs            
Gafa,
 
Não sei o que tem nessas dicas, mas da uma testada no seguinte:
 
Cria um form com um textbox (Text1) e um botão (Command1), depois cola esse codigo:
 
Private Sub Command1_Click()
    Const chars As String = "áàâãäéèêëíìîïóòôõöúùûü"
    Const replacechars As String = "aaaaaeeeeiiiiooooouuuu"
    Dim i As Integer
   
    For i = 1 To Len(chars)
        Do While InStr(1, Text1, Mid(chars, i, 1)) > 0
            Text1 = Replace(Text1, Mid(chars, i, 1), Mid(replacechars, i, 1))
        Loop
    Next
End Sub
 
Eu uso esse codigo, e nunca tive problemas... funciona tanto em VB como ASP...
 
Abraços


Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net

e-mail/msn:
elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
Emoções "O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)

   
GAFA
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 18/10/2004 12:19 hs            
Brigado pessoal pela ajuda
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página