Coger Ciertos Caracteres De Un Archivo Txt

[jjon]

Hola a todos,

tengo un archivo de texto q lo cargo en visual mediante este programa, de tal forma q me queda todo el texto guardado en la variable `total`.

Private Sub Form_Load()
Dim texto As Integer
Open "C:\COMBI001.TXT" For Input As #1
Dim Linea As String, Total As String
Do Until EOF(1)
Line Input #1, Linea
Total = Total + Linea + vbCrLf
Loop
Close #1
texto = InStr(0, Total, "19")

End Sub


El caso es q el archivo txt q he cargado en la variable `total´ es el ticket de una maquina de pesaje el cual consta de diferentes lineas y solamente deseo coger ciertos caracteres de cada linea concretamente de las lineas pares desearia coger 205 y 43.5 o lo que se encontrara en esas posiciones puesto q pueden ser otros valores, para posteriormente llevarlo a una base de datos creada en mySQL. El ticket es el siguiente:

L2CHI PQT M
2 205 31.5 43.5
L2CHI PQT M
3 205 80.0 <====TICKET
L2CHI PQT M
4 205 80.5
L2CHI PQT M
5 205 81.0
L2CHI PQT M
6 205 32.5 11.5
L2CHI PQT M
7 205 32.5 34.0
L2CHI PQT M
8 205 32.5 48.5
9 5 31.5 5.5
9 TOT kg 427.0


Gracias de antemano

[David]

Según lo que entendí de tu pregunta puedes hacerlo así:

Código:

 
Private Sub Form_Load()
Open "C:\COMBI001.TXT" For Input As #1
Dim Linea As String, Dim Extraer() As String
Do Until EOF(1)
      ' Saltear una línea 
      Line Input #1, Linea
      Line Input #1, Linea
      'Separar los datos de la Línea
      Extraer = Split(Linea, " ")
      'Mostrar el segundo y el último dato
      MsgBox Extraer(1) & " " & Extraer(UBound(Extraer))
Loop
Close #1
End Sub

En este caso mostramos en un MsgBox el segundo y el último dato de la línea, tú puedes guardarlo en variables...