Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » Любой язык - скрипт для удаления

Ответить
Настройки темы
Любой язык - скрипт для удаления

Аватара для Rubichek

Ветеран


Сообщения: 547
Благодарности: 5

Профиль | Отправить PM | Цитировать


подскажите скрипт для удаления div
пример кода:
<div style="position:absolute;top:22796px;left:48px;"><font face="OMIWOR+MyriadPro-Regular" color="#838182" style="font-size:13px">номичность, комфорт как для пациен-</font></div>
<div style="position:absolute;top:22812px;left:48px;"><font face="OMIWOR+MyriadPro-Regular" color="#838182" style="font-size:13px">та, так и для персонала (современный </font></div>
<div style="position:absolute;top:22572px;left:285px;"><font face="OMIWOR+MyriadPro-Regular" color="#838182" style="font-size:13px">дизайн, встроенный в гентри монитор </font></div>
<div style="position:absolute;top:22588px;left:285px;"><font face="OMIWOR+MyriadPro-Regular" color="#838182" style="font-size:13px">основных параметров сканирования </font></div>
<div style="position:absolute;top:22604px;left:285px;"><font face="OMIWOR+MyriadPro-Regular" color="#838182" style="font-size:13px">+ ЭКГ-сигнала опционально, лазерные </font></div>
<div style="position:absolute;top:22620px;left:285px;"><font face="OMIWOR+MyriadPro-Regular" color="#838182" style="font-size:13px">маркеры для позиционирования па-</font></div>

Отправлено: 01:44, 07-08-2011

 

Старожил


Сообщения: 175
Благодарности: 119

Профиль | Отправить PM | Цитировать


Предположу, что нужно удалять тэги DIV.
Код: Выделить весь код
Option Explicit

Dim objFSO
Dim FileName
Dim OpenFile
Dim strText

Set objFSO = CreateObject("Scripting.FileSystemObject")

FileName = "z:\DIVremove.htm"

Set OpenFile = objFSO.OpenTextFile(FileName, 1)
  strText = OpenFile.ReadAll
OpenFile.Close
  
Set OpenFile = objFSO.OpenTextFile(FileName, 2) 
  OpenFile.Write ReplaceText(strText, "<div.*?>(.*?)</div>", "$1")
OpenFile.Close

WScript.Echo "Скрипт отработал."

WScript.Quit

Function ReplaceText(strSourceText, strPattern, strNewText)
  Dim objRegExp
    Set objRegExp = New RegExp
    objRegExp.Pattern = strPattern
    objRegExp.IgnoreCase = True
    objRegExp.Global = True
    ReplaceText = objRegExp.Replace(strSourceText, strNewText)
End Function
В принципе, можно удалять любой текст - просто нужно проставить нужные условия регулярных выражений (выделенные цветом). Первое - искомый текст, второе - текст на выходе.

Отправлено: 06:17, 07-08-2011 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Аватара для Rubichek

Ветеран


Сообщения: 547
Благодарности: 5

Профиль | Отправить PM | Цитировать


да нужно удалить div

Отправлено: 14:49, 07-08-2011 | #3



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » Любой язык - скрипт для удаления

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
CMD/BAT - [решено] CMD-скрипт для удаления временных файлов old_nick Скриптовые языки администрирования Windows 23 20-02-2015 08:46
VBS/WSH/JS - Помогите улучшить скрипт для поиска и удаления файлов UpDaTe Скриптовые языки администрирования Windows 4 23-03-2011 04:33
CMD/BAT - [решено] Скрипт для удаления файлов. Bond01 Скриптовые языки администрирования Windows 8 01-10-2010 11:02
Любой язык - нужен скрипт для удаления всех файлов кроме нужных для запуска Windows XP Dark Ange1 Скриптовые языки администрирования Windows 11 07-03-2010 13:34
Скрипт для удаления директорий dallas Программирование и базы данных 5 15-01-2003 19:28




 
Переход