Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / формат файла спецификации для TransferText / 10 сообщений из 10, страница 1 из 1
22.12.2003, 04:40
    #32359175
chkalov
chkalov
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
формат файла спецификации для TransferText
Не подскажете где можно посмотреть (или приведите пример) как выглядит файл спецификации, используемый для импорта текстового файла командой TransferText?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.12.2003, 09:33
    #32359271
chkalov
chkalov
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
формат файла спецификации для TransferText
Собственно, мне нужно знать как указать тип разделителя, формат даты, разделитель десятичных знаков и прочее используя DoCmd.TransferText
Очень нужно написать альтернативный визард импорта текстовых файлов
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.12.2003, 10:11
    #32359321
Hummer
Hummer
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
формат файла спецификации для TransferText
Формат посмотреть можно след. образом:
при импорте данных из текстового файла нажать на первом шаге визарда дополнительно - мы попадём в настройки спецификации. Её можно сохранить и посмотреть. Но это записи в табличке (MSysIMEXSpecs) - как создать ini я не понял.
В хелпе написано:
To create a schema file, you can use the text import/export wizard to create the file.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.12.2003, 10:30
    #32359336
chkalov
chkalov
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
формат файла спецификации для TransferText
я конечно поищу где это :), но если можно - подскажи где и как посмотреть это?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.12.2003, 10:37
    #32359341
chkalov
chkalov
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
формат файла спецификации для TransferText
нашел... а как ее в базе можно использовать? нао подумать ... есть идеи подскажи, плиз
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.12.2003, 11:26
    #32359399
ya
ya
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
формат файла спецификации для TransferText
чет примерно так:
sStr = OpenFile("Путь", "", "расширение", "Укажите файл ")
DoCmd.TransferText acImportFixed, "спецификация", "твоя таблица", sStr, True
тока сначала спецификацию сохрани и таблицу правильно офорьм
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.12.2003, 11:29
    #32359404
PA
PA
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
формат файла спецификации для TransferText
Писалось лет шесть назад(для 95 акеса), наверняка что-нибудь поменялось - так что внимтельней, если будешь у себя использовать:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
            If DCount( "*" ,  "MSysIMEXSpecs" ,  "SpecName="  "Export_"  & strTableName &  "_TableToText"  "") = 0  Then
                Set rst = db.OpenRecordset("MSysIMEXSpecs ")
                With rst
                    .AddNew
                    .Fields(" SpecName ") = " Export_ " & strTableName & " _TableToText "
                    .Fields(" DateDelim ") = " . "
                    .Fields(" DateFourDigitYear ") = " - 1  "
                    .Fields(" DateLeadingZeros ") = " - 1  "
                    .Fields(" DateOrder ") = 0         ' 0 - ДМГ; 1 - ДГМ; 2 - МДГ; 3 - МГД; 4 - ГДМ; 5- ГМД
                    .Fields("DecimalPoint") = ","
                    .Fields("FieldSeparator") = ";"
                    .Fields("FileType") = 0         '  0  - win кодировка;  1  - dos кодировка
                    .Fields("SpecType ") = 1          ' 2 - с полями фикс. ширины; 1 - с разделителями
                    .Fields("StartRow") = 1         '  1  - первая строка содержит имена полей;  0  - нет
                    .Fields("TextDelim ") = "  """ 
                    .Fields( "TimeDelim" ) =  ":" 
                    .UPDATE
                    .Bookmark = .LastModified
                    lngID = .Fields( "SpecID" )
                    .Close
                End With
                Set rst = db.OpenRecordset( "MSysIMEXColumns" )
                lngPos =  1 
                For Each fld In tbl.Fields
                    With rst
                        .AddNew
                        .Fields( "SpecID" ) = lngID
                        .Fields( "FieldName" ) = fld.Name
                        .Fields( "DataType" ) = fld.Type
                        .Fields( "IndexType" ) =  0         '  0  - нет;  1  - есть(неуникальный);  2  - есть(уникальный)
                        .Fields( "SkipColumn" ) = False
                        .Fields( "Start" ) = lngPos
                        .Fields( "Width" ) = fld.Size
                        lngPos = lngPos + fld.Size
                        .UPDATE
                    End With
                Next
                rst.Close
            End If
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.12.2003, 11:48
    #32359432
chkalov
chkalov
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
формат файла спецификации для TransferText
я путь попроще уже нашел: просмотр и правка по SQL запросам созданным в Access
Минус в том, что импорт не поддерживает слияние последовательных разделителей в один (например пробелов) и поэтому может получиться много полей, може есть выход и в этом?

Программа делается для простых пользователей которым низя думать ни очем вроде структур и лезть в эти дебри
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.12.2003, 13:13
    #32359578
Владимир Саныч
Владимир СанычПривилегированный пользователь
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
формат файла спецификации для TransferText
Вот нечто похожее:\r
\r
DoCmd.TransferText: избавиться от ..._ОшибкиИмпорта
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.12.2003, 13:29
    #32359597
chkalov
chkalov
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
формат файла спецификации для TransferText
спасибо - полезнейший пример
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / формат файла спецификации для TransferText / 10 сообщений из 10, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 545ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1677516]:
 0ms
get settings:
 11ms
get forum list:
 23ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 192ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 62ms
get tp. blocked users:
 2ms
others: 232ms
total:  545ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]