Много маленьких файлов .txt в один и отправка в excel

@Sergey_03 · Регистрация: 15.12.2014

Студворк — интернет-сервис помощи студентам

Добрый день. Не подскажите , есть папка, в ней текстовые файлы, штук сто. Названия вида 015_08_26
(год_месяц_дата). Возможно ли по кнопке их объединять в один. Отправить потом в EXCEL не проблема наверное, но интересует отправка в EXCEL по заданному диапазону (год_месяц_дата). Спасибо!

@Sergey_03 · 28.08.2015, 18:03 **[ТС]**

Да, работает.

Добавлено через 7 часов 7 минут

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

Sergey_03, я бы сделал как-то так...
Есть папка (у меня в примере C:\TMP\Monitor), в ней

Разбираю эти коды, вроде все понятно, но выдает ошибку при компиляции
[BCC32 Error] Unit1.cpp(170): E2451 Undefined symbol 'FormatSettings'
Погуглил - вроде опять проблемы 2009 бульдера.
Без него(тип форматирования) не обойтись, я так понимаю? Может аналог имеется?

@volvo · 28.08.2015, 18:11

Убрать всякое упоминание о FormatSettings, работать напрямую с глобальными переменными:

C++
1
2
3
4
5
6
7
TDate __fastcall TForm1::DT_From_FN(String fn)
{
  DateSeparator = '_';
  ShortDateFormat = "yyyy_mm_dd";
  TDate Dt;
  if(TryStrToDate(fn, Dt)) return Dt; else return Date();
}

@Sergey_03 · 28.08.2015, 18:28 **[ТС]**

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

Убрать всякое упоминание

Заработало, спасибо.
Еще вопросик - если у меня файлы будут иметь формат названий вот такой - 015_08_10_05_p3ABCD.txt, где
первые 9 символов так и будут, как было ПЕРВОНАЧАЛЬНО, а после может быть что угодно до .txt (так вышло, первоначально не планировалось)
Я пробую адаптировать, но пока не уловить этот смысл.
Наверное тут что то менять?

C++
1
fDt = "2" + SR.Name.SubString(1, SR.Name.Length() - 4);

или все сложнее?

@D1973 · 28.08.2015, 18:34

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

пока не уловить этот смысл.

из имени файла (015_08_10.txt) вырезается расширение с точкой (остается 015_08_10) и в начало дописывается цифра 2. Получается 2015_08_10 и вот уже эту строку привести к типу дата не представляет проблем.

Добавлено через 1 минуту

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

Наверное тут что то менять?

Именно, и сделать это можно вот так:

C++
1
fDt = "2" + SR.Name.SubString(1, 9);

@Sergey_03 · 28.08.2015, 18:36 **[ТС]**

Теперь все понятно, спасибо!

@Sergey_03 · 30.08.2015, 13:23 **[ТС]**

С очень странной ситуацией столкнулся. На одном компе все работает идеально - на другом работает только один раз, потом не работает, до перезапуска проги. Как это?? Разница между компами - на том, что все работает - семерка, на другом XP..

@Sergey_03 · 02.09.2015, 13:32 **[ТС]**

Проблема с путями к .txt была.

@Почтальон · 02.09.2015, 13:56

Файлы должны располагаться в папке с прогой

?

@Sergey_03 · 02.09.2015, 14:51 **[ТС]**

Да. При выборе файла эксель на сохранение, если он на рабочем столе, почемуто начинает искать текстовые файлы для считывания тоже на рабочем столе, хотя путь прописан в коде и это не рабочий стол. И ищет правильно, но только в первый раз. И это только на XP. Почему - так и не понятно.

@Почтальон · 02.09.2015, 16:20

потому что у этих операционок разные пути до рабочего стола

@Sergey_03 · 02.09.2015, 17:22 **[ТС]**

А выход есть?

@D1973 · 02.09.2015, 17:37

Sergey_03, текущий свой код покажи

@volvo · 02.09.2015, 17:39

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

А выход есть?

Есть. Получать путь к рабочему столу через переменные окружения. Либо, если тебе нужно, чтобы искались файлы в папке с твоим приложением, то ВСЕГДА (я задолбался это повторять на разных форумах, но все равно все самые умные, думают, их это не коснется, и делают ПО_СВОЕМУ!!!) передавай ПОЛНЫЙ (я повторяю, ПОЛНЫЙ) путь к файлу, а не огрызок только из имени файла и расширения. Что, так трудно дописать ExtractFilePath(ParamStr(0)) + ?

@Sergey_03 · 02.09.2015, 17:59 **[ТС]**

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

Sergey_03, текущий свой код покажи

