Отправляет email-рассылки с помощью сервиса Sendsay

Программирование. Форум !!!

Delphi + Lisp

есть следущий код

Uses ComObj;
...
Var
S: String;
Word: OleVariant;
I: Integer;
Begin
Word:=GetActiveOleObject('Word.Application');
Word.Selection.WholeStory;
S:=Word.Selection.Text;
While Pos(#13#13, S)>0 do Delete(S, Pos(#13#13, S), 1);
I:=1;
While I<=Length(S) do
Begin
If S[I]=#13 then Insert(#10, S, I+1);
I:=I+1;
End;
Memo1.Text:=S;
End;

он весь текст из ворда копирует в мемо

а как сделать с AutoLisp'ом который сидит в автокаде
Номер выпуска : 3142
Возраст листа : 248 (дней)
Количество подписчиков : 410
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/156021
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru

http://subscribe.ru/ mailto:ask@subscribe.ru

Ответить   Thu, 27 May 2004 21:55:54 +0400 (#156021)