Urgente importar archivos planos
Hola, por favor soy nuevo necesito importar archivos planos a vb6.0 a sql estos esta por ejemplo 0011716208267Patricia Narvaez 000320
Los 3 primeros caracteres son el código y los 10 siguiente es el numero de cedula los siguientes caracteres 40 son de los nombres y los últimos 6 son datos del sueldo, realmente no se como importar estos datos ya que no tienen delimitadores y no se como hacerlo si tienen un ejemplo gracias
Los 3 primeros caracteres son el código y los 10 siguiente es el numero de cedula los siguientes caracteres 40 son de los nombres y los últimos 6 son datos del sueldo, realmente no se como importar estos datos ya que no tienen delimitadores y no se como hacerlo si tienen un ejemplo gracias
1 respuesta
Respuesta de luisalbeiro
1
Ahí le envío un ejemplo para que comience
crea un botón, un text y CommonDialog1
en un formulario
si quieres un ej echo en visual entra a esta link
http://www.laneros.com/showthread.php?t=24847
Es el archivo comprimido.
Y si quieres separarlos usa la función mid$ o left$
Private Sub btnBuscar_Click()
txtArchivo.Text = Empty
txtContenido.Text = Empty
dlgArchivo.InitDir = "C:\"
dlgArchivo.Filter = "Archivos de Texto (*.txt)|*.txt|Todos los Archivo (*.*)|*.*"
dlgArchivo.ShowOpen
If dlgArchivo.FileName <> Empty Then
txtArchivo.Text = dlgArchivo.FileTitle
Open dlgArchivo.FileName For Input As #1
Do While Not EOF(1)
Input #1, contenido
txtContenido.Text = txtContenido.Text & contenido
Loop
Close #1
Else
txtArchivo.Text = "NO SE ABRIO NINGUN ARCHIVO"
End If
End Sub
Private Sub btnCerrar_Click()
End
End Sub
Bye
crea un botón, un text y CommonDialog1
en un formulario
si quieres un ej echo en visual entra a esta link
http://www.laneros.com/showthread.php?t=24847
Es el archivo comprimido.
Y si quieres separarlos usa la función mid$ o left$
Private Sub btnBuscar_Click()
txtArchivo.Text = Empty
txtContenido.Text = Empty
dlgArchivo.InitDir = "C:\"
dlgArchivo.Filter = "Archivos de Texto (*.txt)|*.txt|Todos los Archivo (*.*)|*.*"
dlgArchivo.ShowOpen
If dlgArchivo.FileName <> Empty Then
txtArchivo.Text = dlgArchivo.FileTitle
Open dlgArchivo.FileName For Input As #1
Do While Not EOF(1)
Input #1, contenido
txtContenido.Text = txtContenido.Text & contenido
Loop
Close #1
Else
txtArchivo.Text = "NO SE ABRIO NINGUN ARCHIVO"
End If
End Sub
Private Sub btnCerrar_Click()
End
End Sub
Bye
