Visual Basic - Urgente, Necesito Master de Visual

Life is soft - evento anual de software empresarial
 
Vista:

Urgente, Necesito Master de Visual

Publicado por Ozzy (11 intervenciones) el 30/10/2001 14:08:55
Hola,
Mi duda es la siguiente:
Tengo Generado un archivo plano el cual esta delimitado con | sus campos... necesito desde visual basic poder leer este archivo para poder grabarlo en una tabla de access.... si alguien tiene una idea o una rutina desarrollada le agradeceria enormemente.

De antemano Muchas Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Urgente, Necesito Master de Visual

Publicado por afogutu (321 intervenciones) el 30/10/2001 14:29:15
Ante todo para hacer eso no hay que ser un master.

Dim dbCadena() As String
Dim dbMax As Integer

Function ParcearCadena(CadenaAParcear As String)
dbCadena = Split(CadenaAParcear, "|")
dbMax = UBound(dbCadena)
End Function

Function ProcesarArchivo()
Dim Arch As Integer
Dim NumArch As Integer
Dim Frase As String
NumArch = FreeFile

Open (RutaArchivo) For Input As #NumArch
Do While Not EOF(NumArch)
Line Input #NumArch, Frase
ParcearCadena Frase
If dbCadena(1) = Text1.Text Then
Acá hacés la inserción en la base de datos.
End If
Loop
Close #NumArch
MsgBox "Fin"
NumArch = FreeFile
End Function

Afogutu
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar