' 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