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...

1 respuesta

Respuesta
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.
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."

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas