Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
dj_moonlight
0 / 0 / 0
Регистрация: 28.10.2014
Сообщений: 9
#1

Как отсортировать список файлов по расширению

27.11.2015, 09:30. Просмотров 155. Ответов 0
Метки нет (Все метки)

Есть примерный набросок помогите с сортировкой файлов по расширению
Кликните здесь для просмотра всего текста
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
var
temps,summ:string;
but:rec;
mas:array[1..800] of rec;
begin
 
  count1:=0;
 
  size1:=0;
 
  temps:=currentdir+'\*.*';
 
   findfirst(temps ,Anyfile, dir);
    i:=1;
    while doserror=0 do
    begin
     unpackTime(dir.time,dt);
     mas[i].date.hour:=dt.hour;
     mas[i].date.min:=dt.min;
     mas[i].date.day:=dt.day;
     mas[i].date.month:=dt.month;
     mas[i].date.year:=dt.year;
     mas[i].size:=dir.size;
     mas[i].name:=dir.name;
     findNext(dir);
     i:=i+1;
    end;
    m:=i;
    for i:=1 to m-1 do
     for k:=1 to m-i do
      begin
      l:=1;
      while (l<length(mas[k].name)) or (l<length(mas[k].name)) do
       begin
        if mas[k].name[l]>mas[k+1].name[l] then
        begin
         buf:=mas[k];
         mas[k]:=mas[k+1];
         mas[k+1]:=buf;
         break;
        end
        else if mas[k].name[l]=mas[k+1].name[l] then l:=l+1
        else break;
       end;
      end;
 
     sum:=0;
     kol:=0;
          begin
     for i:=1 to m-1 do
      begin
      str(round(mas[i].size),siz);
      writeln(first(mas[i].date.year)+'.'+first(mas[i].date.month)+'.'+first(mas[i].date.day)+
      ' '+first(mas[i].date.hour)+':'+first(mas[i].date.min)+' ',siz:12,' '+mas[i].name);
      sum:=sum+mas[i].size;
      kol:=kol+1;
      end;
      str(round(sum),summ);
      str(kol,koll);
      writeln('          '+koll+' files and folders, '+summ+' bytes');
      end;
      end;
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.11.2015, 09:30
Ответы с готовыми решениями:

Как создать список всех файлов и папок в данной папке?
Есть только предположение, что нужен модуль DOS, но в описании я не нашёл нужной функции.

Отсортировать линейный список натуральных чисел в порядке возрастания
Помогите, пожалуйста, с решением задачи. Задача: Нужно отсортировать линейный список...

Как отсортировать файлы по расширению?
1)считать название файла в указанном каталоге 2) сделать разбиение по точке. .split (&quot;.&quot;) ...

Как осуществлять поиск файлов по расширению?
Например найти все mp3 на компьютере.

Как организовать поиск файлов по расширению?
У меня есть директория, в которой файлы с расширением *.txt! И мне надо что бы программа сама их...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.11.2015, 09:30

Как произвести поиск файлов по расширению?
Есть ли какая-нибудь команда, которая находит на компьютере файл(файлы) с расширением, которое...

Отсортировать список 5-х строк нескольких файлов
из всех файлов каталога / etc выделить 5й строку, собрать все эти строки в один файл и...

Отобразить имена файлов с иконками, соответствующими расширению файлов
Всем привет! Помогите, пожалуйста, решить такую задачу: имеется некий список имен файлов и...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru