MS Access 2003 - экспорт отчета в текстовый файл убрать пустые строки

Windows, Linux, настройка компьютера, программы и внутренности железного ящика, интернет и электронная коммерция.

Модератор: Valery

Аватара пользователя
Valery

DVD-video Водномоторный выпуск DVD-video Водномоторный выпуск DVD-video Водномоторный выпуск Великовод форума Водкомоторный сплав Лава 2016
Без группы
Без группы
Сообщения: 20423
На борту с: 07.02.2005
Награды: 5
Из: Тридевятое царство

Вопрос MS Access 2003 - экспорт отчета в текстовый файл убрать пустые строки

Сообщение Valery » 02.12.2013 08:10

Есть таблица с данными, данные форматируются и выводятся в отчет, который в свою очередь макросом экспортируется в текстовый файл.
В текстовом файле присутствуют пустые строки (т.е. перенос строки), т.е. данные экспортируются все, но в текстовом файле много пустых строк:
"IMG_5883.jpg","Турция - Triumph Tiger 800 в горах","Турция - Triumph Tiger 800 в горах"

"IMG_5890.jpg","Турция - Triumph Tiger 800 у реки","Турция - Triumph Tiger 800 у реки"

"IMG_5991.jpg","Турция - Triumph Tiger 800 проезд брода","Турция - Triumph Tiger 800 проезд брода"
"IMG_6147.jpg","Турция - Triumph Tiger 800 около Олимпоса","Турция - Triumph Tiger 800 около Олимпоса"

"IMG_6231.jpg","Турция - Triumph Tiger 800 около хз чего","Турция - Triumph Tiger 800 около хз чего"
Как экспортировать без возникновения пустых строк?

БД MS Access в архиве здесь:
Полусамопал: пластик + фанера = "Adrenaline" 5,6х2,1. По суше: Triumph Tiger 800, велосипед и Land Rover Defender.
Отдохнул – отчитайся, лучшее слово – дело.

Аватара пользователя
Спонсор раздела
Бизнес
Сообщения: 2017
На бору: 03.10.2005
Контакты:

Re: Важное сообщение

Сообщение Спонсор раздела » Пт дек 09, 2011 6:53 am

Аватара пользователя
Akwa

DVD-video Водномоторный выпуск Великовод форума
Водномоторник
Водномоторник
Сообщения: 772
На борту с: 29.10.2008
Награды: 2

Re: MS Access 2003 - экспорт отчета в текстовый файл убрать пустые строки

Сообщение Akwa » 02.12.2013 08:30

Почкму макрос? несколько строк кода написать? нет?
и не пойму какой смысл экспортировать данные форматированного отчета в текстовый файл... есть смысл экспортировать источник данных отчета - таблицу... тогда получается так
429;2;"IMG_5458.jpg";"Румыния - Triumph Tiger 800 на перевале Трансфагарасан";
430;2;"IMG_5482.jpg";"Румыния - Triumph Tiger 800 на перевале Трансфагарасан 2";
431;2;"IMG_5485.jpg";"Румыния - Triumph Tiger 800 на перевале Трансфагарасан 3";
432;2;"IMG_5529.jpg";"Румыния - Triumph Tiger 800 на перевале Трансфагарасан 4";
433;2;"IMG_5579.jpg";"Румыния - Triumph Tiger 800 встрял на перевале";
434;2;"IMG_5582.jpg";"Румыния - Triumph Tiger 800 заснежило";

[time]1385973566[/time] добавил:
ну или так
Последний раз редактировалось Akwa 02.12.2013 08:39, всего редактировалось 1 раз.

Аватара пользователя
Valery

DVD-video Водномоторный выпуск DVD-video Водномоторный выпуск DVD-video Водномоторный выпуск Великовод форума Водкомоторный сплав Лава 2016
Без группы
Без группы
Сообщения: 20423
На борту с: 07.02.2005
Награды: 5
Из: Тридевятое царство

Re: MS Access 2003 - экспорт отчета в текстовый файл убрать пустые строки

Сообщение Valery » 02.12.2013 09:04

Твои данные в корне отличаются от моих.

Надо:
"Поле1","Поле2","Поле3"

Твое:
Поле1;Поле2;"Поле3";"Поле4";

