вы про каво?

Шо за херню ты мне прислал(а)? Какой Намик Касумов? Задрали спамить! Уроды!!!

On Mon, 14 Apr 2008 00:29:46 +0400, Jai2003 <jai20***@y*****.ru> wrote:

> Здравствуйте Намик Касумов,
> Что то Вы жжоте уже не по децки, каждый пост прямиком на баш можно
> отправлять. Что за коммерческое сотрудничество на платформе Паскаля
> может быть?:)!!! Какие к черту серьезные проекты или какие то тонкости
> технической реализации, вы там что фряху пишете 0_0? Хватит уж
> так заморачиваца, а взяли бы книжку по паскалю почитали бы хорошо.
> Потом глядишь и С++ с ассемблером осилили бы. Оставьте уж так стебаца,
> здесь вроде бы серьезные люди сидят.
>

я не намик касумов)

Уважаемые господа кодеры на С/C++ и PASCAL,
здравствуйте!

Хочу обратиться за Вашей помощью в решении одного вопроса. Я обращаюсь этим письмом
к
программистам этого листа по поводу возможности сотрудничества с ними.
Особо меня интересуют талантливые кодировщики на языках программирования C/C++
и Pascal.
Готов оплатить их работу.

Суть дела в том, что Для началав я хочу с Вашей помощью отладить два листинга
с кодом.
Один на языке С++, второй - на языке Pascal.

Оба кода должны выдавать один и тот же результат. То есть, это два одинаковых
по
сути кода на двух различных языках. Причем отладить их нужно так, чтобы сохранились
суть,
структура и идентификация каждого листинга.

Мои компиляторы (Borland C++ и Free Pascal) не могут справиться с поставленной
задачей.
В связи с последним, хочу отметить, что я впервые обращаюсь к данным языкам серьезно,
а
отведенное мне время (для решения данной задачи) позволило написать тексты кодов
далеко
не в лучшем, виде. Сам я кодирую в других языковых средах.

Итак, если Вы илли Ваши знакомые программисты могут взяться за эту работу, то
пишите мне
прямо на адрес и мы обсудим возможные условия сотрудничества.
А листинг (или листинги) с кодом я отошлю по указанному Вами адресу и по первому
Вашему запросу.

Если будут нужны какие бы то ни было уточнения, пожалуйста, не стесняйтесь спрашивать
меня.
Вы можете общаться со мной, помимо листа, и через мой адрес <namik045***@)*****.com>
напрямую
(в таком случае, в теме обязательно нужно отметить: "Cpp/Pascal-код").

Если Вы ознакомились с моей просьбой, то я был бы очень признателен Вам за отклик.
Буду рад любым откликам.

--
С уважением,
Намик Касумов - автор разработки.

p.s. Напоминаю, готов оплатить эту работу.

Добрый день, уважаемые коллеги!

Хочу снова обратиться за Вашей помощью.
Готов ее оплатить.

Сначала изложу суть задачи, которую нужно решить.
Если Вы можете ее решить успешно, то пишите мне,
мы обсудим возможные условия сотрудничества.

Итак.

Есть исходный файл текстового формата, в котором
содержатся письма (электронные), сохраненные в этот
файл по стандарту mail unix box. На самом деле, даже
если Вы не знаете этот стандарт, это не проблема,
т.к. файл можно просмотреть и легко станет понятно,
где там письма и где в них служебная информация.
Примерный формат этого текстового файла таков, что все письма
расположены линейно и разделены едиными разделителями,
начинаются со строго одинакового заголовка и т.п., т.е.
отделять письма друг от друга можно автоматически +
каждое письмо содержит заголовок и тело. В заголовке находится
служебная информация, четко структурированная. Подробнее
рекомендую посмотреть ссылку (о стандартах MIME для e-mail):
http://www.mhonarc.org/~ehood/MIME/

В файле примере, архив которого можно скачать по ссылке:
http://soros.cima.ru/temp/ctrlg-test-3-threads.zip ~55 kB
содержится 31 письмо, объединенные в 3 темы (цепочки).
Пример цепочки (темы) можно посмотреть по ссылке:
http://soros.cima.ru/temp/ctrlg-test-3-threads.png ~5 kB
В первой теме 15 писем, во второй 14 писем, в третьей 2 письма.
Все письма в кодировке KOI8-R, и закодированы в quoted printable.
Чтобы на выходе получить обычный текст, нужно будет декодировать
quoted printable текст. Я делал это в PHP с помощью функции
quoted_printable_decode(); Поскольку в этом формате в теме письма
появляются лишние символы, то я применял вот такую конструкцию
(переменная $sbj содержит в себе строку с темой письма):
$sbj = eregi_replace("=\?koi8-r\?Q\?","",$sbj);
$sbj = eregi_replace("\?=","",$sbj);
$sbj = quoted_printable_decode($sbj);
Возможно, Вы сами найдете более элегантный вариант перекодировки
текста, впрочем, суть задачи не в этом.

Задача:
На основе текстового файла mail unix box (см. архив примера по ссылке)
http://soros.cima.ru/temp/ctrlg-test-3-threads.zip ~55 kB
необходимо создать базу данных писем (предпочтительно в формате MySQL)
со следующими полями:

1) MessageID - ключевое поле, значения в нем не повторяются,
определяет уникальность письма (если при парсинге файла
вдруг обнаружатся 2 оиднаковых MessageID, то такое письмо-
дубль сохранять в виде отдельной записи не нужно);

2) From-mail - электронный адрес, с которого отправлено письмо;

3) Subject - тема письма;

4) Thread - ? - нужно подумать детальнее над этим полем,
пока предполагается следующее:
- поле пустое, если с этого письма начата новая тема
(т.е. письмо не ссылается ни на какое иное письмо,
т.е. иначе говоря, не найдены заголовки референсов),
- поле содержит MessageID письма, на которое есть ссылка,
(т.е. есть в заголовке письма хедер In-Reply-To: или
References:, на основе которых и определяется ссылка);

5) Date - дата формирования письма (в данном конкретном случае
берется из MessageID, т.к. он сформирован следующим образом:
20080208092323.7235***@e*****.subscribe
формат первой части таков:
ггггммддччммсс. после точки порядковый номер по нарастающей;

6) Time - время сообщения берется из MessageID (в нашем случае)
- время будет московское (т.е. для всех писем единое);

7) Text - текст письма, т.е. непосредственного его тело.

8) Atten - поле "внимание" - логическое - 1 если нужно привлечь
внимание к конкретной записи, 0, если не нужно.
- 1 присваивается, если тема письма начинается с Re: или
Re[ а поле Thread пустое (т.е. мы фиксируем разрыв цепочки).

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

Вот, собственно говоря, всё.
Я буду рад любым откликам.

Если будут нужны какие бы то ни было уточнения, пожалуйста,
не стесняйтесь спрашивать меня. Вы можете общаться со мной
через этот диск.лист или писать мне напрямую (в теме обязательно
тогда напишите, что по поводу базы данных из Mail Unix Box):
slavnikov***@c*****.by
Моя ICQ: 115041944 (но е-мэйлом общаться надежнее)
Мой телефон: +375 29 629-30-43 (можно звонить или слать SMS).

ЗАРАНЕЕ ВСЕМ СПАСИБО!

p.s. Напоминаю, готов оплатить эту работу деньгами.

--
24.03.2008 - 13:01

С уважением, Славников Дмитрий
http://subscribe.ru/author/9810
E-mail: slavnikov***@c*****.by
Mobile: (+375 29) 629-30-43
ICQ: 115041944

Написал я вам регулярку!

Проверил только на первых 5 примерах.. А также 12 и 14 :) Времени
просто нет дальше.. Думаю везде будет работать. Где-то не сработает -
дайте пример, я переделаю..

Вот весь код на ПХП:
<?php

$St = file_get_contents("http://soros.cima.ru/temp/05.txt");
if (preg_match("~subscribe\.ru[ \n\r\t]*=+[ \n\r\t](.*?)[
\n\r\t]-\*--~is",$St,$P)) echo trim($P[1]);

?>
Сама регулярка: "~subscribe\.ru[ \n\r\t]*=+[ \n\r\t](.*?)[ \n\r\t]-\*--~is"

Теперь, просто зов души...
1. Забудьте в ПХП функции ereg, И.т.д... Используйте ТОЛЬКО PCRE и
preg_.. На больших шаблонах они в 10 РАЗ БЫСТРЕЕ РАБОТАЮТ! Проверял
лично.. ereg - это какая-то йухня...
2. Неужели мой код грамозднее, чем тот с strpos, substr,
str_repeat?... Регулярки ПРОСТЫЕ! Они МАСШТАБИРУЕМЫЕ! Легко
изменяются! Легко ПОНИМАЮТСЯ.. Попробуйте по строковым функциям сразу
понять что происходить...
3. Регулярки грузят сервер, при обработке больших документов. И то,
PCRE грузит сервак намного меньше.. У меня при обработке "нагруженной"
регуляркой хтмлек, размером в 2 мегабайта в 20 потоков не перегружал
сервак в Селерон 2.0 :-) Хотя всё тут относительно... При обраотке
таких писем - проблем не будет вообще. (:

P.S. Учить Регулярки! Это мега-крутая штука! (:

Да, Дмитрий, вынужден признать, что использование регулярки в вашем случае,
видимо, найлучший выход. Дело в том, что в тех документах, которые мой
скрипт не захотел обрабатывать, их структура несколько отличается от вами
описанной - тот случай, который я назвал "нечетким".
С уважением.
Вадим Шешунов.

Дмитрий, я попозже "прокачу" ваши данные на скрипте (вероятно, его
доотладить нужно).
А насчет отключения рекламы можете не беспокоится - для меня это далеко не
критичный вопрос.-)))))))
С уважением.
Вадим Шешунов.

Доброе утро, Вадим!

29.01.2008 Вы написали мне письмо:
mid:20080129120551.7213***@c*****.subscribe
Тема: "Re[5]: Регулярные выражения (RegExp'ы): нужна консультация"

>>> Попросту говоря, в тексте нужно найти фиксированный ИМейл (именно
>>> фиксированный, который вы точно знаете), а за ним через пару-тройку
>>> переводов строки строку "========...=" из неменее чем 30 символов =. И
>>> отступя, еще раз строку >>> Если я это понял правильно, то я бы не стал регуляркой пользоваться.
>>
>> Почему не стали бы?..
> Причин несколько.
> 1. Написание шаблонов - довольно кропотливое занятие, особенно для новичков
> (к коим на 90% принадлежу и я), где одна единственная ошибка приведет к
> долгим ее поискам в шаблоне (точнее, может привести).
> 2. Говорят, что регулярки сильно грузят сервер.
> 3. Ваша задача из тех, где легче обойтись "классическими" приемами - прямой,
> скажем так, обработкой текста, поскольку тот текст, который нужно найти
> имеет достаточно строгий формат. А регулярки используются при менее четких
> критериях.
>>
>>> $s=substr($s,strpos($s,str_repeat('=',30))+30);
>>> while(substr($s,0,1))=='=')$s=substr($s,1);
>>> $s=substr($s,strpos($s,str_repeat('=',30))+30);
>>> while(substr($s,0,1))=='=')$s=substr($s,1);
>>> Теперь в $s у нас тело+футер (т.е. мы отрезали все по вторую двойную
>>> линию).
>>> Конечно эти две строчки можно "прокатить" в цикле for от 1 до 2.
>>> $s=substr($s,0,strpos($s,'-ж----')) - без футера нужная "середка"-)))
>>
>> Почему-то у меня этот код отказываться работать и вообще выскакивае
>> сообщение об ошибке:
>> Parse error: syntax error, unexpected T_IS_EQUAL in
>> /home/cimaruwe/domains/cima.ru/public_html/soros/temp/3.php
>> on line 6
>> это строчка, где находится первый цикл...
>>
> Я просто закрыл круглую скобку не в том месте.
> while(substr($s,0,1)=='=')$s=substr($s,1);

Вадим, спасибо!
Я подкорректировал Ваш код (пару синтаксичеческих очепяток).
Код работает, но не на всех варантах!

Варианты "живые" я выложил здесь (18 файлов):
http://soros.cima.ru/temp/01.txt
...
http://soros.cima.ru/temp/18.txt

Скрипт в некоторых случаях пытается "откусить" лишнюю часть в начале
текстов. В частности, он не справился с файлами с номерами:
04, 05, 06, 07, 08, 09, 10, 11, 12, 14, 15, 16, 17, 18
хуже всего скрипт обошелся с текстом 12, 14, 15, 18

У меня есть работающий на всех "живых" примерах RegExp, который
составила уважаемая Наталья Сысоева.

Если интересно решить эту задачку не регэкспом, то буду рад получить
от Вас очередное письмо с идеями по этому поводу. В любом случае, как
и обещал, отключу Вам субскрайбовскую рекламу на год. На какой е-мэйл
отключать (можно это сообщить в личку).

--
29.01.2008 - 11:23

С уважением, Славников Дмитрий
http://subscribe.ru/author/9810
E-mail: slavnikov***@c*****.by
Mobile: (+375 29) 629-30-43
ICQ: 115041944

>> Попросту говоря, в тексте нужно найти фиксированный ИМейл (именно
>> фиксированный, который вы точно знаете), а за ним через пару-тройку
>> переводов строки строку "========...=" из неменее чем 30 символов =. И
>> отступя, еще раз строку >> Если я это понял правильно, то я бы не стал регуляркой пользоваться.
>
> Почему не стали бы?..
Причин несколько.
1. Написание шаблонов - довольно кропотливое занятие, особенно для новичков
(к коим на 90% принадлежу и я), где одна единственная ошибка приведет к
долгим ее поискам в шаблоне (точнее, может привести).
2. Говорят, что регулярки сильно грузят сервер.
3. Ваша задача из тех, где легче обойтись "классическими" приемами - прямой,
скажем так, обработкой текста, поскольку тот текст, который нужно найти
имеет достаточно строгий формат. А регулярки используются при менее четких
критериях.
>
>> $s=substr($s,strpos($s,str_repeat('=',30))+30);
>> while(substr($s,0,1))=='=')$s=substr($s,1);
>> $s=substr($s,strpos($s,str_repeat('=',30))+30);
>> while(substr($s,0,1))=='=')$s=substr($s,1);
>> Теперь в $s у нас тело+футер (т.е. мы отрезали все по вторую двойную
>> линию).
>> Конечно эти две строчки можно "прокатить" в цикле for от 1 до 2.
>> $s=substr($s,0,strpos($s,'-ж----')) - без футера нужная "середка"-)))
>
> Почему-то у меня этот код отказываться работать и вообще выскакивае
> сообщение об ошибке:
> Parse error: syntax error, unexpected T_IS_EQUAL in
> /home/cimaruwe/domains/cima.ru/public_html/soros/temp/3.php
> on line 6
> это строчка, где находится первый цикл...
>
Я просто закрыл круглую скобку не в том месте.
while(substr($s,0,1)=='=')$s=substr($s,1);

Доброй ночи, уважаемый Вадим!

28.01.2008 Вы написали мне письмо:
mid:20080128210017.7212***@c*****.subscribe
Тема: "Re[3]: Регулярные выражения (RegExp'ы): нужна консультация"

> Попросту говоря, в тексте нужно найти фиксированный ИМейл (именно
> фиксированный, который вы точно знаете), а за ним через пару-тройку
> переводов строки строку "========...=" из неменее чем 30 символов =. И
> отступя, еще раз строку > Если я это понял правильно, то я бы не стал регуляркой пользоваться.

Почему не стали бы?..

> $s=substr($s,strpos($s,str_repeat('=',30))+30);
> while(substr($s,0,1))=='=')$s=substr($s,1);
> $s=substr($s,strpos($s,str_repeat('=',30))+30);
> while(substr($s,0,1))=='=')$s=substr($s,1);
> Теперь в $s у нас тело+футер (т.е. мы отрезали все по вторую двойную линию).
> Конечно эти две строчки можно "прокатить" в цикле for от 1 до 2.
> $s=substr($s,0,strpos($s,'-ж----')) - без футера нужная "середка"-)))

Почему-то у меня этот код отказываться работать и вообще выскакивае
сообщение об ошибке:
Parse error: syntax error, unexpected T_IS_EQUAL in /home/cimaruwe/domains/cima.ru/public_html/soros/temp/3.php
on line 6
это строчка, где находится первый цикл...

P.S. мне уже прислали работающий регэксп! :)
--
29.01.2008 - 3:09

С уважением, Славников Дмитрий
http://subscribe.ru/author/9810
E-mail: slavnikov***@c*****.by
Mobile: (+375 29) 629-30-43
ICQ: 115041944

Попросту говоря, в тексте нужно найти фиксированный ИМейл (именно
фиксированный, который вы точно знаете), а за ним через пару-тройку
переводов строки строку "========...=" из неменее чем 30 символов =. И
отступя, еще раз строку Если я это понял правильно, то я бы не стал регуляркой пользоваться.
$s=substr($s,strpos($s,str_repeat('=',30))+30);
while(substr($s,0,1))=='=')$s=substr($s,1);
$s=substr($s,strpos($s,str_repeat('=',30))+30);
while(substr($s,0,1))=='=')$s=substr($s,1);
Теперь в $s у нас тело+футер (т.е. мы отрезали все по вторую двойную линию).
Конечно эти две строчки можно "прокатить" в цикле for от 1 до 2.
$s=substr($s,0,strpos($s,'-ж----')) - без футера нужная "середка"-)))
С уважением.
Вадим Шешунов.

Добрый вечер, друзья!

27.01.2008 Вы написали мне письмо:
mid:20080127113519.7208***@c*****.subscribe
Тема: "Re: Регулярные выражения (RegExp'ы): нужна консультация"

В первую очередь обращаюсь к тем, кто откликнулся:
Grishkе, Вадиму Шешунову и Вахтурову Виктору.
(ну и к остальным, кто может помочь с регулярными выражениями).

Нужно силами регулярных выражений в PHP (а насколько я знаю,
PHP поддерживает и синтаксис регулярных выражений Perl'a)
реализовать следующее:

есть некий текст, состоящий из 3-х частей:
шапки, тела, подписи (или, как говорят, хедера, боди и футера).
Необходимо из текста убрать хедер и футер (я предполагаю делать
это с помощью функции eregi_replace();

что известно, известно о части текста под названием "шапка"
(хедер):

во-первых, текст начинается именно с нее,
во-вторых, она занимает несколько строк, причем неизвестно сколько
(т.е. это может быть 3 строки или больше),
в-третьих, она может содержать любые символы (текст, числа и т.п.),
но заканчивается она всегда следующим образом: указан е-мэйл, часть
у которого постоянная (всегда) и выглядит так:
-lala@a*****.by
после этого е-мэйла может быть от нуля до нескольких пробелов, перевод
строки и длинная строка, составленная из знаков равно
т.е. типа: (точно не задано,
сколько их, т.е. число может менять, но в любом случае больше 30

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

Пример шапки:

. ля траляля ля .
.................... [ красивый текст ] ..............................
. 222 333 44 - числа (!) <= знаки разные
опять текст и числа 222 снова текст и числа 333 и еще немного текста -
числе 22-33-2008 опять текст и числа префикс.текст-lala@a*****.by
вот это был пример шапки - несколько строк, мы не знаем, что в ней
(может быть разное), но четко всегда она заканчивается одним и тем же.

теперь по поводу футера (или подвала)...

что известно про него - им заканчивается текст
количество строк в нем четко не определено, может изменяться, но зато
четко известно, с чего начинается подвал, а начинается он вот с такой
последовательности символов: тире звездочка тире (несколько - от 4)

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

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

-жфутер шмутер тра ля ля
и еще какая-то строчка с разными знаками ! . " @ и т.п.
-жи снова какие-то строчки непонятной природы...

Вот. Надеюсь, что объяснил достаточно подробно.

Вот пример текста, над которым можно эксперементировать:
http://soros.cima.ru/temp/regexp-example.txt

и вот, что после удаления хедера и футера должно остаться:
http://soros.cima.ru/temp/regexp-result.txt

--
27.01.2008 - 22:19

С уважением, Славников Дмитрий
http://subscribe.ru/author/9810
E-mail: slavnikov***@c*****.by
Mobile: (+375 29) 629-30-43
ICQ: 115041944

Да. Простите меня. Давно уже не общался в этом листе-))))
С уважением.
Вадим Шешунов.

Здравствуйте !

> Подскажите, есть в данном комьюнити специалисты по регулярным
> выражениям?.. Может кто-нибудь помочь консультативной или практической
> помощью?..

В принципе, тоже могу помочь. Без проблем.

Здравствуйте !

> А что именно нужно? У меня имеется некоторый опыт.
> > С уважением.
> Вадим Шешунов.

Вадим, напоминаю, что оверквотинг (избыточное цитирование)
приносит неудобства другим подписчикам данного листа.
Пожалуйста, отрезайте все лишнее (особенно служебную
информацию, "подвалы" писем, и.т.д.).

Могу помочь по PCRE.

> Подскажите, есть в данном комьюнити специалисты по регулярным
> выражениям?.. Может кто-нибудь помочь консультативной или практической
> помощью?..

А что именно нужно? У меня имеется некоторый опыт.
С уважением.
Вадим Шешунов.
Original Message From: "Dmitry V. Slavnikov" <slavnikov***@c*****.by>
To: "comp.soft.prog.prog (8059844)" <vad_she***@u*****.net>
Sent: Saturday, January 26, 2008 2:14 PM
Subject: Регулярные выражения (RegExp'ы): нужна консультация

> Добрый день, друзья!
>
> Подскажите, есть в данном комьюнити специалисты по регулярным
> выражениям?.. Может кто-нибудь помочь консультативной или практической
> помощью?..
>
> В качестве благодарности буду рад отключить Вам рекламу Subscribe.ru
> сроком на год :) Стоимость услуги у самого Subscribe.ru = 300 p.
>
> P.S. Регулярное выражение будет задействовано под PHP.
>
> --
> 26.01.2008 - 14:12
>
> С уважением, Славников Дмитрий
> http://subscribe.ru/author/9810
> E-mail: slavnikov***@c*****.by
> Mobile: (+375 29) 629-30-43
> ICQ: 115041944
>
>
> --
> ------------------------------------Info> Выпуск : 5486
> Подписчиков : 548
> Возраст листа : 1590 (дней)
> Адрес в архиве :
> http://subscribe.ru/archive/comp.soft.prog.prog/msg/720825
> >
>

Добрый день, друзья!

Подскажите, есть в данном комьюнити специалисты по регулярным
выражениям?.. Может кто-нибудь помочь консультативной или практической
помощью?..

В качестве благодарности буду рад отключить Вам рекламу Subscribe.ru
сроком на год :) Стоимость услуги у самого Subscribe.ru = 300 p.

P.S. Регулярное выражение будет задействовано под PHP.

--
26.01.2008 - 14:12

С уважением, Славников Дмитрий
http://subscribe.ru/author/9810
E-mail: slavnikov***@c*****.by
Mobile: (+375 29) 629-30-43
ICQ: 115041944

В сообщении от 23 января 2008 00:06 Namik Kas написал(a):
> Уважаемые знатоки PASCAL,
> здравствуйте!
>
> Большое спасибо за предыдущий отклик.
>
> У меня к Вам такой вопрос:
> Не подскажете, как можно из определенной точки тела ОДНОГО кода передать
> управление в ДРУГОЙ
> файл с PASCAL-кодом с возвратом в точку исходного кода?
>
> В CLIPPER'e и/или в ряде других языках, например, этого можно достичь с
> помощью команды
> "do [name_file]".
>
> Это мне нужно для того, чтобы:
> 1. не оперировать слишком большим текстом кода;
> 2. получить возможность писать PASCAL-код по-сегментно, где каждый фрагмент
> (сегмент, модуль
>
> -
> можно назвать как угодно) можно соединять по усмотрению программиста с
> учетом, конечно,
>
> общей
> логики программы.
>
> --
> Если Вы ознакомились с моим вопросом, то я был бы очень признателен Вам за
> отклик.
>
> С уважением,
> nick59 - <nick***@i*****.ru>.

