Некорректная выгрузка из файла

[alvk]

Вообщем заменил я эту функцию на replace и всё заработало. Что конкретно не работает? Вот выкладываю результат загрузки:
P.s. и где схема.ini?

[alvk]

Новая версия, вся беда ваша в пробелах в тексте, и в двойных кавычках

[Emmelman]

правда работает! только данные со смещением в таблице, начинаются они после столбца CREDIT_ACCOUNT. Я так понимаю, что вы убрали лишние пробелы и двойные кавычки в текстовом файле? Эх, в принципе это решение для данного файла, но не для выгрузки в 100 записей xD (или даже больше, этот файл я просто уменьшил с 7 до 2 записей).

По идее код верен,ведь так? Получается,что проблема в файле изначально? Или надо другой метод программного импорта искать..

[alvk]

Проблема в файле, изначально. К нему кстати можно запросом напрямую подключится, где-то было описание, как делать с текстовыми файлами.. вот же оно. Можете попробовать запросом подцепиться и обрабатывать поля сразу (split, left, mid)

[Emmelman]

хах, как раз свой код я отсюда и вытащил) поэтому да, придется смотреть другой способ. Или общаться с нашими айтишниками, хотя они такие лентяи - "а зачем вам это надо? а куда это? а почему так?"

Просто имеется несколько файлов с разными именами, а структура одинаковая и вот попадаются такие строчки, в некоторых из них, что одна полностью импортируется, а другая нет( но надо решать проблему

[Emmelman]

а такой вопрос - а почему в экселе нормально выгружается все, а программно через аксесс некорректно?

[Emmelman]

Начал искать в инете еще способы и нашел вот такой, как бы его приспособить? уже начал разбираться

Function filetxtGet(katalog As String)
    Dim Path, fr, flf, TextLine, rst As DAO.Recordset, db As DAO.Database
    Dim spl, i, mspl(6), k, n, j
    Set db = CurrentDb
    Set rst = db.OpenRecordset("select * from Operations")
    Path = katalog ' не пойму,что за строчки,эти две
    flf = Dir(Path)' <-
    Do While Not flf = "" ' дальше этого функция у меня не идет, я так понимаю должен открыться файловый диалог, но он не открывается, пихнуть сюда свой? из моего кода
        Open Path & flf For Input As #Copy ' тут по идее имя файла, в примере было #1
        k = 0
        Do While Not EOF(1) 
            k = k + 1
            Line Input #1, TextLine 
            TextLine = "TextLine, 866, 28595" 'тут кодировка ставится, на этой строчке была функция, но мне не нужно дос в win1251 переводить
            If k > 1 Then '
                spl = Split(TextLine, " ", 19) ' тут ставится разделитель и количество полей в файле
                rst.AddNew
                For i = 0 To 18
                    rst(i) = spl(i)
                Next
                n = UBound(spl)
                If (n > 18) Then 
                    For j = 19 To (n - 1)
                        rst(j) = spl(j)
                    Next
                End If
                rst.Update
            End If
        Loop
        flf = Dir
        Close #Copy  ' закрывается файл
    Loop
End Function

[Андрэич]

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

правда работает! только данные со смещением в таблице, начинаются они после столбца CREDIT_ACCOUNT. Я так понимаю, что вы убрали лишние пробелы и двойные кавычки в текстовом файле? Эх, в принципе это решение для данного файла, но не для выгрузки в 100 записей xD (или даже больше, этот файл я просто уменьшил с 7 до 2 записей).

По идее код верен,ведь так? Получается,что проблема в файле изначально? Или надо другой метод программного импорта искать..

Беда, во-первых, в вашей невнимательности (28 примеров только из этих текстов, других не знаю) в кач диагноза (не в обиду, но как-то вас надо стимулировать: например, отдыхать, переключаться на другое, утром проверять свои тексты).

Причём здесь колич записей? Ошибка в одном - в алгоритме

[alvk]

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

Начал искать в инете еще способы и нашел вот такой, как бы его приспособить? уже начал разбираться

он вам не подходит, я же посоветовал вам через запрос, в приложенном файле всё описано.

[Emmelman]

Как я понял, то, что сделал я - это запрос со стандартной строкой подключения, данный способ описан в файле, сейчас я смотрю вариант подключения с помощью спецификаций аксесса

Но вот,что у меня получилось

 
Dim scnn2 As String

  spec = "[Text;DSN=Import_spec;IMEX=2;HDR=No]"
    CurrentDb.Execute "INSERT Into Operations(OPERATIONDATE, OPERATION_TIME, BRANCH_NAME,BRANCH_CODE, " _
 & " AMOUNT_OPERATION,[CURRENCY], DEBIT_ACCOUNT, DEBIT_ACCOUNT_OWNER_NAME, DEBIT_ACCOUNT_OWNER_ID, DEBIT_ACCOUNT_OWNER_STATUS, " _
 & " CREDIT_ACCOUNT, CREDIT_ACCOUNT_OWNER_NAME, CREDIT_ACCOUNT_OWNER_ID, " _
 & " CREDIT_ACCOUNT_OWNER_STATUS, EXPLANATION, BANK, ENTER_USER, APPROVE_USER, PRODUCT_NAME) " _
 & " SELECT (DateValue(Format([OPERATIONDATE],'0000\.00\.00'))), OPERATION_TIME, BRANCH_NAME,BRANCH_CODE, " _
 & " AMOUNT_OPERATION,[CURRENCY], DEBIT_ACCOUNT, DEBIT_ACCOUNT_OWNER_NAME, DEBIT_ACCOUNT_OWNER_ID, " _
 & " DEBIT_ACCOUNT_OWNER_STATUS, CREDIT_ACCOUNT, CREDIT_ACCOUNT_OWNER_NAME, CREDIT_ACCOUNT_OWNER_ID, " _
 & " CREDIT_ACCOUNT_OWNER_STATUS, EXPLANATION, BANK, ENTER_USER, APPROVE_USER, " _
 & " PRODUCT_NAME FROM " & MyG & " IN '" & FilePath & "'" & spec

заработало, все файлы норм грузятся, но есть одно маленькое исключение, я теряю данные в поле OPERATIONDATE, в файле они выглядят как 20120313. С помощью Андрэича мне удалось привести их к необходимому формату 13.03.2012 - но это было для моего старого кода, тут же я использую спецификацию аксесса, как исправить? Подскажите пожалуйста,заранее благодарен! Пока оставил тут строчку с (DateValue(Format([OPERATIONDATE],'0000\.00\.00'))), но она,по-видимому, не работает

UPDATE: только что пришла в голову такая мысль - я делаю в таблице поле OPERATIONDATE текстовым, а не как сейчас дата\время, следовательно при выгрузке все ячейки заполнятся данными такого типа 20120312 итп, и вот тут написать код,который будет менять эту строчку на дату. Блин..наверно не получится,ведь поле-то текстовое, а я хочу дату сделать..