powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Помогите организовать импорт данных из *.txt со сложной структурой
25 сообщений из 99, страница 3 из 4
Помогите организовать импорт данных из *.txt со сложной структурой
    #32517187
madg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Маленькая козявка:
после клика на импорт, если нажать "Отмена" выкидывает в дебугер в строке
strFileName = fd.SelectedItems(1)

Добавить обработчик ошибок или как.

ЗЫ
Оценивают человека по поступкам.
Знаешь, меня сегодня на работе спросили "как сделать таблицу в Excel" а ты скромничаешь!
Спасибо.
...
Рейтинг: 0 / 0
Помогите организовать импорт данных из *.txt со сложной структурой
    #32517190
Фотография Alexander G
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
CurrentDb.Execute "delete * from ttt where p4=''"
Где вставить - по вкусу - в конце функции convert, или на добавлении в таблицу, или на отдельной кнопочке

авторИ по этому примеру чтоб нумерация(первые два поля)
1-1
2-2
3-3
4-4
выглядела так:
1-2
2-3
3-4
4-1
Не понял логики и цели.
...
Рейтинг: 0 / 0
Помогите организовать импорт данных из *.txt со сложной структурой
    #32517193
madg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
RE:Не понял логики и цели.
Логики и не понять, попробую - координаты относятся к вершинам:1,2,3,4
а длины относятся к ребрам между вершин:
1-2,2-3,3-4,4-1.
Именно так и должно быть в распечатке второй таблицы "Описание границ" ЕГРЗ.
С моими познаниями оргинизовать поле с увеличением на 1 вполне возможно, но вот проверка последнего ребра(4-1) это и не знаю даже....
А если поможешь, буду использовать статические данные из "Моя таблица"
И где тут логика?
...
Рейтинг: 0 / 0
Помогите организовать импорт данных из *.txt со сложной структурой
    #32517194
Фотография Alexander G
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Прошу извинить
следует так
if fd.Show=-1 then
strFileName = fd.SelectedItems(1)
end if
...
Рейтинг: 0 / 0
Помогите организовать импорт данных из *.txt со сложной структурой
    #32517195
madg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Так для общей эрудиции (моей конечно)
у меня 2 часа ночи
...
Рейтинг: 0 / 0
Помогите организовать импорт данных из *.txt со сложной структурой
    #32517197
madg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
RE:
if fd.Show=-1 then
strFileName = fd.SelectedItems(1)
end if

Вставил в конце функции Convert модуля - ругается 91 ошибкой
может в другое место?
...
Рейтинг: 0 / 0
Помогите организовать импорт данных из *.txt со сложной структурой
    #32517199
madg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Может черт с ними ошибками или пусть выбирают файл, или я им(юзерам) руки поотбиваю.
А вообще хорошо, отлично работает
...
Рейтинг: 0 / 0
Помогите организовать импорт данных из *.txt со сложной структурой
    #32517202
Фотография Alexander G
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
1.Это нужно вставить вместо двух строк
fd.Show
strFileName = fd.SelectedItems(1)

2.нумерация отрезков
добавляем поле p9 (текст) в ttt и моюТаблицу
В Convert перед r.Close вставляем
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Dim i As Integer
r.MoveFirst
For i =  1  To r.RecordCount -  1 
  If Not i = r.RecordCount -  1  Then
   r.Edit
   r("p9") = r("p1") & "-" & r("p1") +  1 
   r.Update
  Else
   r.Edit
   r("p9") = r("p1") & "-" & "1"
   r.Update
  End If
  r.MoveNext
Next
теперь в поле p9 будут выводится отрезки
...
Рейтинг: 0 / 0
Помогите организовать импорт данных из *.txt со сложной структурой
    #32517203
Фотография Alexander G
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
if fd.Show=-1 then
strFileName = fd.SelectedItems(1)
else
exit function
end if
...
Рейтинг: 0 / 0
Помогите организовать импорт данных из *.txt со сложной структурой
    #32517205
madg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Непомогло, ошибка 75
Set fd = Application.FileDialog(msoFileDialogFilePicker)
fd.Filters.Add "Text files", "*.txt", 1
fd.InitialFileName = CurrentProject.Path
'fd.Show
'strFileName = fd.SelectedItems(1)

