автомобильная прога EPC (SAAB)
выбираем список запчастей в выборочном листе и сохраняем его в файл
допустим z.epl
стоит задача перетащить инфу из него в Access
может кто занимался таким?
нужно вытащить только ID детали и кол-во, (2 поля)
файл z.epl приложен
в нем 4 детали для примера

в приложенном файле:
16 деталей
кол-во у всех = 2

для выявления кода детали:
(код делался до меня, цифры типа 9,7, 911, 912... без понятия откуда)
====================

Dim SLine As String
Dim AddPrt As String
Dim Pos As Integer
Dim CodeLen As Integer
Dim CodeLenChar$
Dim Pos1 As Integer
Dim SPID As Long
Dim FAST As Recordset

Set FAST = CurrentDb.OpenRecordset("SAAB")
Open "C:\EPC\z.epl" For Input As #1 ' Open file.
Pos = 1
Do While Not EOF(1)
Line Input #1, SLine ' Get complete line.
While (Pos <> 0)
Pos = InStr(Pos + 2, SLine, "81")
If Pos > 0 Then
CodeLenChar = Mid$(SLine, Pos + 2, 1)
If (CodeLenChar >= "7" And CodeLenChar <= "9") Then
CodeLen = CodeLenChar
Pos1 = InStr(Pos + 10, SLine, "911")
If (Pos1 - Pos) >= 15 Then Pos1 = InStr(Pos + 10, SLine, "912")
If ((Pos1 - Pos) < 15) And (Pos1 > 0) Then
FAST.AddNew
If (Mid$(SLine, Pos + 3, 1) = "X") Then
FAST("Код") = Mid$(SLine, Pos + 4, CodeLen - 1)
Else
FAST("Код") = Mid$(SLine, Pos + 3, CodeLen)
End If

FAST.Update
End If
End If
End If
Wend
Loop
FAST.Close

получается таблица с кодами, но без количества (FAST("количество")) :(
как доделать количество - фиг знает, мои мозги такую задачу не могут решить