Este fórum é para dúvidas onde a base da questão é a linguagem ASP.
Moderador: web
 por Rodrigo1 Offline » Qua Mar 11, 2009 5:15 pm
|
Galera...
To fazendo um sistema em asp.net e tem aqueles vendedores que adoram acentos e má formatacao
Entao estou fazemndo uma classe com algumas funcoes para resolver
Nao é nada de mais mais ta me ajudando
- Código: Selecionar todos
Imports Microsoft.VisualBasic
Public Class ArrumaText
Public Shared Function Telefone(ByVal vTel As String) As String
'#######Divide Telefone
If vTel.Length > 8 Then
vTel = Right(vTel, 9)
If vTel.IndexOf("-") = 0 Then
Dim aTel As Array = Split(vTel, "-")
Dim vTelL As String = Left(aTel(1), 4)
Dim vTelR As String = Right(aTel(1), 4)
vTel = vTelL + "-" + vTelR
End If
ElseIf vTel.Length = 8 Then
Dim vTelL As String = Left(vTel, 4)
Dim vTelR As String = Right(vTel, 4)
vTel = vTelL + "-" + vTelR
End If
Return vTel
End Function
Public Shared Function Aniversario(ByVal vNiver As String) As Date
vNiver = vNiver + "/2000"
Dim aDataAniversario As Array
aDataAniversario = Split(vNiver, "/")
Dim vDataAniversario As String
vDataAniversario = aDataAniversario(2) + "/" + aDataAniversario(1) + "/" + aDataAniversario(0)
vDataAniversario = Convert.ToDateTime(vDataAniversario)
Return vDataAniversario
End Function
Public Shared Function TiraAcento(ByVal vBusca As String) As String
If vBusca = "" Then Return vBusca
vBusca = Replace(vBusca, "à", "a")
vBusca = Replace(vBusca, "á", "a")
vBusca = Replace(vBusca, "â", "a")
vBusca = Replace(vBusca, "ã", "a")
vBusca = Replace(vBusca, "ä", "a")
vBusca = Replace(vBusca, "è", "e")
vBusca = Replace(vBusca, "é", "e")
vBusca = Replace(vBusca, "ê", "e")
vBusca = Replace(vBusca, "ë", "e")
vBusca = Replace(vBusca, "ì", "i")
vBusca = Replace(vBusca, "í", "i")
vBusca = Replace(vBusca, "î", "i")
vBusca = Replace(vBusca, "ï", "i")
vBusca = Replace(vBusca, "ò", "o")
vBusca = Replace(vBusca, "ó", "o")
vBusca = Replace(vBusca, "ô", "o")
vBusca = Replace(vBusca, "õ", "o")
vBusca = Replace(vBusca, "ö", "o")
vBusca = Replace(vBusca, "ù", "u")
vBusca = Replace(vBusca, "ú", "u")
vBusca = Replace(vBusca, "û", "u")
vBusca = Replace(vBusca, "ü", "u")
vBusca = Replace(vBusca, "À", "A")
vBusca = Replace(vBusca, "Á", "A")
vBusca = Replace(vBusca, "Â", "A")
vBusca = Replace(vBusca, "Ã", "A")
vBusca = Replace(vBusca, "Ä", "A")
vBusca = Replace(vBusca, "È", "E")
vBusca = Replace(vBusca, "É", "E")
vBusca = Replace(vBusca, "Ê", "E")
vBusca = Replace(vBusca, "Ë", "E")
vBusca = Replace(vBusca, "Ì", "I")
vBusca = Replace(vBusca, "Í", "I")
vBusca = Replace(vBusca, "Î", "I")
vBusca = Replace(vBusca, "Ï", "I")
vBusca = Replace(vBusca, "Ò", "O")
vBusca = Replace(vBusca, "Ó", "O")
vBusca = Replace(vBusca, "Ô", "O")
vBusca = Replace(vBusca, "Õ", "O")
vBusca = Replace(vBusca, "Ö", "O")
vBusca = Replace(vBusca, "Ù", "U")
vBusca = Replace(vBusca, "Ú", "U")
vBusca = Replace(vBusca, "Û", "U")
vBusca = Replace(vBusca, "Ü", "U")
vBusca = Replace(vBusca, "ç", "c")
vBusca = Replace(vBusca, "Ç", "C")
vBusca = Replace(vBusca, "ñ", "n")
vBusca = Replace(vBusca, "Ñ", "N")
vBusca = Replace(vBusca, "´", "")
vBusca = Replace(vBusca, "`", "")
vBusca = Replace(vBusca, "¨", "")
vBusca = Replace(vBusca, "^", "")
vBusca = Replace(vBusca, "~", "")
Return vBusca
End Function
End Class
Tudo foi testado...
Qq duvida post aqui!
Valew Galera
Contribua você tambem com o forum!
Nao abandone seu post, responda se der certo!
Paz!
Rodrigo1
SUPER ATIVO
Mensagens: 93
Registrado em: Qui Nov 06, 2008 2:49 pm
Localização: Sao Paulo
|
Voltar para Asp
Quem está online
Usuários navegando neste fórum: Nenhum usuário registrado e 1 visitante
|
|
|
