Asunto: Función para quitar carácter nulo de una cadena
¿Existe alguna función en Visual Basic para quitar el carácter nulo en una cadena?
Publicado:
Mie Ene 27, 2010 8:40 am
alonsojpd Administrador/Moderador
Registrado: Sep 16, 2003 Mensajes: 2687
Asunto: Re: Función para quitar carácter nulo de una cadena
Anuncios
varios escribió:
¿Existe alguna función en Visual Basic para quitar el carácter nulo en una cadena?
Puedes utilizar esta función:
Código:
Function quitarCaracterCadena(ByVal cadena As String, _
ByVal caracter) As String
Dim i As Long
Dim j As Long
Dim cadTemporal As String
Dim sCaracter$
quitarCaracterCadena = ""
If Not IsMissing(caracter) Then
sCaracter = caracter
cadTemporal = ""
For i = 1 To Len(cadena)
If InStr(sCaracter, Mid$(cadena, i, 1)) = 0 Then
cadTemporal = cadTemporal & Mid$(cadena, i, 1)
End If
Next
quitarCaracterCadena = cadTemporal
End If
End Function
Un ejemplo de uso:
Código:
Private Sub btQuitarCaracter_Click()
txtResultado.Text = _
quitarCaracterCadena(txtCadena.Text, Chr(0))
End Sub
Puede publicar nuevos temas en este foro No puede responder a temas en este foro No puede editar sus mensajes en este foro No puede borrar sus mensajes en este foro No puede votar en encuestas en este foro
Visita nuestro nuevo sitio web con programas y contenidos actualizados: Proyecto A