Т.е. я в отчете (запросе) формирую данные как мне нужно - все эти  "" и и ,,, - можно конечно это записать в таблицу, но с нее опять экспорт надо делать. Напрямую из таблицы он получается такой:
---------------------------------------------------------------------------------------------------------------------------------------------
|    id    |  id_article  |    file_name    |                                  alt                                  |      title      |
---------------------------------------------------------------------------------------------------------------------------------------------
|      429 |            2 | IMG_5458.jpg      | Румыния - Triumph Tiger 800 на перевале Трансфагарасан                |                  |
---------------------------------------------------------------------------------------------------------------------------------------------
|      430 |            2 | IMG_5482.jpg      | Румыния - Triumph Tiger 800 на перевале Трансфагарасан 2              |                  |
Полусамопал: пластик + фанера = "Adrenaline" 5,6х2,1. По суше: Triumph Tiger 800, велосипед и Land Rover Defender.
Отдохнул – отчитайся, лучшее слово – дело.

Аватара пользователя
Akwa

DVD-video Водномоторный выпуск Великовод форума
Водномоторник
Водномоторник
Сообщения: 772
На борту с: 29.10.2008
Награды: 2

Re: MS Access 2003 - экспорт отчета в текстовый файл убрать пустые строки

Сообщение Akwa » 02.12.2013 10:40

Если ручками таблицу экпортировать и при этом сохранить спецификацию экпорта, а затем ее прописать в макросе, то все получается:
429,2,"IMG_5458.jpg","Румыния - Triumph Tiger 800 на перевале Трансфагарасан",
430,2,"IMG_5482.jpg","Румыния - Triumph Tiger 800 на перевале Трансфагарасан 2",
431,2,"IMG_5485.jpg","Румыния - Triumph Tiger 800 на перевале Трансфагарасан 3",
432,2,"IMG_5529.jpg","Румыния - Triumph Tiger 800 на перевале Трансфагарасан 4",
433,2,"IMG_5579.jpg","Румыния - Triumph Tiger 800 встрял на перевале",
434,2,"IMG_5582.jpg","Румыния - Triumph Tiger 800 заснежило",
435,3,"IMG_5742.jpg","Турция - Triumph Tiger 800 на горке",
437,3,"IMG_5788.jpg","Турция - Triumph Tiger 800 на проселке",
438,3,"IMG_5803.jpg","Турция - Triumph Tiger 800 у греческих развалин",
439,3,"IMG_5834.jpg","Турция - Triumph Tiger 800 около Фетие",
440,3,"IMG_5863.jpg","Турция - Triumph Tiger 800 на пляже",
441,3,"IMG_5883.jpg","Турция - Triumph Tiger 800 в горах",
442,3,"IMG_5890.jpg","Турция - Triumph Tiger 800 у реки",
443,3,"IMG_5991.jpg","Турция - Triumph Tiger 800 проезд брода",

[time]1386001865[/time] добавил:
числовые поля тоже нужны в кавычках??? зачем, ну уж если так хочется в спецификации экспорта назови их текстовыми полями
Последний раз редактировалось Akwa 02.12.2013 04:31, всего редактировалось 1 раз.

Аватара пользователя
Valery

DVD-video Водномоторный выпуск DVD-video Водномоторный выпуск DVD-video Водномоторный выпуск Великовод форума Водкомоторный сплав Лава 2016
Без группы
Без группы
Сообщения: 20423
На борту с: 07.02.2005
Награды: 5
Из: Тридевятое царство

Re: MS Access 2003 - экспорт отчета в текстовый файл убрать пустые строки

Сообщение Valery » 02.12.2013 05:17

Похоже на то, но лишняя запятая в конце строки.
А как настраивать Спецификацию экспорта что-то не пойму я?
Можно ли убрать из экспорта первые 2 столбца или их просто грохнуть в таблице?
Полусамопал: пластик + фанера = "Adrenaline" 5,6х2,1. По суше: Triumph Tiger 800, велосипед и Land Rover Defender.
Отдохнул – отчитайся, лучшее слово – дело.

Аватара пользователя
Akwa

DVD-video Водномоторный выпуск Великовод форума
Водномоторник
Водномоторник
Сообщения: 772
На борту с: 29.10.2008
Награды: 2

Re: MS Access 2003 - экспорт отчета в текстовый файл убрать пустые строки

Сообщение Akwa » 02.12.2013 06:12

