Помогите с программкой, Отсортировать Интернет ссылки Опции

[777]

Нужно составить программу во FREE Паскале, которая из текстового файла забирает все имеющиеся в нём Интернет ссылки, и выводит их на экран + сохраняет их в другой текстовый файл! Чесно скажу, я учусь на заочном, второй семестр на занятиях полностью отсутствовал из за работы, и сейчас на работе такой завал, сто вникать в Паскаль просто нет возможности! Пожалуйста, помогите! Что такое программа Паскаль я узнал четыре дня назад, на лабораторной работе по информатике...

[Lapp]

777, пожалуйста, используй тэги при публикации кода (выделить код, кликнуть с меню CODE над окном ввода и выбрать нужный пункт)

Добавлено через 10 мин.
777, зря ты так..
volvo ничего подобного не имел в виду. Мегабайты его кода лежат в свободном доступе, все и учатся на них, и используют для дела. Не понимаю, что тебя заставило так подумать, но лучше бы ты отказался от своих слов и извинился.. Что тебя задело? Я тебе один раз уже пытался сказать корректно: volvo не любит непонимания простых вещей (уж не знаю, как корректнее сказать) и еще когда условие изменяют по ходу решения. Не раздражай его глупыми действиями - и все будет ок.

volvo, давай я поработаю с этим юзером, ладно? Так будет лучше для всех, думаю. Ок?

Итак, 777, если ты согласен, давай начнем с того, что ты опишешь текущий вариант условия по возможности полно (но не до абсурда). Приведешь текущий вариант проги (в тегах) и скажешь, что в нем плохо и что ты бы хотел. Годится так?

[777]

777, пожалуйста, используй тэги при публикации кода (выделить код, кликнуть с меню CODE над окном ввода и выбрать нужный пункт)

Добавлено через 10 мин.
777, зря ты так..
volvo ничего подобного не имел в виду. Мегабайты его кода лежат в свободном доступе, все и учатся на них, и используют для дела. Не понимаю, что тебя заставило так подумать, но лучше бы ты отказался от своих слов и извинился.. Что тебя задело? Я тебе один раз уже пытался сказать корректно: volvo не любит непонимания простых вещей (уж не знаю, как корректнее сказать) и еще когда условие изменяют по ходу решения. Не раздражай его глупыми действиями - и все будет ок.

volvo, давай я поработаю с этим юзером, ладно? Так будет лучше для всех, думаю. Ок?

Итак, 777, если ты согласен, давай начнем с того, что ты опишешь текущий вариант условия по возможности полно (но не до абсурда). Приведешь текущий вариант проги (в тегах) и скажешь, что в нем плохо и что ты бы хотел. Годится так?

А по поводу <непонимания простых вещей> - почему он сам не может понять, что для одних это простая вещь, а для других та же самая вещь - "тёмный лес", "джунгли" и без проводника не выбраться... и я тоже повторюсь - как будет выглядеть, когда врач реанимации будет читать, умирающему от инфаркта больному, лекцию о вреде табака и алкоголя, вместо того чтобы начать уже операцию... - я думаю это не очень хорошо, но всё равно У ВСЕХ ПРОШУ ИЗВИНЕНИЯ если чем то обидел...

Добавлено через 5 мин.

Объясняю подробнее.
Тэги - это специальные маркеры текста (команды форматирования), которые меняют режим просмотра. Они обычно заключаются в скобочки (в данном случае - квадратные: [] )
Есть тэги открывающие и закрывающие (не всегда).
Закрывающий тэг начинается с символа / (после скобки).
Тэги не показываются при показе текста.

Кодом называется программный текст на языке прогрммировани (Паскаль, например).

Пример (честный) я прямо тут написать не могу, потому что он будет интерпретирован и спрятан. В идущем ниже примере я заменю латинскую букву "o" на русскую "о". Тогда тэг не сработает и будет виден (а текст не будет отформатирован).

