Отбор файлов в папке

@Hralain · Регистрация: 30.10.2013

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

Помогите пожалуйста с кодом. Как сканировать папку, выбрать из нее файлы тхт и переместить их в другую папку?

fireday · 01.11.2013, 20:47

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

Вот то, что ты предлагаешь

Если бы ты внимательно посмотрел - я предлагал алгоритм построкового чтения и обработки, а тут чтение всего файла и потом обработка

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

И он выдаст весь файл, кроме того, что будет в < >. А как сделать, чтобы наоборот я выделил то, что в этих скобках и засунул это в переменную?

Так файл тебе изменять нужно или просто взять некое значение из него?
Делаешь цикл от 1 до размера строки, ищешь символы "<", ">", это если их несколько
Если в строке всего одна такая комбинация символов можно использовать поиск по строке Instr, InstrRev и затем получить нужное значение с помощью функции Mid

@Hralain · 01.11.2013, 22:18 **[ТС]**

Вообще мне нужно изменить файл. Суть файла: таблица вордовская. Но можно ее в тхт скопировать. Получаются строчки, где слова разделены табуляцией. И в этих строчках, там где был один из столбцов, там номер (8-10 цифр). Вот мне нужно к ним впереди дописать цифры, чтобы номера получились 12-значные, т.е. где-то 2, где-то 3, а где-то и 4 дописать. Поэтому искать придется по табуляции. А в других столбиках дата, текст, поэтому надо будет использовать еще и команду IsNumeric. И будет два условия: IsNumeri = true и Len(того что нужно) = 8, 9 или 10 и приписывать цифрыы в зависимости. Вот.

fireday · 01.11.2013, 22:45

Hralain, структуру файла покажи
з.ы. если это ворд, то можно работать с ворд файлом, а не с его копией в виде тхт

@Hralain · 01.11.2013, 23:27 **[ТС]**

Вот файл. Там есть столбы телефон. Первый и Второй. Вот где 12 и 11 цифр, там их не надо трогать. А где 8,9 и 10 надо до 12 догнать. Приписать спереди по единичке, какому сколько не хватает, столько и приписать единичек.

Новые блоги и статьи Все статьи Все блоги /
Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .	Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .
Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .

@Hralain 0 / 0 / 0 Регистрация: 30.10.2013 Сообщений: 21

	Отбор файлов в папке 30.10.2013, 22:59. Показов 2162. Ответов 23 Метки нет (Все метки) Помогите пожалуйста с кодом. Как сканировать папку, выбрать из нее файлы тхт и переместить их в другую папку? 0

@Hralain 0 / 0 / 0 Регистрация: 30.10.2013 Сообщений: 21
	01.11.2013, 22:18 [ТС]
	Вообще мне нужно изменить файл. Суть файла: таблица вордовская. Но можно ее в тхт скопировать. Получаются строчки, где слова разделены табуляцией. И в этих строчках, там где был один из столбцов, там номер (8-10 цифр). Вот мне нужно к ним впереди дописать цифры, чтобы номера получились 12-значные, т.е. где-то 2, где-то 3, а где-то и 4 дописать. Поэтому искать придется по табуляции. А в других столбиках дата, текст, поэтому надо будет использовать еще и команду IsNumeric. И будет два условия: IsNumeri = true и Len(того что нужно) = 8, 9 или 10 и приписывать цифрыы в зависимости. Вот. 0

fireday 307 / 138 / 6 Регистрация: 17.04.2013 Сообщений: 1,943
	01.11.2013, 22:45
	Hralain, структуру файла покажи з.ы. если это ворд, то можно работать с ворд файлом, а не с его копией в виде тхт 0