"но лишняя запятая в конце строки"
ну тут маленькую програмулину тока писать... если в одну команду макросом, то уж извиняйте...
чем запятая в конце строки не угодила? не понятна конечная цель этого действа, поэтому не могу понять и способ реализации...
" А как настраивать Спецификацию экспорта" - один раз экпортируешь таблицу - там гдето есть кнобка "дополнительно" - там настраиваются и разделители и можно сохранить имя спецификации.
"Можно ли убрать из экспорта первые 2 столбца" - сделать запрос - он экпортируется точно так-же как и таблица.

пару десятков строк на VB делают тоже без изъе**в, так как надо...

не понятна конечная цель... если хочется чтобы был макрос (жуткий анахронизм) - это одно - в одну строку, а если по человечески, то информации не достаточно.

Аватара пользователя
Valery

DVD-video Водномоторный выпуск DVD-video Водномоторный выпуск DVD-video Водномоторный выпуск Великовод форума Водкомоторный сплав Лава 2016
Без группы
Без группы
Сообщения: 20423
На борту с: 07.02.2005
Награды: 5
Из: Тридевятое царство

Re: MS Access 2003 - экспорт отчета в текстовый файл убрать пустые строки

Сообщение Valery » 02.12.2013 06:23

Мне надо получить текстовый файл ppgallery.txt с содержимым такого вида:
"Поле1","Поле2","Поле3"

Поле1=название файла
Поле2=title
Поле3=alt

Сделал в Access форму для заполнения title и alt для картинок, размещаемых на сайте - хочу малость автоматизировать рутинный труд при создании отчета.
Можно конечно и оставить пустые строки, но хотелось бы покрасивше. Хз откуда они берутся...
Полусамопал: пластик + фанера = "Adrenaline" 5,6х2,1. По суше: Triumph Tiger 800, велосипед и Land Rover Defender.
Отдохнул – отчитайся, лучшее слово – дело.

Аватара пользователя
Akwa

DVD-video Водномоторный выпуск Великовод форума
Водномоторник
Водномоторник
Сообщения: 772
На борту с: 29.10.2008
Награды: 2

Re: MS Access 2003 - экспорт отчета в текстовый файл убрать пустые строки

Сообщение Akwa » 02.12.2013 06:27

завтра
[time]1386053669[/time] добавил:
вот... смотри формочку
[time]1386054545[/time] добавил:
поле title в таблице у тебя пустое...
Последний раз редактировалось Akwa 03.12.2013 07:09, всего редактировалось 1 раз.

Аватара пользователя
Valery

DVD-video Водномоторный выпуск DVD-video Водномоторный выпуск DVD-video Водномоторный выпуск Великовод форума Водкомоторный сплав Лава 2016
Без группы
Без группы
Сообщения: 20423
На борту с: 07.02.2005
Награды: 5
Из: Тридевятое царство

Re: MS Access 2003 - экспорт отчета в текстовый файл убрать пустые строки

Сообщение Valery » 03.12.2013 06:46

Круто!
Асилил из кода только: MsgBox "Введите имя файла" (после вставки из буфера оно выглядит как âåäèòå èìÿ ôàéëà)

Вся сила понимаю где-то здесь:
fsT.WriteText Chr(34) & rst.Fields("File_name") & Chr(34) & "," & Chr(34) & rst.Fields("title") & Chr(34) & "," & Chr(34) & rst.Fields("alt") & Chr(34) & vbNewLine

В общем сегодня я уже не программер..., заюзаю завтра...
Полусамопал: пластик + фанера = "Adrenaline" 5,6х2,1. По суше: Triumph Tiger 800, велосипед и Land Rover Defender.
Отдохнул – отчитайся, лучшее слово – дело.

Аватара пользователя
Akwa

DVD-video Водномоторный выпуск Великовод форума
Водномоторник
Водномоторник
Сообщения: 772
На борту с: 29.10.2008
Награды: 2

Re: MS Access 2003 - экспорт отчета в текстовый файл убрать пустые строки

Сообщение Akwa » 03.12.2013 07:45

Вся сила в  объекте Streem, брат...
Остальные кракозябры из-за перекодировки из Cp-1251 в UTF-8 или обратно...
Работает?
[time]1386100203[/time] добавил:
хз, что там макросы делают.
все должно быть под своим контролем  :cool:

Кто сейчас на форуме

Сейчас этот форум просматривают: CommonCrawl [Bot] и 0 гостей