Buscar y remplazar en un txt, visual basic 6.0
Amigo tengo un archivo txt el cual debo cargar a una BD la estructura del txt es esta:
18384407, 4125143229, 2638772383, 8757584, 1
he logrado cargar estos txt a la bd pero el problema es que les tengo que quitar las comas "," ya que para montarlo a la BD deben estar separadas solo por espacios de esta forma:
18384407 4125143229 2638772383 8757584 1
Ahora como puedo automatizar esto en visual basic para que el me depure el txt es decir elimine todas las comas que encuentre para luego cargarlos a la bd
si puedes ayudarme te agradecería...
18384407, 4125143229, 2638772383, 8757584, 1
he logrado cargar estos txt a la bd pero el problema es que les tengo que quitar las comas "," ya que para montarlo a la BD deben estar separadas solo por espacios de esta forma:
18384407 4125143229 2638772383 8757584 1
Ahora como puedo automatizar esto en visual basic para que el me depure el txt es decir elimine todas las comas que encuentre para luego cargarlos a la bd
si puedes ayudarme te agradecería...
1 Respuesta
Respuesta de Raul Hernandez
1
Aquí te dejo una rutina que tenia guardada que hace eso:
Sub SearchReplace()
Dim i As Integer
Dim j As Integer
Dim Linea() As String
Dim Filename As String
'debes colocar aquí una forma de almacenar
'la ruta y el nombre del archivo en la variable
'Filename para que puedas operar con el codigo siguiente
Open Filename For Input As #1
While Not EOF(1)
i = i + 1
ReDim Preserve Linea(1 To i) As String
Line Input #1, Linea(i)
Wend
Close #1
Open Dialog.Filename For Output As #1
For j = 1 To i
Linea(j) = Replace(Linea(j), ",", " ")
Print #1, Linea(j)
Next
Close #1
End Sub
Solo insértala donde tu creas conveniente, ten presente que esta rutina sobreescribe el archivo original.
Sub SearchReplace()
Dim i As Integer
Dim j As Integer
Dim Linea() As String
Dim Filename As String
'debes colocar aquí una forma de almacenar
'la ruta y el nombre del archivo en la variable
'Filename para que puedas operar con el codigo siguiente
Open Filename For Input As #1
While Not EOF(1)
i = i + 1
ReDim Preserve Linea(1 To i) As String
Line Input #1, Linea(i)
Wend
Close #1
Open Dialog.Filename For Output As #1
For j = 1 To i
Linea(j) = Replace(Linea(j), ",", " ")
Print #1, Linea(j)
Next
Close #1
End Sub
Solo insértala donde tu creas conveniente, ten presente que esta rutina sobreescribe el archivo original.
Disculpa el abuso, tu puedes enviarme la rutina con la que cargas el txt en la base de datos SQL.
Muchas gracias amigo bueno aun no tengo para cargar a sql pero la verdad que lo necesitare solo tengo para cargar a access te lo dejo de igual forma el de SQL espero hacerlo mañana o el sábado si me queda algo de tiempo amigo agrégame al msn me gustaría poder tenerte de contacto... dejo el código por si t es de utilidad saludos...
Public Function FileToString(Filename As String) As String
Dim hlngFile As Long, strFile As String
hlngFile = FreeFile
Open Filename For Binary Access Read As hlngFile
FileToString = vbNullString
strFile = String(FileLen(Filename), " ")
Get hlngFile, , strFile
Close hlngFile
FileToString = strFile
End Function
'************************************************************
Private Sub JeweledButton1_Click()
'Nota: la propiedad que define las diferentes estilos de Vistas _
es "Vista" y tiene los posibles valores: _
'CdView1.Vista = VISTA_DETALLE
'CdView1.Vista = VISTA_ICONOS
'CdView1.Vista = VISTA_LISTA
'CdView1.Vista = VISTA_MOSAICO
'CdView1.Vista = VISTA_THUMBNAIL - Vista en miniatura
With CdView1
.DialogTitle = "Seleccionar archivo"
'Extenciones
.Filter = "Archivos (*.txt)|*.txt"
'directorio inicial
.InitDir = "\\bodapps19\Transferencia\NotifUltimusDialer"
'Vista de archivos en miniatura
CdView1.Vista = VISTA_THUMBNAIL
End With
'Abrimos el CommonDialog pasandole el Formulario como parámetro
CdView1.ShowOpen Me
'Mostramos el archivo y la ruta seleccionado
Text1.Text = CdView1.Filename
End Sub
'************************************************
On Error GoTo archivo
Dim Lineas As Variant, i As Integer, j As Integer, k As Integer
Dim Columnas() As String
Dim Camino As String
Camino = Text1.Text
Lineas = Split(FileToString(Camino), vbCrLf)
For i = Val(LBound(Lineas)) To UBound(Lineas)
Columnas = Split(Lineas(i), " ")
rec.Open "Select * from tab_rec", bd, adOpenKeyset, adLockOptimistic
With rec
If UBound(Columnas) = 4 Then
.AddNew
!i3_rowid = Columnas(0)
!TelefonoUNO = Columnas(1)
!TelefonoDOS = Columnas(2)
!TelefonoTRES = Columnas(3)
!TipoMensaje = Columnas(4)
.Update
.Close
End If
End With
Next i
MsgBox "Los Datos se importaron con exito!!!!", vbInformation, "De .txt a .mdb"
Exit Sub
archivo:
MsgBox "Se produjo un error al intentar cargar el archivo, este es inválido o la ruta especificada no existe...", vbExclamation, "Error."
Public Function FileToString(Filename As String) As String
Dim hlngFile As Long, strFile As String
hlngFile = FreeFile
Open Filename For Binary Access Read As hlngFile
FileToString = vbNullString
strFile = String(FileLen(Filename), " ")
Get hlngFile, , strFile
Close hlngFile
FileToString = strFile
End Function
'************************************************************
Private Sub JeweledButton1_Click()
'Nota: la propiedad que define las diferentes estilos de Vistas _
es "Vista" y tiene los posibles valores: _
'CdView1.Vista = VISTA_DETALLE
'CdView1.Vista = VISTA_ICONOS
'CdView1.Vista = VISTA_LISTA
'CdView1.Vista = VISTA_MOSAICO
'CdView1.Vista = VISTA_THUMBNAIL - Vista en miniatura
With CdView1
.DialogTitle = "Seleccionar archivo"
'Extenciones
.Filter = "Archivos (*.txt)|*.txt"
'directorio inicial
.InitDir = "\\bodapps19\Transferencia\NotifUltimusDialer"
'Vista de archivos en miniatura
CdView1.Vista = VISTA_THUMBNAIL
End With
'Abrimos el CommonDialog pasandole el Formulario como parámetro
CdView1.ShowOpen Me
'Mostramos el archivo y la ruta seleccionado
Text1.Text = CdView1.Filename
End Sub
'************************************************
On Error GoTo archivo
Dim Lineas As Variant, i As Integer, j As Integer, k As Integer
Dim Columnas() As String
Dim Camino As String
Camino = Text1.Text
Lineas = Split(FileToString(Camino), vbCrLf)
For i = Val(LBound(Lineas)) To UBound(Lineas)
Columnas = Split(Lineas(i), " ")
rec.Open "Select * from tab_rec", bd, adOpenKeyset, adLockOptimistic
With rec
If UBound(Columnas) = 4 Then
.AddNew
!i3_rowid = Columnas(0)
!TelefonoUNO = Columnas(1)
!TelefonoDOS = Columnas(2)
!TelefonoTRES = Columnas(3)
!TipoMensaje = Columnas(4)
.Update
.Close
End If
End With
Next i
MsgBox "Los Datos se importaron con exito!!!!", vbInformation, "De .txt a .mdb"
Exit Sub
archivo:
MsgBox "Se produjo un error al intentar cargar el archivo, este es inválido o la ruta especificada no existe...", vbExclamation, "Error."
