Как распарсить файл *.txt в access.

[VladimirC2004]

Доброго времени суток! Такая проблема: есть файл .txt (смотри приложение) нужно последние три строки впихнуть в таблицу access. Уже сломал голову...
Заранее спасибо.

[Stilet]

нужно последние три строки впихнуть в таблицу access

Просто как строками?
Примерно с потолка:

Sub b()
Open "C:\Донесение о землетрясении N4328.txt" For Input As #1
        Dim s As String
         
        Do While Not EOF(1) And s <> ""
            Line Input #1, s
        Loop
        Dim r As DAO.Recordset
        Set r = CurrentDb.OpenRecordset("Таблица1")
        Do While Not EOF(1)
            Line Input #1, s
            r.AddNew
            r!Поле1 = s
            Debug.Print s
        Loop
        r.Update
Close #1
End Sub

Т.Е. пройтись до нужных строк которые потом занести в базу

[R Dmitry]

я думаю если тексты не "война и мир" и знаем что нужны именно последние строки, то лучше распарсить так :

Sub ImpTXT()
    Dim oFSO, TFile, a, i&
       Set oFSO = CreateObject("Scripting.FileSystemObject")
    Set TFile = oFSO.OpenTextFile("D:\post.txt",1)
    a = Split(TFile.ReadAll, vbNewLine)
    TFile.Close:  Set TFile = Nothing
     For i = UBound(a) To UBound(a) - 2 Step -1
        Debug.Print a(i)
     Next
End Sub

а уже добавить в таблицу, можно любым удобным способом.

[VladimirC2004]

Спасибо огромное... вроде разобрался. (правда не совсем то, что нужно, но по крайней мере толкнули куда надо...)
А не подскажете, каким образом можно из Access по нажатию кнопки построить слайд в PowerPoint (т.е. воткнуть туда картинку, на нее накинуть объект "звезда" в середину и текст из ячейки таблицы ACCESS)?

[Teslenko_EA]

Здравствуйте VladimirC2004.
"..не совсем то, что нужно.." жаль возможно Вас устроит следующий вариант,
я добавил несколько строк к коду предложенному R Dmitry и получилась конструкция
проверяющая все текстовые файлы в заданной папке (sSourceFolder) и добавляет новые данные в таблицу
БД в которой выполняется этот код, т.е. достаточно "сбрасывать" все файлы донесений в одну папку
и периодически выполнять код:

Sub txtFileToMDB()
'укажите имя папки в которой размещаются текстовые файлы
'и данные из всех файлов будут прочитаны и переданы в таблицу БД
Const sSourceFolder = "c:\folderForTxtFiles\"
Dim s$, i%, j%
On Error Resume Next
   s = Dir(sSourceFolder + "*.txt", 7)
   Do Until s = ""
        j = j + txtToMDB(sSourceFolder + s)
        i = i + 1
        s = Dir
   Loop
'If i > 0 Then MsgBox "файлов в папке '" + sSourceFolder & _
        "' : " & i & vbCrLf & "добавлено записей : " & j
End Sub
Function txtToMDB&(sFile$)
'укажите реальное название таблицы и имена полей
Const sQ1 = "select F1, F2, F3 from table where F1='", sQ2 = "' and F2='", sQ3 = "' and F3='"
    Dim oFSO, TFile, a, i&, s$, d As DAO.Database, r As DAO.Recordset
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    Set TFile = oFSO.OpenTextFile(sFile, 1)
    a = Split(TFile.ReadAll, vbNewLine)
    TFile.Close:  Set TFile = Nothing
     For i = UBound(a) To LBound(a) Step -1
        If i < 4 Then
            Exit For
        ElseIf Len(a(i)) > 0 And i - LBound(a) > 2 Then
            Set d = CurrentDb
            Set r = d.OpenRecordset(sQ1 + a(i - 2) + sQ2 + a(i - 1) + sQ3 + a(i) + "'")
            If r.EOF Then
                r.AddNew
                r(0) = a(i - 2): r(0) = a(i - 1): r(0) = a(i)
                r.Update
                txtToMDB = 1
            End If
            Exit For
        End If
     Next
Set r = Nothing: Set d = Nothing
End Function

"..каким образом можно из Access по нажатию кнопки построить слайд в PowerPoint..?"
- какое отношение имеет этот вопрос к теме "..файл *.txt в access.."?
Придерживайтесь правила 1 вопрос = 1 тема

Успехов Вам.
Евгений.

[VladimirC2004]

Спасибо!!! Пока не посмотрел (т.к. делаю пока другую задачу) но по описанному Вами - супер!
А про напоминание - извиняюсь - торопился и на автомате там-же и задал вопрос...
Спасибо еще раз!!!