If fd.Show = -1 Then
strFileName = fd.SelectedItems(1)
End If

Open strFileName For Input As #1 ' Open file for input.
Set fd = Nothing

f = False

Я правильно сделал?
...
Рейтинг: 0 / 0
Помогите организовать импорт данных из *.txt со сложной структурой
    #32517208
madg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Все работает!!!!!!!!!!!!!!!!
3 часа ночи.
Иду спать!
Огромное спасибо за помощь.
Кстати, даже сдесь, на форуме, не нашел кода открытия файла.
Приятно с тобой работать.
Спокойного времени суток.
ЗЫ
И помоему не прощаюсь. Мнеж теперь переписывать созданное раньше, под твои идеи.
Буду стараться.
...
Рейтинг: 0 / 0
Помогите организовать импорт данных из *.txt со сложной структурой
    #32526986
guest
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Привет всем! Можно в догонку чертовски интересного диалога проблему? Второй день парюсь, помогите гейтса-ради!
1) Конвертирую простейший текст в таблицу Access 2003
DoCmd.TransferText acExportDelim, "Ticket", "Ticket", "C:\Ticket"
получаю ошибку - run time error 3027 Обновление невозможно. База данных илиобъект дотупны только для чтения. Лезу админом, открываю монопольно - никак!
2) Пошел в обход - сделал макрос "ПреобразоватьТекст", ему нужна спецификация импорта. Делаю - макрос работает, а спецификация живет своей жизнью (пару раз терялась по неясной причине). Прочитал что можно сделать магический файл scheme.ini, настроить, положить его рядом с вкачиваемым файлом и все будет работать. Сделал, положил - не работает. То ли у него внутри чего не хватает, то ли у меня. Может поделитесь настроенным файликом? И как его так положить, чтобы access его принял? Помогите, я не сильный спец, но в такое упереться даже мне обидно.
мое мыло: maksa112@yahoo.com
...
Рейтинг: 0 / 0
Помогите организовать импорт данных из *.txt со сложной структурой
    #32527207
Фотография Alexander G
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
1. авторDoCmd.TransferText acExportDelim, "Ticket", "Ticket", "C:\Ticket"
Если хочется преобразовать текст в таблицу - почему acExportDelim, вроде это операция импорта?

2.schema.ini - не для Access, он пользуется своми спецификациями, которые хранит в системных таблицах. Это для других программ, которые делают импорт-экспорт.
...
Рейтинг: 0 / 0
Помогите организовать импорт данных из *.txt со сложной структурой
    #32527502
guest
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Alexander G спасибо огромное! Вот что значит взгляд кристальный, мои оба зрачка уже точку в стене выжигают! Работает!!!
А вот еще если не прогонят за наглость:
вообще я делаю вот что - есть три текстовых файла с дневной выжимкой из некоей базы. Они падают каждый день и по мере поступления их нужно сливать в архив. Но зная степень собственной внимательности :-) боюсь нажать кнопку импорта лишний раз и испортить архив. Понимаю, что должна быть некая транзакция импорта, наверное надо вести таблицу типа log файла где хратить дату импорта и имя архива (файла из которого достаю), чтоб проверять а не было ли вкачек уже. Проблема в том, что внутри файла зацепиться не за что, и имена у них одинаковые. Разные - имена zip-файлов в котором это все валится. Идеал - проверять это имя, и если оно допустимо, то автоматом лезть в zip-архив, доставать файл, вливать, и если не влилось (ошибка или что еще) - откатывать эту самую транзакцию импорта. Это реально?
...
Рейтинг: 0 / 0
Помогите организовать импорт данных из *.txt со сложной структурой
    #32527743
Фотография Alexander G
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Судя по описанию, похоже, да, реально.
...
Рейтинг: 0 / 0
Помогите организовать импорт данных из *.txt со сложной структурой
    #32528368
guest
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Хм, ответ достойный Тамерлана ;-) Жаль, но все это я представляю себе только "в теории". Думаю разбить на два куска 1: сделать транзакцию "сливалки" с лог-таблицей, считая что текстарь имеет всегда уникальное имя, которое можно проверять по логу. 2: лазалку в zip-архив с распаковкой и выносом содержимого в готовую "сливалку".

