AIM Stripper

mechmind

Пользователь

Репутация: 8
Posts: 60

AIM Stripper

« on: 8 February 2008, 04:43 »

AIM Stripper 0.2

- Вырезает метки времени (формат меток берется из темы); Обрезает "куски" меток;
- Обрезает сообщения до текста (все не-privmsg сообщения - действия, входы/выходы, моды канала - будутт удалены). Формат ников берется из настроек темы; Обрезает "куски" ников;
- Принудительно вырезает цвета.

Писалось и тестировалось на winxp SP2, KVIrc 2007.01.06

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

upd [15.02]: Поправил аргумент для $option()


« Last Edit: 15 February 2008, 13:22 by mechmind »	Logged

Тысячи лет поиска и все впустую, 001010011101011...

kns

Постоялец

Репутация: 38
Gender: Male

Posts: 222

Re: AIM Stripper

« Reply #1 on: 2 July 2008, 18:59 »

Функция $str.stripcolors() как-то странно работает. При включенном режиме преобразования смайлов в картинки, режет значок "Ctrl+I" и прилегающие к нему символы (по крайней мере сами смайлы и переводы строки).
Поэтому, когда смайлик приходится на конец строки, получается фигня на выходе.

Предлагаю вырезать цета уже после создания массива %data.
И, кстати, не пойму назначения $stripper::sysNewLineSym(). (:


	Logged

kns

Постоялец

Репутация: 38
Gender: Male

Posts: 222

Re: AIM Stripper

« Reply #2 on: 12 April 2011, 21:41 »

Оставлю для себя сообщение. На будущее, если вдруг опять протеряю настройки.

Code:

alias(myfunct::stripts)
{
%a = $str.stripcolors($str.fromClipboard())

%a =~ s/([\r\n]+)/\n/g
%c = $array()

/**/

foreach(%b,$str.split("\n",%a)) {
# Заточено под мой формат таймстампа: [hh:mm:ss@dd-MM]
if($str.match("^\\[.{14}\\]",%b,"r"))
{%b =~ s/^\\S+\\s*//;}

%c <+ %b
}

system.setClipboard $str.join("\n",%c)
}


	Logged

Pages: [1]

« previous next »

	Author	Topic: AIM Stripper (Read 4214 times)
0 Members and 2 Guests are viewing this topic.