Удаление лишнего в тексте

Вообщем нужна прога которая бы в тексте удаляла
вот такие строки:
tppabs="http://sms-angel.ru/images/label_topic.png?1246350496"
(Это пример,сылка всегда разная)

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

/*tpa=http://tutmoney.ru/img/fon.jpg*/
(Это пример,сылка всегда разная)

За обе проги плачу доллар,чисто символически
аська для связи 409829

 

Вот тебе скрипты на Python:
Первый:

Code:

#!/usr/bin/env python
# -*- coding: utf-8 -*-

import re
import sys

intext = open(sys.argv[1]).read()
outext = open(sys.argv[2], 'w')

outext.write(re.sub('tppabs=".*?"', '', intext))
outext.close()

Использование:

, где input.txt - входной файл, а output.txt выходной.

Вот что было в input.txt:

И что стало в output.txt:

Второй:

Code:

#!/usr/bin/env python
# -*- coding: utf-8 -*-

import re
import sys

intext = open(sys.argv[1]).read()
outext = open(sys.argv[2], 'w')

outext.write(re.sub('/\*tpa=.*?\*/', '', intext))
outext.close()

Используешь так же. Вот что было в input.txt:

И что стало в output.txt:

Для обеих скриптов нужен python (2 ветка).

Если что не так, то говори, перепишу.

 

на перле

Code:

#!/usr/bin/perl -w

open $in,"filein.txt" || die "Can't Open file!\n";
open $out,">out.txt";
while($a=<$in>){
$a=~s/tppabs="http:\/\/sms-angel.ru\/images\/label_topic.png\?\d{10}"//g; # d{10}-количество цифр в урле
print ($out $a); 
}
close ($in);
close ($out);

для первого случая.

 

а тебе какой язык то нужен??? скрипт или программа??? или без разницы???

 

могу сделать на delphi, если надо стучи icq #555-556-500