Приведение данных в определенный вид

[Emmelman]

Всем доброе утро!

Появилась задачка, прошу помочь в решении) Есть у меня текстовый файл с большой таблицей внутри(20 столбцов), я делаю импорт данного файла в свою базу данных, все хорошо. Соответственно в таблице есть столбец с названием OPERATIONDATE, который содержит дату проведенной операции в таком вот формате - 20121223, т.е. год-месяц-день. Задача состоит в том, что данный вид мне желательно привести в 23.12.2012, но для начала подошло бы 2012.12.23. Честно, пока слабо представляю как это сделать, может через текстовые функции,такие как Left, Right?

Буду рад любой помощи!

[shanemac51]

 
'примерно так

Sub ww130205_0939()
Dim s, sg, sm, sd
Dim sdate As Date
s = "20121223"
sg = Val(Mid(s, 1, 4))
sm = Val(Mid(s, 5, 2))
sd = Val(Mid(s, 7, 2))
sdate = DateSerial(sg, sm, sd)
Debug.Print sdate

End Sub

[Emmelman]

Спасибо,работает!
Теперь бы разобраться еще как все строки в столбце OPERATIONDATE заменить на новую дату) Может через цикл считывать из столбца,записывать в переменную, эту переменную подставить в s ="переменная", а потом заменить существующую запись?

edit: осознал,что если получится переделать существующие данные в таблице, то как реализовать,чтобы при добавлении новых строк в таблицу,старые данные не изменялись, а обрабатывались бы только новые строчки

[Андрэич]

Или так:

datevalue(format("20121223","0000\.00\.00"))

[Андрэич]

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

еще как все строки в столбце OPERATIONDATE заменить на новую дату)

update Таблица set OPERATIONDATE = datevalue(format(OPERATIONDATE,"0000\.00\.00"))

[Emmelman]

не могли бы вы подсказать как правильно вставить данную строку в код? через CurrentDb.Execute?

[Андрэич]

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

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

insert into ЦелеваяТаблица  in 'ПолныйПутьКБазе.mdb'
       (Поле1,Поле2,OPERATIONDATE,Поле4 ... Поле20)
select (Поле1,Поле2,datevalue(format(НазваниеПоля,"0000\.00\.00")),Поле4 ... Поле20)
from Исходная in [text;HDR=no;format=Delimited(в этих скобках разделитель);CharacterSet=здесь кодировка,напр,OEM;]

[Андрэич]

Извиняюсь, неправильно написал.

insert into ЦелеваяТаблица

<< если целевая таблица во внешней базе, а не в той, где исполняется код, - то после строки кода выше вставить стринг:

                                in 'ПолныйПутьКБазе.mdb'

        (Поле1,Поле2,OPERATIONDATE,Поле4 ... Поле20)
select (Поле1,Поле2,datevalue(format(OPERATIONDATE,"0000\.00\.00")),Поле4 ... Поле20)
from [ИмяФайла#txt] in 'Путь папке'[text; HDR=no; format=Delimited(здесь в скобках разделитель); CharacterSet=здесь кодировка,например,OEM;]

Если же создана спецификация экспорта, то

insert into ЦелеваяТаблица Таблица   
        (Поле1,Поле2,OPERATIONDATE,Поле4 ... Поле20)
select (Поле1,Поле2,datevalue(format(OPERATIONDATE,"0000\.00\.00")),Поле4 ... Поле20)
from [ИмяФайла#txt] in 'Путь папке'[Text;DSN=имя спецификации;IMEX=2;HDR=Yes]

Вообще, как говорят, лучше в подобных случаях себя ведёт метод TransferText (DoCmd.TransferText acImportDelim...), но я не знаю, позволит ли он такие операции с полями (можете справиться в справке). (Хотя, если что, можно, наверно, и внешнюю функцию использовать...)

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

как правильно вставить данную строку в код? через CurrentDb.Execute?

Это текст запроса SQL, можно уже пробовать через конструктор запросов. Если вы запускаете из VBA - то по тем же правилам запуска запроса из кода, с увдвоением кавычек и проч. Или выложите текст процедуры

[Андрэич]

Да, вот нашёл источник:
Работаем с текстовыми файлами
Внчале топика собственно заветная ваша статья. Штудируйте, вникайте, экспериментируйте; дорогу осилит идущий )
(а то, если не ошибаюсь, скоро уж как год, что вы над этим текстовиком колдуете :-) )

[Emmelman]

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

Private Sub Command5_Click()
Dim MyG As String
Dim FileName As String
Dim FilePath As String
Dim s$, h%
    s = "[" & FileName & "]" & vbCrLf & _
        "ColNameHeader=True" & vbCrLf & _
        "Format=TabDelimited" & vbCrLf & _
        "Col1=OPERATIONDATE Char" & vbCrLf & _
        "Col2=OPERATION_TIME Char" & vbCrLf & _
        "Col3=BRANCH_NAME Char" & vbCrLf & _
        "Col4=BRANCH_CODE LongChar" & vbCrLf & _
        "Col5=AMOUNT_OPERATION Double" & vbCrLf & _
        "Col6=CURRENCY char" & vbCrLf & _
        "Col7=DEBIT_ACCOUNT LongChar" & vbCrLf & _
        "Col8=DEBIT_ACCOUNT_OWNER_NAME LongChar" & vbCrLf & _
        "Col9=DEBIT_ACCOUNT_OWNER_ID LongChar" & vbCrLf & _
        "Col10=DEBIT_ACCOUNT_OWNER_STATUS Char" & vbCrLf & _
        "Col11=CREDIT_ACCOUNT Char" & vbCrLf & _
        "Col12=CREDIT_ACCOUNT_OWNER_NAME Char" & vbCrLf & _
        "Col13=CREDIT_ACCOUNT_OWNER_ID LongChar" & vbCrLf & _
        "Col14=CREDIT_ACCOUNT_OWNER_STATUS Char" & vbCrLf & _
        "Col15=EXPLANATION Char" & vbCrLf & _
        "Col16=BANK Char" & vbCrLf & _
        "Col17=ENTER_USER Char" & vbCrLf & _
        "Col18=APPROVE_USER Char" & vbCrLf & _
        "Col19=PRODUCT_NAME Char" & vbCrLf & _
        "Col20=NoName Char" & vbCrLf & _
        "CharacterSet=28595"
    h = FreeFile: Open "C:\Documents and Settings\u1226430\My Documents\Education docs\Базы данных\schema.ini" For Output As h
    Print #h, s
    Close h
    CurrentDb.Execute "INSERT Into Operations SELECT * FROM " & MyG & " IN '" & FilePath & "' 'text;'"

End Sub

поясню - MyG - переменная, в которую записывается название файла( в названии "." заменяется на "#" - эту функцию я тоже вырезал, чтоб не мешала),FileName - переменная с названием файла, но внутри названия есть ".", FilePath - путь к текстовому файлу