Как организовать "сливалку"?
- транзакцию открыл
- взял имя файла и проверил его в лог-таблице
- если такого еще не было то слить тексты в временный файл
- если слив успешен - то внести имя файла в лог-таблицу и заливать в основной архив.
- если что-то не так - откат

Но это опять теория. С чего начать, а?
...
Рейтинг: 0 / 0
Помогите организовать импорт данных из *.txt со сложной структурой
    #32528446
Фотография Alexander G
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ну сделать таблицу, думаю, несложно.
Следующий шаг - получение имени файла. 2 варианта - с A2002 можно через через FileDialog, как описано в этом топике. Иначе - через API.
Далее попучаем из полного имени архивного файла файла имя файла (без пути) и с помощью DlookUp проверяем его наличие в таблице.
Пока хватит?
...
Рейтинг: 0 / 0
Помогите организовать импорт данных из *.txt со сложной структурой
    #32528463
Фотография Alexander G
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
У меня первый час ночи. Пятница. Пиво. На вопросы могу ответить завтра, если кто-то другой не возьмет на себя эту ношу.
...
Рейтинг: 0 / 0
Помогите организовать импорт данных из *.txt со сложной структурой
    #32528555
Fat Lamer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2Guest
Как вариант: успешно обработал zip-архив и переложи его в другой каталог (архивный), чтобы под ногами не путался при следующих обработках.
...
Рейтинг: 0 / 0
Помогите организовать импорт данных из *.txt со сложной структурой
    #32528584
guest
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Alxander G - прости, не учел разницу во времени. Пиво то у Вас небось холодненькое? М-м. Привет Абрамовичу, спокойных выходный, спасибо за помощь. К понедельнику я как раз освою FileDialog.
Ау! если кто еще рядом есть - подскажите чего? Может кто умеет из access в zip архив залезть в автомате за файлом? Я даже не знаю за какой конец эту тему потянуть :-) Может как-то вызвать zip арживатор в командной строке, чтобы он выливал в одно место, куда лезет access и берет файл стирая его за собой. Хм. Писать-то и то путанно. Видно работать будет и того хуже.
...
Рейтинг: 0 / 0
Помогите организовать импорт данных из *.txt со сложной структурой
    #32528598
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
Именно так - через shell. Перед этим надо правильно составить командную строку с параметрами и перейти в нужное место командами chdrive и chdir.
...
Рейтинг: 0 / 0
Помогите организовать импорт данных из *.txt со сложной структурой
    #32528615
guest
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2Fat Lamer принцип то какой - нужна большая красная кнопка, нажал - и танки на улицах! В смысле файл в архиве. У меня на работе ежедневно культивируемый аврал. "На руках" все работает: распаковал, положи, выпил. Нужно чтоб по принципу было.
...
Рейтинг: 0 / 0
Помогите организовать импорт данных из *.txt со сложной структурой
    #32528688
guest
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2 Саныч - м-да, придется пробовать. А за диском и по каталогам нужно ходить отдельно? Access не понимает полные пути?
...
Рейтинг: 0 / 0
Помогите организовать импорт данных из *.txt со сложной структурой
    #32528712
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
Полные пути - понимает, конечно. Это не Аксесс, эта команда исполняется операционной системой.
...
Рейтинг: 0 / 0
Помогите организовать импорт данных из *.txt со сложной структурой
    #32528764
Fat Lamer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2Guest
Принцип очень простой: есть форма с таймером, по таймеру происходит проверка почтового ящика. Если есть почта - принимается письмо, проверяются формальные признаки того, что это именно письмо с данными (сабж, наличие вложенного архива и т.д). Если это нужное письмо - выдираем вложение, распаковываем его и обрабатываем, если нет - удаляем. Кстати по поводу распаковки: если будешь распаковывать WinZIP'ом, то он должен быть зарегистрирован :), иначе вылезает окно самого WinZIP'а с разными глупостями. И никакой красной кнопки не нужно, тем более большой.
...
Рейтинг: 0 / 0
25 сообщений из 99, страница 3 из 4
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Помогите организовать импорт данных из *.txt со сложной структурой
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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