document.getElementsByClassName('info-lastpost')[1].children[2].innerText

И все это упаковать в одну строку таблицы в правильном соотношении (только там не 13 пунктов, а много страниц по 50 пунктов).
Я уже типа представляю себе как это оформить достаточно прилично через ComObjCreate("HTMLFile"), но если можно эту проблему решить как то еще...

http://forum.script-coding.com/viewtopi … 783#p82783 Вот это от тов. serzh82saratov еще актуально? Или уже придуманы более оптимальные способы?

ChromeInst := new Chrome(A_Temp)
PageInst := ChromeInst.GetPage()
PageInst.Call("Page.navigate", {"url": "http://delfi.lv"})
PageInst.WaitForLoad()

a := a_tickcount
res := PageInst.Evaluate("document.documentElement.outerHTML;")
msgbox % a_tickcount - a
MsgBox, % IsObject(res)

a := a_tickcount
str := JSON.Stringify(res)
msgbox % a_tickcount - a
MsgBox, % str

a := a_tickcount
obj := JSON.Parse(str)
msgbox % a_tickcount - a
MsgBox, % obj.value

class JSON
{
   static JS := JSON._GetJScripObject()
   
   Parse(JsonString)  {
      try oJSON := this.JS.("(" JsonString ")")
      catch  {
         MsgBox, Wrong JsonString!
         Return
      }
      Return this._CreateObject(oJSON)
   }
   
