Option Compare Database
Option Explicit

Public Declare Function OemToChar Lib "user32" Alias "OemToCharA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long
Public Declare Function CharToOem Lib "user32" Alias "CharToOemA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long
Public Function Convert()
Dim r As DAO.Recordset
Dim s As String
Dim s2 As String
Dim f As Boolean
Open CurrentProject.Path & "\ttt.txt" For Input As # 1   ' Open file for input.

f = False
'Цикл пропускает заголовок
While Not EOF( 1 ) And Not f
Line Input # 1 , s
s2 = String( 250 , " ") & Chr( 0 )
Call OemToChar(s, s2)
s2 = Trim(s2)
If Left(s2,  1 ) = "+" Then f = True
Debug.Print s2
Wend
Set r = CurrentDb.OpenRecordset("SELECT * FROM ttt", DAO.dbOpenDynaset, DAO.dbAppendOnly)
If f = False Then Exit Function
f = False
While Not EOF( 1 ) And Not f
Line Input # 1 , s
s2 = String( 250 , " ") & Chr( 0 )
Call OemToChar(s, s2)
s2 = Trim(s2)
r.AddNew
r("p1") = Trim(GetItemFromStr(s2,  2 , "¦"))
r("p2") = Trim(GetItemFromStr(s2,  3 , "¦"))
r("p3") = Trim(GetItemFromStr(s2,  4 , "¦"))
'Читаем следующую строку т.к. длина отрезка и угол почему-то в новой строке
'Но мы добавим её в туже запись
Line Input # 1 , s
s2 = String( 250 , " ") & Chr( 0 )
Call OemToChar(s, s2)
s2 = Trim(s2)
r("p4") = Trim(GetItemFromStr(s2,  5 , "¦"))
s = Trim(GetItemFromStr(s2,  6 , "¦"))
'Заменяем несколько пробелов на 1 пробел
s = Replace(s, "  ", " ")
s = Replace(s, "  ", " ")
r("p5") = Trim(GetItemFromStr(s, 1, " "))
r("p6") = Trim(GetItemFromStr(s, 2, " "))
r("p7") = Trim(GetItemFromStr(s, 3, " "))
'Завершаем создание записи
r.Update
If Left(s2,  1 ) = "L" Then f = True 'Найден символ нижней рамки
Debug.Print s2
Wend

r.Close
Close # 1 
Set r = Nothing
End Function


Public Function GetItemFromStr(s As String, iItem As Long, Optional sRazdel As String = ";") As String
Dim i As Long
Dim n1 As Long, n2 As Long, lenRazd As Long
Dim stemp As String
  n1 =  1 
  lenRazd = Len(sRazdel)
  For i =  1  To iItem -  1 
        n2 = Nz(InStr(n1, s, sRazdel),  0 )
        If n2 <>  0  Then
             n1 = n2 + lenRazd
        Else
             Exit For
        End If
  Next i
  stemp = ""
  n2 = Nz(InStr(n1, s, sRazdel),  0 )
  If n2 <>  0  Then
        stemp = Mid(s, n1, n2 - n1)
  Else
        If n1 >  1  Then
            If i = iItem Then stemp = Mid(s, n1, Len(s))
        Else
            If i = iItem Then stemp = s
        End If
  End If
  GetItemFromStr = stemp
End Function