Форум Сайтостроение Веб-строительство

как удалить все ссылки из файлов ?

Great01
На сайте с 23.03.2009
Offline
28
Great01
749

есть папка с файлами, есть ли какойто скрипт или программа для автоматического удаления всех ссылок из файлов ?

мне абсюлтно наплевать на цифры в репутации, прямо побеать, я уже писал топик о том что репутация у всех накручена и ставится непонятно за что и понижается за мелкие промахи либо конкурентами
Alipapa
На сайте с 01.02.2008
Offline
234
Alipapa
#1

Есть программа MS Word Remove Hyperlinks, есть VBA-макрос

Sub RemoveHyperlinks()

Dim oDoc As Document
Dim oStory As Range
Dim oHlink As Hyperlink

For Each oStory In ActiveDocument.StoryRanges
For Each oHlink In oStory.Hyperlinks
oHlink.Delete
Next
Next

End Sub

если нужно удалить ссылки вместе с анкорами, то так:

Sub RemoveAllHyperlinks()

Dim oDoc As Document
Dim oStory As Range
Dim oHlink As Hyperlink

For Each oStory In ActiveDocument.StoryRanges
For Each oHlink In oStory.Hyperlinks
oHlink.Range.Delete
Next
Next

End Sub
Биржа фриланса - простая и удобная (http://kwork.ru/ref/2541)
[Удален]
#2
Great01:
есть папка с файлами, есть ли какойто скрипт или программа для автоматического удаления всех ссылок из файлов ?

<?

$files = glob("files/*");

foreach($files as $file)

{

    $c = file_get_contents($file);

    file_put_contents($file,preg_replace("#</?a.*?>#ism","",$c));

}

нечто такое попробуй запихни в файл пхп ну и свою папку в глобе укажи и запусти

A5
На сайте с 06.08.2006
Offline
46
Art569
#3

Great01, Посмотрите в сторону Far Manager и плугина Search and Replace.

Search and Replace поддерживает регулярные выражения и может обрабатывать файлы в каталогах, по маске.

В Far Manager нажимаем F12 выбираем "Поиск и замена"

В поле "Искать" вводим <a.*(href=)+.*>(.*)<\/a>. В поле "Заменить на" вводим $2. Устанавливаем крестик использовать "Регулярные выражения".

Great01
На сайте с 23.03.2009
Offline
28
Great01
#4

всем огромное спасибо, тему можно удалить

Авторизуйтесь или зарегистрируйтесь, чтобы оставить комментарий