В Pascal также есть возможность, которая в C известна под названием
включаемого файла. Модуль (так этот файл называется в Pascal) подключается к
основному исходному коду в секции uses. Например, если файл располагается в
директории модулей компилятора:

uses sample_unit

Если же он находится в каком либо другом месте, надо накатать

uses "[path]sample_unit"

где path - абсолютный или отностительный путь к модулю в форме принятой в
данной операционной системе.
Затем в тексте программы мы вызываем функцию или процедуру предварительно
определив её в секции implemenation основной программы и интерфейсной секции
модуля. Тело функции (процедуры) при этом располагается в модуле.

Namik Kas пишет:
> Уважаемые знатоки PASCAL,
> здравствуйте!
>
> Большое спасибо за предыдущий отклик.
>
> У меня к Вам такой вопрос:
> Не подскажете, как можно из определенной точки тела ОДНОГО кода передать управление
> в ДРУГОЙ
> файл с PASCAL-кодом с возвратом в точку исходного кода?
>
>
>
И клиппер и другие подобные используют вызов DOS-овской функции, так что:
{$M 4000, 0, 0} {освобождаем память для других программ}
uses DOS;
BEGIN
SwapVectors; {переключение векторов прерываний}
Exec('chars.exe',''); {второй параметр - параметры командной строки}
SwapVectors;
END.
Есть и другой метод, через COMSPEC
С уважением, Борис

Уважаемые знатоки PASCAL,
здравствуйте!

Большое спасибо за предыдущий отклик.

У меня к Вам такой вопрос:
Не подскажете, как можно из определенной точки тела ОДНОГО кода передать управление
в ДРУГОЙ
файл с PASCAL-кодом с возвратом в точку исходного кода?

В CLIPPER'e и/или в ряде других языках, например, этого можно достичь с помощью
команды
"do [name_file]".

Это мне нужно для того, чтобы:
1. не оперировать слишком большим текстом кода;
2. получить возможность писать PASCAL-код по-сегментно, где каждый фрагмент (сегмент,
модуль

-
можно назвать как угодно) можно соединять по усмотрению программиста с учетом,
конечно,

общей
логики программы.

--
Если Вы ознакомились с моим вопросом, то я был бы очень признателен Вам за отклик.

С уважением,
nick59 - <nick***@i*****.ru>.

