IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Помогите с программкой, Отсортировать Интернет ссылки
777
сообщение 27.01.2010 0:19
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 19
Пол: Мужской
Реальное имя: Сергей

Репутация: -  0  +


Нужно составить программу во FREE Паскале, которая из текстового файла забирает все имеющиеся в нём Интернет ссылки, и выводит их на экран + сохраняет их в другой текстовый файл! Чесно скажу, я учусь на заочном, второй семестр на занятиях полностью отсутствовал из за работы, и сейчас на работе такой завал, сто вникать в Паскаль просто нет возможности! Пожалуйста, помогите! Что такое программа Паскаль я узнал четыре дня назад, на лабораторной работе по информатике...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
777
сообщение 27.01.2010 23:39
Сообщение #2


Новичок
*

Группа: Пользователи
Сообщений: 19
Пол: Мужской
Реальное имя: Сергей

Репутация: -  0  +


Записал листинг в программу, всё как Вы написали, за исключением того, что на русском языке -
- отсюда берем текст
- сюда записываем все ссылки ("//" -оставил на месте)
... компилятор пишет:
(32,25) Error: Identifier not found "Copi"
(33,39) Error: Identifier not found "Lenght"
(46,4) Fatal: There were 2 errors compiling module, stopping
(0) Fatal: Compilation aborted
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
777
сообщение 28.01.2010 0:10
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 19
Пол: Мужской
Реальное имя: Сергей

Репутация: -  0  +


Зачем же Вы так резко, я ведь не в претезии написал, а если у меня с компьютером действительно отношения напряжённые... я на русском то пачатаю - черепаха быстрее ходит. Я к вам как к специалистам и обратился! Извините что потревожил, и огромное спасибо что помогли. Честное слово - не хотел обидеть... unsure.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
777
сообщение 29.01.2010 0:22
Сообщение #4


Новичок
*

Группа: Пользователи
Сообщений: 19
Пол: Мужской
Реальное имя: Сергей

Репутация: -  0  +


Я ни в коем случае не хотел никого обвинять, и в мыслях то не было. Просто я очень старался вбить "один в один", однако при первой проверке вылезло ошибок восемь, около часа я вычищал свои косяки, но вот на последних застопорился... не зная что делать опять пришёл за советом, а в результате получилось то что получилось... huh.gif
Текст я не копировал, а вбивал в ручную. Я бы и рад был скопировать, да вот только у меня это не получилось...
А на данный момент я исправил то что мне было сказано, но...
программа проверку проходит, только сразу закрывается с "exitcode = 217", файл .exe тоже мелькнёт и пропадает.... такие вот дела...
А по поводу "не обижайся" - я не обижаюсь, неначто, просто не совсем удобно что я другого обидел...
... Понимаете, если курящий человек идёт к доктору, то ведь доктор (я имею ввиду нормального доктора) всё равно будет его лечить, потому что кроме врача этого никто профессионально не сделает, не смотря на то, что больной сам себя убивает табаком...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Lapp
сообщение 29.01.2010 1:12
Сообщение #5


Уникум
*******

Группа: Модераторы
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

Репутация: -  159  +


Цитата(777 @ 29.01.2010 0:22) *
А на данный момент я исправил то что мне было сказано, но...
программа проверку проходит, только сразу закрывается с "exitcode = 217", файл .exe тоже мелькнёт и пропадает....
Послушай, 777, к сожалению, единственный способ нам тебе помочь - это увидеть реалный код, который ты компилишь. Баста.

Давай обсудим, что у тебя за трудности с копированием. Ты скажи, как ты пытался, а я заранее попробую предложить что-то от себя.
Способ, который использую я: с помощью файлового менеджера FAR. Он имеет следующие преимущества:
- бесплатный для русскоговорящих;
- встроенная поддержка нужных кодировок: DOS и Windows;
- встроенный редактор.

Задача: скопировать текст проги с форума на комп.
Ты заходишь в редактор (shift-F4, задать имя файла с расширением pas), переходишь в кодировку DOS (F8), копируешь нужный фрагмент (Ctrl-C -> Ctrl-V) и сохраняешь файл (F2). Все, дальше ты можешь открывать этот файл в FreePascal.

Задача: скопировать прогу с компа на Форум.
Открываешь файл в FAR (F4), добиваешься кнопкой F8 правильного отображения русских букв - и все те же ctrl-C -> ctrl-V

Взять FAR можно тут: http://farmanager.com/index.php?l=ru .

Есть и другие способы, возможно не хуже. Может, кто-то что-то скажет. Да и на форуме не раз проскакивало. Если хочешь подробностей - можешь сделать отдельную тему.

Как только у тебя появится возможность показать ТО, что ты запускаешь, мы продолжим разговор. Идет?
Если у тебя есть другие предложения, я готов их выслушать.


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
777
сообщение 29.01.2010 22:15
Сообщение #6


Новичок
*

