Quitar blancos
La respuesta para quitar blancos no funciona. Aquí van dos soluciones simples (se pueden mejorar): Una es una subrutina, la otra es idéntica en forma de función). Esto no es una pregunta.
Sub Limpiar(Cadena As String)
Dim i As Integer, Dummy As String, d As String * 1
For i = 1 To Len(Cadena)
d = Mid(Cadena, i, 1)
If d Like "[A-Z,a-z,0-9]" Then
Dummy = Dummy + d
End If
Next
Cadena = Dummy
End Sub
Function Aclarar(Cadena As String) As String
Dim i As Integer, Dummy As String, d As String * 1
For i = 1 To Len(Cadena)
d = Mid(Cadena, i, 1)
If d Like "[A-Z,a-z,0-9]" Then
Dummy = Dummy + d
End If
Next
Aclarar = Dummy
End Function
Sub Limpiar(Cadena As String)
Dim i As Integer, Dummy As String, d As String * 1
For i = 1 To Len(Cadena)
d = Mid(Cadena, i, 1)
If d Like "[A-Z,a-z,0-9]" Then
Dummy = Dummy + d
End If
Next
Cadena = Dummy
End Sub
Function Aclarar(Cadena As String) As String
Dim i As Integer, Dummy As String, d As String * 1
For i = 1 To Len(Cadena)
d = Mid(Cadena, i, 1)
If d Like "[A-Z,a-z,0-9]" Then
Dummy = Dummy + d
End If
Next
Aclarar = Dummy
End Function
1 Respuesta
Respuesta de elierha
1