Current time: 25.11.2024, 13:06 Hello There, Guest! (LoginRegister)
Language: english | russian  

Post Reply 
Threaded Mode | Linear Mode
нужна помощь по программированию
Author Message
izrukvruki Offline

Posts: 2133
Post: #1

Есть система вложенных папок:

D:\Folder1\Folder101\files1011.txt
D:\Folder1\Folder101\files1012.txt
....
D:\Folder1\Folder102\files1021.txt
D:\Folder1\Folder102\files1022.txt
...
D:\Folder2\Folder201\files2011.txt
D:\Folder2\Folder201\files2012.txt
....
D:\Folder2\Folder202\files2021.txt
D:\Folder2\Folder202\files2022.txt
...

Можно создать текстовый файл, который будет содержать данный список файлов?


Сайт Кремля
06.08.2009 18:30
Visit this user's website Find all posts by this user Quote this message in a reply
GrayFace Offline
Forum Moderators

Posts: 1233
Post: #2

Помотри, подойдет ли tree /f >list.txt

Прогу надо на любом языке?
06.08.2009 19:05
Find all posts by this user Quote this message in a reply
Дьякон Offline

Posts: 395
Post: #3

Т.е. нужно пройти по всему диску? Или какие-то определенные папки?
Если не определенные, то рекурсивный перебор всех каталогов. На Делфи - 20-30 строчек проги. Делфи подходит?


Страус труп (с) Бьерн
06.08.2009 20:13
Find all posts by this user Quote this message in a reply
izrukvruki Offline

Posts: 2133
Post: #4

(06.08.2009 19:05)GrayFace Wrote:  Помотри, подойдет ли tree /f >list.txt

Прогу надо на любом языке?

команда выдает дерево...
Quote:├───Архивы
├───День выборов
│ 01 - А. Кортнев - Выбора.mp3
│ 02 - Чайф - Романс Об Избирательной Урне.mp3
│ 03 - Группа Исполнителей - Казачья.mp3
│ 04 - Uma2rman - Трансвестит Машка.mp3
│ 05 - Серёга - Воровская.mp3
│ 06 - Би2 - Ночной Ларёк.mp3
│ 07 - Иванушки International - Учительница.mp3
│ 08 - Князева Лена - Кричать Без Крика.mp3
│ 09 - Чайф - Куплеты.mp3
│ 10 - М. Башаров, Д. Певцов, Е. Стычкин, О. Фомин - Стоматологи.mp3
│ 11 - Валерий Сюткин - Твист.mp3
│ 12 - А. Макаревич, Г. Мартиросьян - Снежинка.mp3
│ 13 - Ансамбль Карагод - Народная.mp3
│ 2007 - День выборов.jpg
но мне бы полный путь к файлу...
типо D:\Folder1\Folder101\files1011.txt

Паскаль наверное подойдет, мне вообше бы откомпилировать прогу (у меня щас нету никаких языков программирования на компе - VisualBasic есть из Офиса и КорелДрав) и какой нибудь ини-файл для параметров...

Дьякон, нужно "просканировать" конкретную папку, включая все ее подпапки. Весь диск не нужно.


Сайт Кремля
06.08.2009 21:17
Visit this user's website Find all posts by this user Quote this message in a reply
Berserker Offline
Administrators

Posts: 16657
Post: #5

Команда CTRL+B в тотал командере, правда там без полных путей


Скачать Герои 3 Эра и всё, что с ней связано / ERA 2.46f для старых модов
Поддержать проект
06.08.2009 21:23
Find all posts by this user Quote this message in a reply
izrukvruki Offline

Posts: 2133
Post: #6

нет. это мне Берс не поможет.

Мне список нужен, по которому другая прога будет работать...


Сайт Кремля
06.08.2009 21:28
Visit this user's website Find all posts by this user Quote this message in a reply
Berserker Offline
Administrators

Posts: 16657
Post: #7

Если не опередят, напишу сегодня.


Скачать Герои 3 Эра и всё, что с ней связано / ERA 2.46f для старых модов
Поддержать проект
06.08.2009 21:36
Find all posts by this user Quote this message in a reply
izrukvruki Offline

Posts: 2133
Post: #8

Буду очень признателен...

