Управление текстовым файлом

[Vladymyrus]

Добрый день, дорогие форумчане !
Как можно с помощью Access изменить структуру текстового файла.
Сначала есть текстовый файл: "#01IZFBE.GE1". В нем есть числовые строки в разрезе областей. Например:
#1=1 (код области после "=")
1010026431=35910789000
1010027561=498105700412
#1=10
1010026431=16872982456456
#1=11
1010026431=9483497374643
1010027561=32672364634536

Как можно с помощью VBA Access преобразовать структуру данного файла, чтобы она стала такой:
1 (удаляем "#1=")
011010026431=35910789000 (проставляем код обл."01" в начале строки)
011010027561=498105700412 (проставляем код обл."01" в начале строки)
10 (удаляем "#1=")
101010026431=16872982456456 (проставл. код обл."10" в начале строки)
11 (удаляем "#1=")
111010026431=9483497374643 (проставляем код обл."11" в начале строки)
111010027561=32672364634536 (проставл. код обл."11" в начале строки)
Пример конечного файла: "#01IZFBE+.GE1".
Спасибо за помощь.

[Serge_Bliznykov]

сразу вопрос - а почему на Access/VBA, другие программные средства не рассматриваются?

[Vladymyrus]

Прежде всего, потому, что дальнейшая работа с этими файлами происходит в среде Access. Хотелось чтобы все было в одной среде.

[Step_UA]

Доброго.

Sub delRegion(Fname As String)
  Dim TXT As String, i As Long, O As Object
    Set O = CreateObject("scripting.filesystemobject")
    With O.OpenTextFile(Fname, 1)
        TXT = .ReadAll: .Close
      End With
    i = InStrRev(Fname, ".")
    With O.CreateTextFile(Left(Fname, i - 1) & "+" & Mid(Fname, i))
        i = InStr(1, TXT, "#1=")
        .WriteLine vbNewLine & vbNewLine & Replace(Mid(TXT, i + 3), "#1=", "")
        .Close
      End With
    Set O = Nothing
End Sub

[Vladymyrus]

Подскажите, как выполнить код?
У меня не получается.

[R Dmitry]

Добрый вечер
Если вы работаете с этим файлом в access, то можно его импортировать обычным запросом без VBA.

SELECT Replace([f1],"#1=","") INTO TBL
FROM [01IZFBE.txt] IN 'C:\'[Text;IMEX=2;HDR=No]
where Len(f1) >0

------------
Единственный нюанс, это название файла, оно должно быть без #
------------
В данном примере будет создана таблица TBL c уже преобразованными данными.
============================

Пардон не дочитал условие, что необходимо добавлять код в строку, тогда только через VBA

[Vladymyrus]

Сообщение от Step_UA

Доброго.

Sub delRegion(Fname As String)
  Dim TXT As String, i As Long, O As Object
    Set O = CreateObject("scripting.filesystemobject")
    With O.OpenTextFile(Fname, 1)
        TXT = .ReadAll: .Close
      End With
    i = InStrRev(Fname, ".")
    With O.CreateTextFile(Left(Fname, i - 1) & "+" & Mid(Fname, i))
        i = InStr(1, TXT, "#1=")
        .WriteLine vbNewLine & vbNewLine & Replace(Mid(TXT, i + 3), "#1=", "")
        .Close
      End With
    Set O = Nothing
End Sub

Пожалуйста, подскажите как выполнить этот код?
В Access не получается.

[R Dmitry]

Тынц и от корки до корки

[Vladymyr17]

Текстовый файл лежит в отдельной папке на рабочем столе.
Помогите, пожалуйста решить задачу с преобразованием ТХТ.
Спасибо.

[alvk]

-Вы что и есть за меня будете?
-Ага.
(с)