Tengo una tabla con una columda de datos de tipo texto que contiene datos
con el sig formato 10/1000/7 ó 1/10/1000 etc y necesito exportar esos datos
a otra tabla pero en una columna con datos de tipo numericos, con lo cual
debo sacarles la / (barra).
Es decir convertir el 10/1000/7 en 1010007, Como Hago?
Responde Bhuo:
==============
Function DamePalabra(Palabra) As String
Dim Resultado As String
Dim K As Integer
For K = 1 To Len(Palabra)
If Mid(Palabra, K, 1) <> "/" Then
Resultado = Resultado & Mid(Palabra, K, 1)
End If
Next
DamePalabra = Resultado
End Function
Y si la queremos hacer más generica, para quitar cualquier caracter:
Function DamePalabra(Palabra As String, CaracterQuitar As String) As String
Dim Resultado As String
Dim K As Integer
For K = 1 To Len(Palabra)
If Mid(Palabra, K, 1) <> CaracterQuitar Then
Resultado = Resultado & Mid(Palabra, K, 1)
End If
Next
DamePalabra = Resultado
End Function
La llamada a esta función sería:
PalabraDevuelta=DamePalabra("1000/554/2111/","/")
PERO....¿Para que hace todo esto el Bhuo si ya existe una funcion que lo hace?:
===============================================================================
TextoTransformado = Replace(TextoOriginal, "/" , "")
Pues por que el Bhuo desconocia la existencia de REPLACE, sin mas.
               (
geocities.com/es/ensolva/Descargas)                   (
geocities.com/es/ensolva)                   (
geocities.com/es)