C++
1
2
3
4
5
6
7
if (SaveDialog2->Execute())
    {
       ListBox1->Items->Clear();
       //ucsCurrentDir = ReadStringIni(aWinIniFile.c_str(),"sCurrentDir", "_");
       //FileListBox1->Directory = ucsCurrentDir +"\\Monitoring";
       FileListBox1->Directory="C:\\Program Files\\MTECH\\VisualMonitoring\\Monitoring";
       FileListBox1->Mask = "*.txt";

И основной и закоментированный пути на XP работают одинаково, то есть один первый раз.

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

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

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

Получать путь к рабочему столу через переменные окружения.

Можно по подробнее...

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

если тебе нужно, чтобы искались файлы в папке с твоим приложением

хотел бы не привязываться к папкам приложения

@D1973 · 02.09.2015, 18:29

SaveDialog у тебя, я так понял, для ввода имени xls файла? Тогда попробуй так:
1. Перед поиском txt-файлов сделай текущей ту папку, где они лежат:

C++
1
ChDir("C:\\Program Files\\MTECH\\VisualMonitoring\\Monitoring");

2. После поиска перед выводом в Ексель меняй текущую директорию на ту, которая указана в SaveDialog

C++
1
ChDir(ExtractFilePath(SaveDialog1->FileName));

@Sergey_03 · 02.09.2015, 20:51 **[ТС]**

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

SaveDialog у тебя, я так понял, для ввода имени xls файла?

Да, или для перезаписи существующего.

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

Тогда попробуй так:

Спасибо. Проверю на работе- XP дома нету

Добавлено через 59 минут

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

ChDir("C:\\Program Files\\MTECH\\VisualMonitoring\\Monitori ng");

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

ChDir(ExtractFilePath(SaveDialog1->FileName));

Не подскажите, как этим пользоваться? Как это прикрутить к FileListBox1->Directory, а потом к эксель...чегото не догнать..

Добавлено через 1 час 1 минуту
Вроде разобрался. Спасибо.

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Nekobox - outbounds[0].transport: unknown transport type: raw damix 01.10.2026 Фикс ошибки Правым кликом по серверу -> отладочная информация -> edit Заменить "net": "raw", на "net": "tcp", Нажать кнопку reload.
Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .

@Sergey_03 21 / 9 / 4 Регистрация: 15.12.2014 Сообщений: 663

	Много маленьких файлов .txt в один и отправка в excel 26.08.2015, 13:31. Показов 3016. Ответов 35 Метки нет (Все метки) Добрый день. Не подскажите , есть папка, в ней текстовые файлы, штук сто. Названия вида 015_08_26 (год_месяц_дата). Возможно ли по кнопке их объединять в один. Отправить потом в EXCEL не проблема наверное, но интересует отправка в EXCEL по заданному диапазону (год_месяц_дата). Спасибо! 0

@Sergey_03 21 / 9 / 4 Регистрация: 15.12.2014 Сообщений: 663
	28.08.2015, 18:36 [ТС]
	Теперь все понятно, спасибо! 0

@Sergey_03 21 / 9 / 4 Регистрация: 15.12.2014 Сообщений: 663
	30.08.2015, 13:23 [ТС]
	С очень странной ситуацией столкнулся. На одном компе все работает идеально - на другом работает только один раз, потом не работает, до перезапуска проги. Как это?? Разница между компами - на том, что все работает - семерка, на другом XP.. 0

@Sergey_03 21 / 9 / 4 Регистрация: 15.12.2014 Сообщений: 663
	02.09.2015, 13:32 [ТС]
	Проблема с путями к .txt была. 0

@Почтальон управление сложностью 1693 / 1306 / 259 Регистрация: 22.03.2015 Сообщений: 7,545 Записей в блоге: 5
	02.09.2015, 13:56
	Файлы должны располагаться в папке с прогой ? 1

@Sergey_03 21 / 9 / 4 Регистрация: 15.12.2014 Сообщений: 663
	02.09.2015, 14:51 [ТС]
	Да. При выборе файла эксель на сохранение, если он на рабочем столе, почемуто начинает искать текстовые файлы для считывания тоже на рабочем столе, хотя путь прописан в коде и это не рабочий стол. И ищет правильно, но только в первый раз. И это только на XP. Почему - так и не понятно. 0

@Почтальон управление сложностью 1693 / 1306 / 259 Регистрация: 22.03.2015 Сообщений: 7,545 Записей в блоге: 5
	02.09.2015, 16:20
	потому что у этих операционок разные пути до рабочего стола 1

@Sergey_03 21 / 9 / 4 Регистрация: 15.12.2014 Сообщений: 663
	02.09.2015, 17:22 [ТС]
	А выход есть? 0

@D1973 Модератор 9954 / 6490 / 2461 Регистрация: 21.01.2014 Сообщений: 27,496 Записей в блоге: 3
	02.09.2015, 17:37
	Sergey_03, текущий свой код покажи 1