Namik Kas пишет:
> Уважаемые знатоки PASCAL,
> здравствуйте!
>
> Не подскажете, как можно получить обратные функции, т.е.:
> функции, где аргумент типа Char, а результат типа целого десятичного (INTEGER),
> двоичного
> и 16-ричного чисел - т.е. отдельные функции, которые возвращали бы коды в трех
> указанных
>
> форматах (если, конечно, Pascal это допускает)?
>
>
Это элементарно и посмотреть легко, если получить помощь по CHR -
обратная функция ORD.
Но все еще проще, чтобы получить символ с кодом, например, 123 нужно
написать:
ch := #123;
Чтобы перейти на экране на следующую строку (в начало), не обязательно
писать
WriteLn;
Можно написать:
Write(#13,#10);
И аналогично:
Writeln(#13,#10,13,10);
Выведет с новой строки 13 и 10.
А числа, они все двоичные. Чтобы без проблем получить шестнадцатиричное,
можно или воспользоваться функцией Format, которая получилась в Паскале
не самая удобная для применения, или ручками:
например, так:
VAR
w: Word;
b: byte;
s: String;
BEGIN
w := $B2AF;
s:='';
while w <> 0 do begin
b:= w mod 16;
w := w div 16;
case b of
0..9: s:= chr(b + 48) + s;
10..15: s:= chr(b + 55) + s;
end;
end;
WriteLn(s);
END.
И еще, часто нужна таблица кодов. Ее получают так:
VAR
b: Byte;
BEGIN
for b:=32 to 255 do
Write(chr(b),' ',b:3,' '); WriteLn;
END.
--
С уважением, Борис

Уважаемые знатоки PASCAL,
здравствуйте!

Вычитал на специализированном сайте <pascaler.ru> о том, что:

Chr(x) - это библиотечная функция, где аргумент типа Byte, а результат типа Char-
возвращает

символ, у которого код в таблице ASCII равен х;

Не подскажете, как можно получить обратные функции, т.е.:

функции, где аргумент типа Char, а результат типа целого десятичного (INTEGER),
двоичного
и 16-ричного чисел - т.е. отдельные функции, которые возвращали бы коды в трех
указанных

форматах (если, конечно, Pascal это допускает)?

--
Если Вы ознакомились с моим вопросом, то я был бы очень признателен Вам за отклик.

С уважением,
nick59 - <nick***@i*****.ru>.

Anton Kerfi пишет:
> В сообщении от 28 декабря 2007 07:07 вы написали:
>> Обращаюсь к Вам, потому что не могу разобраться с проблемой синхронного
>> вызова в ASP.NET
> Наиболее приемлемым решением проблемы для было бы зайти на форумы посвященные
> тематике VB, VBA и ASP.
> www.vbnet.ru
> www.winsov.ru
>
> Также вам помогут сайты с компьютерной документацией.
> www.realcoding.net
> www.relib.com
>
> Моя специализация больше по CGI и всего, что с этим связано, и C/C++ в
> реализации GNU. Тем не менее могу дать консутацию/совет и по другим
> реализациям оного если таковая будет указана.
>

Спасибо. И за внимание - тоже :)

В сообщении от 28 декабря 2007 07:07 вы написали:
> Обращаюсь к Вам, потому что не могу разобраться с проблемой синхронного
> вызова в ASP.NET
Наиболее приемлемым решением проблемы для было бы зайти на форумы посвященные
тематике VB, VBA и ASP.
www.vbnet.ru
www.winsov.ru

Также вам помогут сайты с компьютерной документацией.
www.realcoding.net
www.relib.com

Моя специализация больше по CGI и всего, что с этим связано, и C/C++ в
реализации GNU. Тем не менее могу дать консутацию/совет и по другим
реализациям оного если таковая будет указана.

БОЛЬШОЕ СПАСИБО!
-----Original MessageFrom: Anton Kerfi <statkms711***@n*****.ru>
To: "comp.soft.prog.prog" <nick***@i*****.ru> (1735245)
Date: Wed, 26 Dec 2007 22:02:00 +1000
Subject: Re: работа над ошибками в С/С++

>
> Service Data Objects For C++ Specification
> http://www.osoa.org/download/attachments/36/CPP-SDO-Spec-v2.1.0-FINAL.pdf
>
> Также коды ошибок в указанном формате используются в СУБД Oracle
> http://koapp.narod.ru/tehlit/base/oracle/ora_err.htm
>
> и СУБД Clipper
> извините, документации нет, есть тока бумажная
>
> Реализацию C++ в студию, где используются данные коды ошибок
> --
> Доброе время суток
>
> Лукаш Антон
> ICQ:492979219
>
>
> --
> ------------------------------------Info> Выпуск : 5476
> Подписчиков : 546
> Возраст листа : 1558 (дней)
> Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/714105
> >
>

В сообщении от 26 декабря 2007 16:52 Namik Kas написал(a):
> Уважаемые господа,
> здравствуйте!
>
> Буду очень Вам признателен, если подскажете что-нибудь по тематике "Работы
> над ошибками" <Error E0001-E...> в С/С++, в частности литературу и интернет
> ресурсы с документацией об Е-ошибках и их отладках.

Service Data Objects For C++ Specification
http://www.osoa.org/download/attachments/36/CPP-SDO-Spec-v2.1.0-FINAL.pdf

Также коды ошибок в указанном формате используются в СУБД Oracle
http://koapp.narod.ru/tehlit/base/oracle/ora_err.htm

и СУБД Clipper
извините, документации нет, есть тока бумажная

Реализацию C++ в студию, где используются данные коды ошибок

Уважаемые господа,
здравствуйте!

Буду очень Вам признателен, если подскажете что-нибудь по тематике "Работы
над ошибками" <Error E0001-E...> в С/С++, в частности литературу и интернет
ресурсы с документацией об Е-ошибках и их отладках.

--
Если Вы получили мое послание, то я был бы очень признателен Вам за отклик.

С уважением,
nick59 - <nick***@i*****.ru>.