Подскажите, на чём написать простенькую программу для выборки по несеольким параметрам

[Picnic_men]

Сообщение от Аватар

Delphi, любой или лазарус
5 ComboBox-ов с преопределенными значениями
1 Botton
1 Memo
Формируется маска и поиск файлов по маске в каталоге. Для поиска использовать FindFirst, FindNext и FindClose
http://www.delphi-manual.ru/search-files.php

Кажется, это то, что нужно! Большое спасибо! Буду пробовать сегодня, вечером брошу код, буду благодарен за комментарии. Ещё раз благодарю!

[Alex11223]

Мне это ни о чем не говорит

Это тот, который учит всякой устаревшей (php и веб за 10 лет сильно изменились, появилось много нового и хорошего, в т.ч. упрощающего разработку) и нередко опасной фигне (отсутствие фильтрации данных запросов и т.п.), не говоря уж о качестве и стиле самого кода.
Его учеников на всех форумах РНР очень не любят.

Если уж нужен именно видеокурс и именно на русском, то по РНР лучше от Специалиста взять. И http://www.phptherightway.com/

Delphi, любой или лазарус

У Дельфи проблема в том, что он не имеет бесплатных версий (цены начинаются с 200$ за урезанную Starter), позиционируется только для коммерческого использования в крупных компаниях и т.п.

Поэтому чтобы не пиратить лучше таки Лазарус. Или что-то другое бесплатное, например, C# на Visual Studio Express.

[Arigato]

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

Это тот, который учит всякой устаревшей (php и веб за 10 лет сильно изменились, появилось много нового и хорошего, в т.ч. упрощающего разработку) и нередко опасной фигне (отсутствие фильтрации данных запросов и т.п.), не говоря уж о качестве и стиле самого кода.

Так за 3 дня разве по-другому может быть?

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

У Дельфи проблема в том, что он не имеет бесплатных версий (цены начинаются с 200$ за урезанную Starter), позиционируется только для коммерческого использования в крупных компаниях и т.п.

Утилиту чисто для себя можно и на Делфи написать.

[Alex11223]

Написать на чем угодно можно, я о том, что нет смысл заниматься пиратством когда есть куча бесплатных вариантов ничем не уступающих Дельфи.

[Picnic_men]

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

Это тот, который учит всякой устаревшей (php и веб за 10 лет сильно изменились, появилось много нового и хорошего, в т.ч. упрощающего разработку) и нередко опасной фигне

Никто не спорит. Но для меня всё было очень доходчиво, поэтому в тот момент подошло, но это уже оффтоп =)

У Дельфи проблема в том, что он не имеет бесплатных версий

Програмка делается "для себя", так что немного пиратства не повредит =) Но спасибо за советы, учту.

[Picnic_men]

Кстати, пока на работе сижу, нет возможности поставить делфи и попрактиковаться в том, что уже начитал. Про Combobox и реализации функции выборки более-менее понятно, и даже появилось представление, как это сделать. Но, почему-то, не могу нигде найти, как именно привязать к файлам предопределённые параметры. Ожидал, что это будет некая таблица, в которой будет, например, 8 столбиков: Id, Имя файла, гиперссылка и 5 столбиков для параметров. Я заполняю все столбики таблицы - и файл добавляется к обработке. Ну или если без привязки к таблицам - то ожидалось что-то вроде (воспоминания из PHP):
Выборка:
SELECT * FROM files.db WHERE n="1" , m="2"
Где n - первый параметр, 1 - значение первого параметра, m - 2 параметр и т.д.

Соответственно привязку значений я ожидал увидеть вида:

File1.txt [ n="1", m="2" и т.д.] или что-то подобное.

Пример ооочень грубый, но может приведёте маленький пример, как привязать файлу file1.txt параметры для его отбора?

[Alex11223]

"привязать файлу file1.txt параметры для его отбора" это как?

ComboBox ничего ни о каких файлах не знает, он просто умеет отображать список строк, который вы в него загрузили. Список файлов в папке вам надо доставать с помощью функций WinAPI (FindFirst/FindNext)

[Picnic_men]

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

"привязать файлу file1.txt параметры для его отбора" это как?

ComboBox ничего ни о каких файлах не знает, он просто умеет отображать список строк, который вы в него загрузили. Список файлов в папке вам надо доставать с помощью функций WinAPI (FindFirst/FindNext)

Если я правильно понял то, что прочитал про FindFirst, то поиск происходит по системным параметрам: Дата создания, расширение, каталог и т.д. А можно ли привязать некие произвольные значения для отбора? Т.е., например, у меня есть 2 файла file1.txt и file2.txt. Одному файлу я привязываю параметр "Фиолетовый" а другому "Крокодил". И, соответственно, все варианты параметров заносятся в список ComboBox-ов, и в следствии чего, когда я выбираю в выпадающем списке строку "Фиолетовый" и запускаю функцию FindFirst, он мне выдаёт файл file1.txt. Так вот возможно ли привязать этот сторонний параметр ("Фиолетовы") файлу, и если да, то как?

[8Observer8]

Посмотрите мою программку. Я правильно понял идею? Если да, то напишите, что должно быть в ComboBox'ах, и я их вместо LineEdit'ов добавлю

Исполняемый файл для Win7: https://yadi.sk/d/7NB4N-ECcWTKK
Исходники на Qt C++: https://github.com/8Observer8/Filter

[Slym]

во первых - спец символ в имени файла - /
во вторых

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  StdCtrls, FileCtrl, ComCtrls, ShellCtrls;

type
  TForm1 = class(TForm)
    ShellListView1: TShellListView;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    ComboBox4: TComboBox;
    ComboBox5: TComboBox;
    Button1: TButton;
    procedure ShellListView1AddFolder(Sender: TObject;
      AFolder: TShellFolder; var CanAdd: Boolean);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    Mask:string;
  end;
const MaskFormat='%s-%s %s-%s.%s.txt';
var
  Form1: TForm1;
implementation
uses Masks;
{$R *.dfm}

procedure TForm1.ShellListView1AddFolder(Sender: TObject;
  AFolder: TShellFolder; var CanAdd: Boolean);
begin
 CanAdd:=(mask='') or MatchesMask(AFolder.PathName, Mask);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Mask:=Format(MaskFormat,[ComboBox1.Text,ComboBox2.Text,
    ComboBox3.Text,ComboBox4.Text,ComboBox5.Text]);
  ShellListView1.root:='E:\temp';
  ShellListView1.Refresh;
end;

end.