Форум АНТИЧАТ - Удаление лишнего в тексте

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)

- - Удаление лишнего в тексте (https://forum.antichat.xyz/showthread.php?t=160682)

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

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

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

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

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

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

Код:

#!/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()

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

Цитата:

one.py input.txt output.txt

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

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

Цитата:

hello world tppabs="http://sms-angel.ru/images/label_topic.png?1246350496" lalala tppabs="http://sms-angel.ru/images/label", haha hehe lalala.

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

Цитата:

hello world lalala , haha hehe lalala.

Второй:

Код:

#!/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:

Цитата:

tralalala /*tpa=http://tutmoney.ru/img/fon.jpg*/ example, /*tpa=http://google.ru/*/ haha, hehe. special for GOODmen! :D

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

Цитата:

tralalala example, haha, hehe. special for GOODmen! :D

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

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

Код:

#!/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);

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

Цитата:

Сообщение от GOODmen

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

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