[cоde=pas]program Aaa;
var
b: integer;
begin
ReadLn(b);
WriteLn(b)
end.[/cоde]
Помни, что ТУТ буква "о" в слове code - неправильная! Когда будешь набирать тэг - не копируй отсюда.

Тэги можно набрать вручную, они будут работать. Но для удобства есть кнопки над формой ввода мессаджа.
Чтобы заключить код в тэги, нужно выделить его (мышью или стрелками с шифтом), потом кликнуть в меню CODE над формой ввода, бывадет менюшка, в ней выбрать нужный пункт (Паскаль). Ты увидишь, что тэги встанут по краям кода.
Попробуй, пожалуйста.

Также есть тэги для цвета текста, жирного шрифта и т.п.

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

[Lapp]

по поводу <непонимания простых вещей> - почему он сам не может понять, что для одних это простая вещь, а для других та же самая вещь - "тёмный лес", "джунгли" и без проводника не выбраться... и я тоже повторюсь - как будет выглядеть, когда врач реанимации будет читать, умирающему от инфаркта больному, лекцию о вреде табака и алкоголя, вместо того чтобы начать уже операцию...
...
я обязательно попробую, но не сегодня, сейчас я выхожу...
До свидания, спокойной ночи!!!

Поверь мне, иногда нежелание пошевелить лишний раз пальцем довольно трудно отличить от элементарного непонимания. Тем более, твоя задача не выглядит как самая начальная - отсюда первое суждение об уровне юзера. Кстати, может, разбить ее на кусочки? Это было бы полезно.

Давай, приходи, спокойной ночи.

[777]

Поверь мне, иногда нежелание пошевелить лишний раз пальцем довольно трудно отличить от элементарного непонимания. Тем более, твоя задача не выглядит как самая начальная - отсюда первое суждение об уровне юзера. Кстати, может, разбить ее на кусочки? Это было бы полезно.

Давай, приходи, спокойной ночи.

Добрый вечер Lapp! Экзамен по информатике прошёл... увы, пришлось его купить... почему меня это не совсем устраивает - потому что в этом же вузе учится мой старший сын - лоботряс в отношении учёбы,очень хотелось утереть ему нос, и мня вовсе не трогает метод как это сделать!!! Ну вот, давайте с начала истории появления меня у Вас на Форуме... Мне 42, государственный служащий в должности руководителя среднего звена. эта должность подразумевает высшее образование, которого у меня нет. меня все просто достали с этим образованием... и вот я студент заочник одного из вузов. поступил на самую невостребованную специальность с минимальным проходным баллом (0,45 - катастрофический недобор) на бюджет, только бы получить корочки. так что в любом случае, даже если я не закончу институт - "корову я не проиграю"!
Сфера моей деятельности очень далека от программирования, а с компьютером сталкиваюсь только в программах word и Excel и не часто... во втором семестре, из - за работы, я не посетил ни одного занятия, включая и информатику... Сессию закрыл через хороших знакомых, которые с меня никакой оплаты за это просто не взяли, и теперь к ним подходить не совсем удобно, не люблю оставаться должником... Так вот, последствия моего отсутствия на занятиях не заставили долго ждать... информатика, домашнее задание (как выяснилось)... Что же делать, подумал я, и набрал в поисковике форум специалистов по Паскалю - так я появился у Вас на Форуме. Дальше - буду ли я заниматься программированием - это вряд ли, интересен ли мне язык программиривания ПАСКАЛЬ - нет, зачем теперь, когда экзамен уже куплен, я появился здесь на форуме - довести до логического завершения начатое дело, познав нечто новое для общего развития (кто знает что ждёт нас в жизни)...
когда я зашёл на форум, я не скрывал и не маскировал своих целей, на вопрос VOLVO - чем мне всё это поможет, я открыто сказал - что мне просто нужен допуск к экзамену, а программирование я абсолютно не знаю, и сам разобраться просто не в состоянии... Теперь, про условие задания (промелькнуло, что я его меняю по ходу решения)... Если внимательно почитать самое первое моё сообщение: "Нужно составить программу во FREE Паскале, которая из текстового файла забирает все имеющиеся в нём Интернет ссылки, и выводит их на экран + сохраняет их в другой текстовый файл! Чесно скажу, я учусь на заочном, второй семестр на занятиях полностью отсутствовал из за работы, и сейчас на работе такой завал, сто вникать в Паскаль просто нет возможности! Пожалуйста, помогите! Что такое программа Паскаль я узнал четыре дня назад, на лабораторной работе по информатике..." , то там моя ошибка состояла в том, что я не оговорил что файл имеющий ссылки и файл сохраняемый должны выбираться пользователем, а что все найденные ссылки должны быть выведены на экран - это изначально было оговорено, но и хочу заметить что не оговаривалось название файлов (test и save) и тем более что они уже заложены в программе...
Что я полный чайник - я этого не скрываю и не стесняюсь, не всем дано...
сейчас я попытаюсь загрузить текст программы используя коды, и прикреплю всё что у меня получилось используя тестовый файл - всё это далеко от поставленной задачи - ссылки на экран не вывелись, в сохраненном файле ссылки далеко не все...