Группа: Пользователи
Сообщений: 19
Пол: Мужской
Реальное имя: Сергей

Репутация: -  0  +


Цитата(Lapp @ 29.01.2010 2:12) *

Послушай, 777, к сожалению, единственный способ нам тебе помочь - это увидеть реалный код, который ты компилишь. Баста.


Добрый вечер всем! Скачал я ФАР, всё на английском, русский установить у меня не получилось. тыкал кнопки на сколько у меня хватает знаний в английском... в общем на Ваше обозрение что у меня получилось:
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.

Но это ещё не всё!!!!!
Я может выразился не совсем понятно, когда описывал программу, но из сообщения VOLVO я понял что должен
быть уже заранее заготовлен тестовый файл в этой же дирректории что и .ехе,
а по условию задания: 1.) путь к тестироваему файлу должен задаваться по запросу программы, 2) затем пользователь прописывает этот путь, 3.) программа показывает найденные в файле ссылки, 4.) пользователь прописывает куда сохранить и как назвать уже другой файл только с одними ссылками!

Сообщение отредактировано: Lapp - 29.01.2010 22:39


Прикрепленные файлы
Прикрепленный файл  novozhenin_s_v.rar ( 85.23 килобайт ) Кол-во скачиваний: 186
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
777   Помогите с программкой   27.01.2010 0:19
volvo   Вот в FPC это делается элементарно, как раз:{...   27.01.2010 11:55
777   Огромное спасибо!!! Мне это поможет ли...   27.01.2010 15:09
777   Записал листинг в программу, всё как Вы написали, ...   27.01.2010 23:39
777   Зачем же Вы так резко, я ведь не в претезии написа...   28.01.2010 0:10
Lapp   Зачем же Вы так резко, я ведь не в претезии написа...   28.01.2010 20:32
777   Я ни в коем случае не хотел никого обвинять, и в м...   29.01.2010 0:22
Lapp   А на данный момент я исправил то что мне было сказ...   29.01.2010 1:12
777   Послушай, [b]777, к сожалению, единственный спосо...   29.01.2010 22:15
volvo   У меня НЕТ такого идентификатора. Есть Copy Такого...   27.01.2010 23:47
volvo   Извини, не получилось ЧТО? Выделить текст программ...   29.01.2010 4:06
777   Извини, не получилось ЧТО? Выделить текст програм...   29.01.2010 22:29
volvo   А ты это условие ПРИВЕЛ раньше? Здесь что, форум т...   29.01.2010 22:28
Lapp   777, пожалуйста, используй тэги при публикации код...   29.01.2010 22:41
777   777, пожалуйста, используй тэги при публикации ко...   29.01.2010 22:52
Lapp   Я сейчас нажал код (#), но честное слово, я не пон...   29.01.2010 23:09
777   777, пожалуйста, используй тэги при публикации ко...   29.01.2010 23:23
Lapp   по поводу <непонимания простых вещей> - поче...   29.01.2010 23:44
777   Поверь мне, иногда нежелание пошевелить лишний ра...   31.01.2010 19:35
Lapp   довести дело до конца, если получится, то попытать...   1.02.2010 1:04
777   Сергей, если нужна помощь в понимании или обучени...   1.02.2010 6:55
volvo   То, что ты говоришь - еще дальше от правды. Чтобы ...   1.02.2010 9:42
777   То, что ты говоришь - еще дальше от правды. Чтобы...   1.02.2010 10:29
volvo   Смотри, я прокомментировал каждую строку своего ко...   1.02.2010 11:25
777   Смотри, я прокомментировал каждую строку своего к...   1.02.2010 12:23
volvo   Если возникают вопросы - уже хорошо... Гораздо хуж...   1.02.2010 13:07
Lapp   Если возникают вопросы - уже хорошо... Гораздо хуж...   1.02.2010 21:12
777   Все вопросы, которые будут - задавай. Начнём с...   1.02.2010 21:43
volvo   "Ну-с, приступим..." (С) Итак, когда я ...   1.02.2010 22:23
777   Ну что, хоть что-то их того, что я тут написал, с...   1.02.2010 22:39
777   Добрый день всем!!! Это опять я... use...   2.02.2010 12:42
Lapp   Правильно ли я понял, что вот эти модули - есть, к...   2.02.2010 20:52
777   Перед использованием модуля ты должен прочитать е...   2.02.2010 21:23
Lapp   Как и где найти описание переменных , модулей и фу...   2.02.2010 23:20
777   У тебя учебник есть? Какой? Да НЕТ конечно...   3.02.2010 8:56
Unconnected   Посмотри здесь: Литература , там по паскалю есть к...   3.02.2010 13:42
Гость   Вот с этого и надо было начинать! (Книжки)   6.02.2010 13:12
Гость - ZetVV   Volvo, Laap! Удивляюсь Вашей выдержке! :g...   6.02.2010 13:27


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 21.06.2025 22:47
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"