' HTML_CSS.vbs
'======================== Описание =====================================
' В строке под курсором файла HTML находит имя класса и если есть переходит в правую вкладку к имени класса
' В правой вкладке должен быть открыт CSS файл (или подобный с классами...)
'======================= Параметры ======================================
' используется Functions.vbs, который следует положить в ...AkelFiles\Plugs\Scripts\Include\
' -"Перейти в правую вкладку к class'у под курсором" Call("Scripts::Main", 1, "HTML_CSS.vbs") Icon("%a\AkelPadImage.dll",103)
' Автор: Аверин Андрей
' Версия: 1.1 (15.07.2021 - 16.07.2021)
' Mail: Averin-And@yandex.ru
' Site:
'===========================================================================
With AkelPad .Include("Functions.vbs")
sFile = .GetEditFile(0)
extFile = .GetFilePath(sFile, 4)
Select Case extFile
Case "html", "htm", "xml"
sLine = GetLine ' получение активной строки
aR = RegExpSearchPlus(sLine, "<div[ \t]*id=[ \t]*[""']([^""']+)", 0, 1, 1, 2) ' получение всех имён тегов <div id=
If IsArray(aR) Then
sNameClas = aR(0)
sNameClas = "#" & RegExpReplace(sNameClas, "(.+[""'])(.+)", "$2", 0, 1, 0) ' берём первый и переходим в CSS
cmd 4316 ' переходим в правую вкладку
.TextFind 0, sNameClas, &H00200000 | ' ищет и переходит к классу
WScript.Quit
End If
aR = RegExpSearchPlus(sLine, "<section[ \t]*id=[ \t]*[""']([^""']+)", 0, 1, 1, 2) ' получение всех имён тегов <section id=
If IsArray(aR) Then
sNameClas = aR(0)
sNameClas = "section#" & RegExpReplace(sNameClas, "(.+[""'])(.+)", "$2", 0, 1, 0) ' берём первый и переходим в CSS
cmd 4316 ' переходим в правую вкладку
.TextFind 0, sNameClas, &H00200000 ' ищет и переходит к классу
WScript.Quit
End If
aR = RegExpSearchPlus(sLine, "class[ \t]*=[ \t]*[""']([^""']+)", 0, 1, 1, 2) ' получение всех имён тегов class=
If IsArray(aR) Then ' если есть класс , то действуем дальше
sNameClas = aR(0)
sNameClas = "." & RegExpReplace(sNameClas, "(.+[""'])(.+)", "$2", 0, 1, 0) & "[ \t]*{" ' берём первый и переходим в CSS
cmd 4316 ' переходим в правую вкладку
.TextFind 0, sNameClas, 1 Or &H00200000 + &H00080000 ' ищет и переходит к классу
WScript.Quit
End If
Case Else
End Select
End With
WScript.Quit