Program DZ;
{$mode objfpc}
uses
  classes,
  regexpr, strutils;

var
  re: TRegExprEngine;
  s, subs: AnsiString;
  ok: boolean;
  index, len: longint;

  sL_In, sL_Out: TStringList;

begin
  sL_In := TStringList.Create;
  sL_Out := TStringList.Create;
  try
    sL_In.LoadFromFile('test.txt'); //
    s := sL_In.Text;

    ok := GenerateRegExprEngine('http://([\w+?\.\w+])+([a-zA-z0-9\~\!\@\#\$\%\^\&\*\(\)\_\-\=\+\\\/\?\.\:\;\"\,]*)?',[],re);

    if not ok then writeln('error: init regexp')
    else
    begin
     subs := s;
     while Length (subs) > 0 do
     begin
       if RegExprPos(re, PChar(subs), index, len) then
       begin
         sL_Out.Add(Copy(subs, index + 1, len));
         subs := RightStr(subs, Length(subs) - index - len);
       end
       else
         break;
     end;
     DestroyRegExprEngine(re);
     sL_Out.SaveToFile('result.txt'); //
    end;

   finally;
     sL_Out.Free;
     sL_In.Free;
   end;
end.

Надеюсь что на этот раз я всё правильно сделал, человек - существо обучаемое, просто учитель нужен...
Теперь тебе решать - продолжать диалог или не продолжать... а своих целей я никогда не скрывал - на тот момент мне был нужен готовый текст программы, теперь - довести дело до конца, если получится, то попытаться понять как это работает, и для общего развития...

[Lapp]

довести дело до конца, если получится, то попытаться понять как это работает, и для общего развития...

Сергей, если нужна помощь в понимании или обучении - всегда пожалуйста. Неважно, какая конечная цель и т.п. Я или еще кто-то ответит на вопросы, если сможет. Конечно, если нет стимула применить в работе, то приходится сомневаться в успехе и целесообразности, но это все субъективно. Для мозгов, конечно, это хорошая разминка, особенно в 42. Самое сложное - начальный импульс.

Я чуть позже сегодня посмотрю твой код, сейчас не могу. Но в целом все то же мнение остается: лучше начинать с отдельных задач попроще. В сложной задаче все не в два раза сложнее, а на порядок. И чтобы уделить достаточное внимание вершнему уровню, нужно чтоб нижний отскакивал от зубов. Понимаешь?
Ладно, до встречи.

Добавлено через 18 мин.
Просьба на форуме обращаться все же ко всем участникам.. То есть обращаться можно и к кому-то, но приветствовать все же всех.