   Stringify(obj)  {
      if IsObject( obj )  {
         isArray := true
         for key in obj
            if !( key = A_Index || isArray := false )
               break
            
         for k, v in obj
            str .= ( A_Index = 1 ? "" : "," ) . ( isArray ? "" : this.Stringify(k) . ":" ) . this.Stringify(v)

         return isArray ? "[" str "]" : "{" str "}"
      }
      else if !(obj*1 = "" || RegExMatch(obj, "\s"))
         return obj
      
      for k, v in [["\", "\\"], [A_Tab, "\t"], ["""", "\"""], ["/", "\/"], ["`n", "\n"], ["`r", "\r"], [Chr(12), "\f"], [Chr(08), "\b"]]
         obj := StrReplace( obj, v[1], v[2] )
      
      while RegexMatch( obj, "[^\x20-\x7e]", key )  {
         str := Asc( key )
         val := "\u" . Chr( ( ( str >> 12 ) & 15 ) + ( ( ( str >> 12 ) & 15 ) < 10 ? 48 : 55 ) )
               . Chr( ( ( str >> 8 ) & 15 ) + ( ( ( str >> 8 ) & 15 ) < 10 ? 48 : 55 ) )
               . Chr( ( ( str >> 4 ) & 15 ) + ( ( ( str >> 4 ) & 15 ) < 10 ? 48 : 55 ) )
               . Chr( ( str & 15 ) + ( ( str & 15 ) < 10 ? 48 : 55 ) )
         obj := StrReplace(obj, key, val)
      }
      Return """" obj """"
   }
   
   GetFromUrl(url, body := "", contentType := "", userAgent := "")  {
      ; в случае удачи будет возвращена строка, в случае ошибки — массив с одним элементом-строкой с описанием ошибки
      try  {
         XmlHttp := ComObjCreate("Microsoft.XmlHttp")
         XmlHttp.Open("GET", url, false)
         ( contentType && XmlHttp.SetRequestHeader("Content-Type", contentType) )
         ( userAgent && XmlHttp.SetRequestHeader("User-Agent", userAgent) )
         XmlHttp.Send(body)
      }
      catch e
         Return ["Error!`n" . e.Message]
      status := XmlHttp.Status
      Return status = 200 ? XmlHttp.ResponseText : ["Error! Status: " . status . ", ResponseText: " . XmlHttp.ResponseText]
   }

   _GetJScripObject()  {
      VarSetCapacity(tmpFile, ((MAX_PATH := 260) - 14) << !!A_IsUnicode, 0)
      DllCall("GetTempFileName", Str, A_Temp, Str, "AHK", UInt, 0, Str, tmpFile)
      
      FileAppend,
      (
      <component>
      <public><method name='eval'/></public>
      <script language='JScript'></script>
      </component>
      ), % tmpFile
      
      JS := ObjBindMethod( ComObjGet("script:" . tmpFile), "eval" )
      FileDelete, % tmpFile
      JSON._AddMethods(JS)
      Return JS
   }

   _AddMethods(ByRef JS)  {
      JScript =
      (
         Object.prototype.GetKeys = function () {
            var keys = []
            for (var k in this)
               if (this.hasOwnProperty(k))
                  keys.push(k)
            return keys
         }
         Object.prototype.IsArray = function () {
            var toStandardString = {}.toString
            return toStandardString.call(this) == '[object Array]'
         }
      )
      JS.("delete ActiveXObject; delete GetObject;")
      JS.(JScript)
   }

   _CreateObject(ObjJS)  {
      res := ObjJS.IsArray()
      if (res = "")
         Return ObjJS
      
      else if (res = -1)  {
         obj := []
         Loop % ObjJS.length
            obj[A_Index] := this._CreateObject(ObjJS[A_Index - 1])
      }
      else if (res = 0)  {
         obj := {}
         keys := ObjJS.GetKeys()
         Loop % keys.length
            k := keys[A_Index - 1], obj[k] := this._CreateObject(ObjJS[k])
      }
      Return obj
   }
}

Привет. решил попробовать еще разок во всем этом разобраться.
Возник вопрос по скорости:
document.documentElement.outerHTML и должно для google.com выполняться 12 секунд? (считал сам и в msgbox'e цифра 12к+)

Update: Если поменять хтмл всего сайта на хтмл интересующего куска, то все становится гораздо быстрее.
Осталось только разобраться как его дальше парсить на ссылки, тексты и прочее.

А, ну это же не позиционируется, как релиз, и ссылок на эти библиотеки нет. Кроме того, в Jxon.ahk нет методов Jxon_True() и Jxon_False().

Прошу прощения за дезинформацию. В любом случае, мне было известно о встроенной поддержке JSON, но по душе Ваше творчество.

Точно не знаю, что там происходит,

Автор библиотеки сказал, что

https://autohotkey.com/boards/viewtopic … 16#p218916

Вот это я пропустил.
Тогда ничего криминального не случится, хотя я всё-равно не люблю лишние файлы.

Мне парсинг JSON пока не нужен.
Если будет нужен, то возьмусь, а так лень копаться.

Сравни скорости

Точно не знаю, что там происходит, но просто сравни дальше:

ChromeInst := new Chrome(A_Temp)
PageInst := ChromeInst.GetPage()
PageInst.Call("Page.navigate", {"url": "http://delfi.lv"})
PageInst.WaitForLoad()

a := a_tickcount
res := PageInst.Evaluate("document.documentElement.outerHTML;")
msgbox % a_tickcount - a
MsgBox, % IsObject(res)

a := a_tickcount
str := JSON.Stringify(res)
msgbox % a_tickcount - a
MsgBox, % str

a := a_tickcount
obj := JSON.Parse(str)
msgbox % a_tickcount - a
MsgBox, % obj.value

class JSON
{
   static JS := JSON._GetJScripObject()
   
   Parse(JsonString)  {
      try oJSON := this.JS.("(" JsonString ")")
      catch  {
         MsgBox, Wrong JsonString!
         Return
      }
      Return this._CreateObject(oJSON)
   }
   
   Stringify(obj)  {
      if IsObject( obj )  {
         isArray := true
         for key in obj
            if !( key = A_Index || isArray := false )
               break
            
         for k, v in obj
            str .= ( A_Index = 1 ? "" : "," ) . ( isArray ? "" : this.Stringify(k) . ":" ) . this.Stringify(v)

         return isArray ? "[" str "]" : "{" str "}"
      }
      else if !(obj*1 = "" || RegExMatch(obj, "\s"))
         return obj
      
      for k, v in [["\", "\\"], [A_Tab, "\t"], ["""", "\"""], ["/", "\/"], ["`n", "\n"], ["`r", "\r"], [Chr(12), "\f"], [Chr(08), "\b"]]
         obj := StrReplace( obj, v[1], v[2] )
      
      while RegexMatch( obj, "[^\x20-\x7e]", key )  {
         str := Asc( key )
         val := "\u" . Chr( ( ( str >> 12 ) & 15 ) + ( ( ( str >> 12 ) & 15 ) < 10 ? 48 : 55 ) )
               . Chr( ( ( str >> 8 ) & 15 ) + ( ( ( str >> 8 ) & 15 ) < 10 ? 48 : 55 ) )
               . Chr( ( ( str >> 4 ) & 15 ) + ( ( ( str >> 4 ) & 15 ) < 10 ? 48 : 55 ) )
               . Chr( ( str & 15 ) + ( ( str & 15 ) < 10 ? 48 : 55 ) )
         obj := StrReplace(obj, key, val)
      }
      Return """" obj """"
   }
   
   GetFromUrl(url, body := "", contentType := "", userAgent := "")  {
      ; в случае удачи будет возвращена строка, в случае ошибки — массив с одним элементом-строкой с описанием ошибки
      try  {
         XmlHttp := ComObjCreate("Microsoft.XmlHttp")
         XmlHttp.Open("GET", url, false)
         ( contentType && XmlHttp.SetRequestHeader("Content-Type", contentType) )
         ( userAgent && XmlHttp.SetRequestHeader("User-Agent", userAgent) )
         XmlHttp.Send(body)
      }
      catch e
         Return ["Error!`n" . e.Message]
      status := XmlHttp.Status
      Return status = 200 ? XmlHttp.ResponseText : ["Error! Status: " . status . ", ResponseText: " . XmlHttp.ResponseText]
   }

   _GetJScripObject()  {
      VarSetCapacity(tmpFile, ((MAX_PATH := 260) - 14) << !!A_IsUnicode, 0)
      DllCall("GetTempFileName", Str, A_Temp, Str, "AHK", UInt, 0, Str, tmpFile)
      
      FileAppend,
      (
      <component>
      <public><method name='eval'/></public>
      <script language='JScript'></script>
      </component>
      ), % tmpFile
      
      JS := ObjBindMethod( ComObjGet("script:" . tmpFile), "eval" )
      FileDelete, % tmpFile
      JSON._AddMethods(JS)
      Return JS
   }

   _AddMethods(ByRef JS)  {
      JScript =
      (
         Object.prototype.GetKeys = function () {
            var keys = []
            for (var k in this)
               if (this.hasOwnProperty(k))
                  keys.push(k)
            return keys
         }
         Object.prototype.IsArray = function () {
            var toStandardString = {}.toString
            return toStandardString.call(this) == '[object Array]'
         }
      )
      JS.("delete ActiveXObject; delete GetObject;")
      JS.(JScript)
   }

   _CreateObject(ObjJS)  {
      res := ObjJS.IsArray()
      if (res = "")
         Return ObjJS
      
      else if (res = -1)  {
         obj := []
         Loop % ObjJS.length
            obj[A_Index] := this._CreateObject(ObjJS[A_Index - 1])
      }
      else if (res = 0)  {
         obj := {}
         keys := ObjJS.GetKeys()
         Loop % keys.length
            k := keys[A_Index - 1], obj[k] := this._CreateObject(ObjJS[k])
      }
      Return obj
   }
}

Кстати, обрати внимание:

static JS := JSON._GetJScripObject()

Там файл используется только один раз.

Ок, давай я один, ты — другой.

Там статья 2010 года, и, по-моему, речь идёт о браке.

Моему ssd уже 7 лет, так что они почти ровесники.
JMicron или нет, не знаю, но по-любому стараюсь его зазря не дырявить.

Не согласен. Например нам надо обнаружить изменение страницы и как только она изменится подать сигнал.
Сравни скорости:

oIE := ComObjCreate("InternetExplorer.Application")
oIE.visible := True
oIE.navigate("http://delfi.lv")
While oIE.readyState != 4 || oIE.document.readyState != "complete" || oIE.busy  
   sleep 10
a := a_tickcount
OuterHTML := oIE.Document.documentElement.OuterHtml
msgbox % a_tickcount - a

и

ChromeInst := new Chrome()
PageInst := ChromeInst.GetPage()
PageInst.Call("Page.navigate", {"url": "http://delfi.lv"})
PageInst.WaitForLoad()
a := a_tickcount
OuterHTML := PageInst.Evaluate("document.documentElement.outerHTML;").Value
msgbox % a_tickcount - a

Поэтому я и предложил если публиковать, то публиковать 2 варианта.
Так как для одних приоритет - компактность кода, для других - выполнение кода без создания лишних файлов.
Ну или если под Active script переделывать не хочется, то внести комментарии по поводу  создания файла один раз и сохранения его на диске.

Для некоторых ssd хардов может быть неприятно

Там статья 2010 года, и, по-моему, речь идёт о браке.

Для задач, где это применяется, скорость не критична, и время, которое тратится на парсинг, несравнимо меньше времени, потраченного на загрузку данных из сети.

Тут ответ очевиден — компактность кода. Ну и файл вовсе не обязательно создавать, можно просто один раз сохранить на диске.

А вообще если речь идёт о Хроме, JSON лучше парсить нативными методами js, да и вообще все ресурсоёмкие операции можно выполнять силами движка Хрома.