Суть в следующем, есть папки (их очень много, папка Месяц, с подпапками Число (Июнь\Июнь_01, Июнь\Июнь_02) в которых лежат файлы CorelDraw версии 7 (ну или например файлы Ворда (с разрешением doc). Мне их ВСЕ нужно открыть и пересохранить в версии 10 (для Ворда например сохранить в формате docx). Руками это очень утомительно, я сделал что CorelDraw пересохраняет все открытые файлы (т.е. сначало открыть все файлы из директории, запустить макрос, он будет сохранять и закрывать - но этот способ плох тем, что сразу открыть много рекламы (некоторые имеют объем под 100 мб) компьютеры не позволяют, зависают, открывать по одной более правильно.


Сайт Кремля
06.08.2009 22:12
Visit this user's website Find all posts by this user Quote this message in a reply
Berserker Offline
Administrators

Posts: 16657
Post: #9

Вот тестовый результат:
...


Скачать Герои 3 Эра и всё, что с ней связано / ERA 2.46f для старых модов
Поддержать проект
06.08.2009 22:50
Find all posts by this user Quote this message in a reply
izrukvruki Offline

Posts: 2133
Post: #10

спасибище.


Сайт Кремля
06.08.2009 23:18
Visit this user's website Find all posts by this user Quote this message in a reply
Corwin Offline
Administrators

Posts: 3346
Post: #11

А можно полюбопытствовать - а зачем пересохранять файлы в новой версии?


Не балуйтесь.
06.08.2009 23:36
Find all posts by this user Quote this message in a reply
izrukvruki Offline

Posts: 2133
Post: #12

До сих пор мы работаем в Win98 в CorelDraw7. Поскольку была необходимость докупить еще несколько лицензий CorelDraw, купили всем (чтоб все работали в одинаковой версии) CorelDraw Х3 (тогда было другую не купить), а он пашет не менее чем под WinXP (ну или наоборот можно сказать - купили WinXP и для него CorelDraw X3). Но еще мы используем старые шрифты Type1, в X3 они не все правильно работают, при открытии бывает что не отображает форматирование (жирноту), бывает что пропадают символы, или шрифт вообще заменялся). Но если делать макеты сразу в X3 то шрифты работают нормально, т.е. проблема возникает тогда когда пытамся открыть в X3 макеты сделанные в 7 версии. Решение нашли такое: 10 версия CorelDraw нормально открывает 7, а 13 нормально открывает 10, значит все макеты нужно пересохранить в версии 10, а потом работать с ними в 13 и далее уже сохранять в 13.

Не знаю, понятно ли я объяснил?


Сайт Кремля
07.08.2009 00:16
Visit this user's website Find all posts by this user Quote this message in a reply
izrukvruki Offline

Posts: 2133
Post: #13

Конечно понимаю, что это наглость, но нельзя ли немного усовершенствовать программу:
нельзя ли ввести третий параметр - расширение тех файлов которые нужно найти в папках...

Просто оказалось, что в папках всякого мусора дофига (там и jpg, и tif, и psd и пр.), а мне нужны файлы с расширением CDR...

Но если сложно то забейте - в ворде заменой найду...


Сайт Кремля
07.08.2009 10:36
Visit this user's website Find all posts by this user Quote this message in a reply
Berserker Offline
Administrators

Posts: 16657
Post: #14

Не сложно, сделаю.


Скачать Герои 3 Эра и всё, что с ней связано / ERA 2.46f для старых модов
Поддержать проект
07.08.2009 16:53
Find all posts by this user Quote this message in a reply
Berserker Offline
Administrators

Posts: 16657
Post: #15

Моя первая программа на СИ++. Сортировка массива строк.

Code:
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#define pointer *
#define deref *
#define nil 0

typedef char pointer pchar;

void ExchangeStrs (pchar &StrA, pchar &StrB)
{
  pchar StrC = StrB;
  StrB = StrA;
  StrA = StrC;
}

void SortStrArr (pchar Arr[], int ArrSize)
{
  int MiddleItemInd = -1;
  pchar MiddleItem = nil;
  int LeftInd = 0;
  int RightInd = ArrSize - 1;
  /***/
  if (ArrSize == 2)
  {
    if (strcmp(Arr[0], Arr[1]) >= 0)
    {
      ExchangeStrs(Arr[0], Arr[1]);
    }
  }
  else if (ArrSize > 2)
  {
    MiddleItemInd = ArrSize / 2;
    MiddleItem = Arr[MiddleItemInd];
    while (LeftInd <= RightInd)
    {
      if (strcmp(Arr[LeftInd], MiddleItem) >= 0)
      {
        ExchangeStrs(Arr[LeftInd], Arr[RightInd]);
        RightInd--;
      }
      else
      {
        LeftInd++;
      }
    }
    SortStrArr(&Arr[0], (RightInd + 1));
    SortStrArr(&Arr[LeftInd], (ArrSize - LeftInd));
  }
}

int main (int argc, pchar args[])
{
  const int ARR_SIZE = 5;
  pchar strs[ARR_SIZE] = {"ccc", "bbb", "aaa", "ddd", "hello"};
  SortStrArr(strs, ARR_SIZE);
  for (int i = 0; i < ARR_SIZE; i++)
  {
    printf("%s\n", strs[i]);
  }
}


Скачать Герои 3 Эра и всё, что с ней связано / ERA 2.46f для старых модов
Поддержать проект
29.09.2010 01:26
Find all posts by this user Quote this message in a reply
« Next Oldest | Next Newest »
Post Reply 


Forum Jump:

Powered by MyBB Copyright © 2002-2024 MyBB Group