Ver Mensaje Individual
  #9 (permalink)  
Antiguo 04/05/2009, 15:04
Avatar de culd
culd
 
Fecha de Ingreso: noviembre-2003
Mensajes: 959
Antigüedad: 20 años, 6 meses
Puntos: 19
Respuesta: ideas de sistema y subsistema

Para que veas que soy bueno...

Código:
Dim Linea As String
Dim DNI as String
Dim Nombre as String
Dim Nota as Double

Open Archivo For Input As #1
	While Not EOF(1)
		'Lees la linea		
		Line Input #1, Linea
		'Guardamos los campos leidos
		DNI = SepararDatos(1, Linea, Asc("|"))
		Nombre = SepararDatos(2, Linea, Asc("|"))
		Nota = SepararDatos(3, Linea, Asc("|"))
		'ACA PODES PONER TU INSERT CON TODOS LOS DATOS QUE OBTUVISTE
	Wend
Close #Canal
La funcion SEPARARDATOS que te arme es esta, la podes poner en un modulo para utilizarla desde cualquier lado

Código:
'Programado por ..::][CULD][::.. a pedido de DWIN
'-----------------------------------------------------------------------------------
'Function que separa el string segun el tipo de caracter utilizado como separador
'-----------------------------------------------------------------------------------
Public Function SepararDatos(ByVal pos As Integer, ByVal Text As String, ByVal SepASCII As Integer) As String
Dim i As Integer
Dim UltimaPos As Integer
Dim CurChar As String * 1
Dim Campo As Integer
Dim Separador As String
  
Separador = Chr(SepASCII)
UltimaPos = 0
Campo = 0

For i = 1 To Len(Text)
    CurChar = Mid$(Text, i, 1)
    If CurChar = Separador Then
        Campo = Campo + 1
        If Campo = pos Then
            SepararDatos = Mid$(Text, UltimaPos + 1, (InStr(UltimaPos + 1, Text, Separador, vbTextCompare) - 1) - (UltimaPos))
            Exit Function
        End If
        UltimaPos = i
    End If
Next i

Campo = Campo + 1
If Campo = pos Then
    SepararDatos = Mid$(Text, UltimaPos + 1)
End If
End Function
Asi seria el procedimiento... UNA PABADA