Помогите с Delphi 7

[Hozey]

Набросал программку.
В делфи нужно добавить библиотеку типов "Регулярных выражений"

Для просмотра скрытого содержимого вы должны войти или зарегистрироваться.

Пример проги и исходник в архиве.
P.S У меня Delphi XE

 

[disker]

такие вещи проще делать на перле
он есть и под винду - например activeperl
*** скрытое содержание ***

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

Набросал программку.
В делфи нужно добавить библиотеку типов "Регулярных выражений"
*** скрытое содержание ***
Пример проги и исходник в архиве.
P.S У меня Delphi XE

Вот с тем файлом что ты вложил в архиве действительно работает, но попробовал ещё для примера 3 других файла подгрузить и уже не работает. А статистика входная будет именно в таком формате Вот посмотри к примеру:

 

[Hozey]

Вот с тем файлом что ты вложил в архиве действительно работает, но попробовал ещё для примера 3 других файла подгрузить и уже не работает. А статистика входная будет именно в таком формате Вот посмотри к примеру:

Попробуй заменить маску поиска в коде на эту, должно сработать

Для просмотра скрытого содержимого вы должны войти или зарегистрироваться.

Если нужно скомпилирую у себя и выложу проект с исходником.

 

[disker]

Попробуй заменить маску поиска в коде на эту, должно сработать
*** скрытое содержание ***
Если нужно скомпилирую у себя и выложу проект с исходником.

Не могу заменить, у меня почему-то даже нельзя импортировать библиотеку Microsoft VBScript Regular Expressions 5.5, а без неё криво работает . У меня её просто нет. Или может не там смотрю. Даже меню "Import Component." отсутствует.

P.s. у меня 7 делфя .

 

[Hozey]

Не могу заменить, у меня почему-то даже нельзя импортировать библиотеку Microsoft VBScript Regular Expressions 5.5, а без неё криво работает . У меня её просто нет. Или может не там смотрю. Даже меню "Import Component." отсутствует.
P.s. у меня 7 делфя .

Исправил немного программу. Теперь забирает данные нормально. Тестил на твоих прикрепленных файлах. Файл на 100000 строк чистит около 6 минут.

З.Ы Установи Delphi XE и не парся

 

[disker]

Исправил немного программу. Теперь забирает данные нормально. Тестил на твоих прикрепленных файлах. Файл на 100000 строк чистит около 6 минут.
З.Ы Установи Delphi XE и не парся

ок, как только найду хороший дистрибутив так сразу и поставлю. Кстати на Висте она работать будет?
Решил немного отвлечься и попробовал набросать програмку для психологических тестов. Вот с графическим интерфейсом в проге уже проблем нет, а с кодом никак не могу разобраться. Есть 4 радиокнопки (точнее у меня будет 8 вопросов и на каждый 4 или 3 или 2 ответа, тоесть всего 26 радиокнопок). Как сделать так, чтобы при выборе одной из 4-х кнопок какой-то переменной (баллы в програме) добавлялось то или другое количество очков. Попробовал написать так, ничего не получилось :

procedure TForm1.RadioButton1Click(Sender: TObject);
if RadioButton1.Checked = True then
begin
o:=3;
end;
procedure TForm1.RadioButton2Click(Sender: TObject);
if RadioButton2.Checked = True then
begin
o:=2;
end;
procedure TForm1.RadioButton3Click(Sender: TObject);
if RadioButton3.Checked = True then
begin
o:=1;
end;
procedure TForm1.RadioButton4Click(Sender: TObject);
if RadioButton4.Checked = True then
begin
o:=0;
end;

о описал в начале программы как integer. А собственно такую ошибку выдает:

declaration expekted but "if" found

В чём может быть проблема? и правильно ли я прописал всё ?

 

[Hozey]

Должна работать на висте.

У меня эта делфя стоит:

Для просмотра скрытого содержимого вы должны войти или зарегистрироваться.

Попробуй так:

procedure TForm1.RadioButton1Click(Sender: TObject);
if RadioButton1.Checked = True then
begin
o:=3;
end;

if RadioButton2.Checked = True then
begin
o:=2;
end;

if RadioButton3.Checked = True then
begin
o:=1;
end;

if RadioButton4.Checked = True then
begin
o:=0;
end;

 

[disker]

Вот скрин проги, чтобы проще было понять что я хочу

 

[disker]

Должна работать на висте.
У меня эта делфя стоит:
*** скрытое содержание ***
Попробуй так:

procedure TForm1.RadioButton1Click(Sender: TObject);
if RadioButton1.Checked = True then
begin
o:=3;
end;
if RadioButton2.Checked = True then
begin
o:=2;
end;
if RadioButton3.Checked = True then
begin
o:=1;
end;
if RadioButton4.Checked = True then
begin
o:=0;
end;

аналогичная ошибка не помогло..

 

[Hozey]

Вот скрин проги, чтобы проще было понять что я хочу

Прикрути исходник, хочу взглянуть. Если не жалко

Я так понял все балы суммируются, а потом сравниваются с конечным результатом. Например если набрали до N балов - вы сова, если больше - Жаворонок

Добавлено через 2 минуты
может лучше для каждого вопроса создать свою переменную :integer

В конце их Суммировать и сравнить