Announcement

Collapse
No announcement yet.

what to change to run this script on Linux?

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

    what to change to run this script on Linux?

    Hi I have a nice script which works fine when used on Hs3 Windows. But now changing over to Hs3 on Linux its not working any more and giving errors.
    How to change this to get it working on Linux as well?
    I have no scripting skills so hopefully it is just some simple changes that need to be made

    Thanks in advance W.

    The Error running the script as .vb:
    Code:
    jan-21 09:56:27         Error    Compiling script /usr/local/HomeSeer/scripts/afvalophaalscript.vb: Not valid as identifier.
    jan-21 09:56:27         Error    Compiling script /usr/local/HomeSeer/scripts/afvalophaalscript.vb: Not valid as identifier.
    jan-21 09:56:27         Error    Compiling script /usr/local/HomeSeer/scripts/afvalophaalscript.vb: Expected end of statement.
    jan-21 09:56:27         Error    Compiling script /usr/local/HomeSeer/scripts/afvalophaalscript.vb: Expected 'End'.
    jan-21 09:56:27         Error    Compiling script /usr/local/HomeSeer/scripts/afvalophaalscript.vb: Expected end of statement.
    jan-21 09:56:27         Error    Compiling script /usr/local/HomeSeer/scripts/afvalophaalscript.vb: Expected 'End'.
    jan-21 09:56:23         Event    Running script in background: /usr/local/HomeSeer/scripts/afvalophaalscript.vb

    And the script itself(parts are in Dutch):
    Code:
    Public Sub Main()
        Dim Postcode, Huisnummer, Toevoeging, DevRef, Debug
        Dim objHttp, Text, i, Ophaaldagen
        Dim Datum, d
    
        ' Vul hier je eigen gegevens in
        Postcode = "2514CB"
        Huisnummer = "1"
        Toevoeging = ""
        DevRef="179"
        Debug="0"  '0=off, 1=on
    
    
        ' Ander test adres
        'Postcode = "8266bh"
        'Huisnummer = "1"
        'Toevoeging = ""
    
        Set objHttp = CreateObject("Msxml2.ServerXMLHTTP")
        objHttp.Open "GET", "http://json.mijnafvalwijzer.nl/?method=postcodecheck&postcode=" & Postcode & "&street=&huisnummer=" & Huisnummer & "&toevoeging=" & Toevoeging & _
            "&platform=phone&langs=nl&mobiletype=android&platform=phone&version=33%20HTTP/1.1", False
        objHttp.Send
        Text = objHttp.ResponseText
        Set objHttp = Nothing
    
        If Len(Text) > 10 Then
    
            Set oJSON = New aspJSON
            oJSON.loadJSON(Text)
    
            'Get single value
            if Debug = "1" then hs.writelog "afval", "Response: " & oJSON.data("response")
            if Debug = "1" then hs.writelog "afval", "Gemeente: " & oJSON.data("data")("gemeente")
            Datum = Year(now()) & "-" & Right("0" & Month(Now()),2) & "-" & Right("0" & Day(Now()),2)
            if Debug = "1" then hs.writelog "afval", "Datum: " & chr(13) & Datum
            Ophaaldagen = ""
            For Each i In oJSON.data("data")("ophaaldagen")("data")
                Set this = oJSON.data("data")("ophaaldagen")("data").item(i)
                Ophaaldagen = Ophaaldagen & this.item("type") & ": " & this.item("date") & this.item("type") & ": " & this.item("date") & chr(13)
                d = this.item("date")
                if Debug = "1" then hs.writelog "afval", "d: " & chr(13) & d
                If d >= Datum Then
                  Hs.setdevicestring DevRef, this.item("type") & ": " & this.item("date"), true
             if this.item("type") = "restafval" then Hs.setdevicevaluebyref DevRef, 1, true
             if this.item("type") = "gft" then Hs.setdevicevaluebyref DevRef, 2, true
             if this.item("type") = "papier" then Hs.setdevicevaluebyref DevRef, 3, true
             if this.item("type") = "plastic" then Hs.setdevicevaluebyref DevRef, 4, true
                  Exit For
                End If
            Next
            If Debug = "1" then hs.writelog "afval", "Ophaaldagen: " & chr(13) & Ophaaldagen
    
        Else   
    
            if Debug = "1" then hs.writelog "afval", "No data received. Location probably not supported by mijnafvalwijzer.nl."
           
        End If
    
        End Sub
    
        'Februari 2014 - Version 1.17 by Gerrit van Kuipers
        Class aspJSON
           Public data
           Private p_JSONstring
           private aj_in_string, aj_in_escape, aj_i_tmp, aj_char_tmp, aj_s_tmp, aj_line_tmp, aj_line, aj_lines, aj_currentlevel, aj_currentkey, aj_currentvalue, aj_newlabel, aj_XmlHttp, aj_RegExp, aj_colonfound
    
           Private Sub Class_Initialize()
              Set data = Collection()
    
               Set aj_RegExp = new regexp
               aj_RegExp.Pattern = "\s{0,}(\S{1}[\s,\S]*\S{1})\s{0,}"
               aj_RegExp.Global = False
               aj_RegExp.IgnoreCase = True
               aj_RegExp.Multiline = True
           End Sub
    
           Private Sub Class_Terminate()
              Set data = Nothing
               Set aj_RegExp = Nothing
           End Sub
    
           Public Sub loadJSON(inputsource)
              inputsource = aj_MultilineTrim(inputsource)
              If Len(inputsource) = 0 Then Err.Raise 1, "loadJSON Error", "No data to load."
             
              select case Left(inputsource, 1)
                 case "{", "["
                 case else
                    Set aj_XmlHttp = CreateObject("Msxml2.ServerXMLHTTP")
                    aj_XmlHttp.open "GET", inputsource, False
                    aj_XmlHttp.setRequestHeader "Content-Type", "text/json"
                    aj_XmlHttp.setRequestHeader "CharSet", "UTF-8"
                    aj_XmlHttp.Send
                    inputsource = aj_XmlHttp.responseText
                    set aj_XmlHttp = Nothing
              end select
    
              p_JSONstring = CleanUpJSONstring(inputsource)
              aj_lines = Split(p_JSONstring, Chr(13) & Chr(10))
    
              Dim level(99)
              aj_currentlevel = 1
              Set level(aj_currentlevel) = data
              For Each aj_line In aj_lines
                 aj_currentkey = ""
                 aj_currentvalue = ""
                 If Instr(aj_line, ":") > 0 Then
                    aj_in_string = False
                    aj_in_escape = False
                    aj_colonfound = False
                    For aj_i_tmp = 1 To Len(aj_line)
                       If aj_in_escape Then
                          aj_in_escape = False
                       Else
                          Select Case Mid(aj_line, aj_i_tmp, 1)
                             Case """"
                                aj_in_string = Not aj_in_string
                             Case ":"
                                If Not aj_in_escape And Not aj_in_string Then
                                   aj_currentkey = Left(aj_line, aj_i_tmp - 1)
                                   aj_currentvalue = Mid(aj_line, aj_i_tmp + 1)
                                   aj_colonfound = True
                                   Exit For
                                End If
                             Case "\"
                                aj_in_escape = True
                          End Select
                       End If
                    Next
                    if aj_colonfound then
                       aj_currentkey = aj_Strip(aj_JSONDecode(aj_currentkey), """")
                       If Not level(aj_currentlevel).exists(aj_currentkey) Then level(aj_currentlevel).Add aj_currentkey, ""
                    end if
                 End If
                 If right(aj_line,1) = "{" Or right(aj_line,1) = "[" Then
                    If Len(aj_currentkey) = 0 Then aj_currentkey = level(aj_currentlevel).Count
                    Set level(aj_currentlevel).Item(aj_currentkey) = Collection()
                    Set level(aj_currentlevel + 1) = level(aj_currentlevel).Item(aj_currentkey)
                    aj_currentlevel = aj_currentlevel + 1
                    aj_currentkey = ""
                 ElseIf right(aj_line,1) = "}" Or right(aj_line,1) = "]" or right(aj_line,2) = "}," Or right(aj_line,2) = "]," Then
                    aj_currentlevel = aj_currentlevel - 1
                 ElseIf Len(Trim(aj_line)) > 0 Then
                    if Len(aj_currentvalue) = 0 Then aj_currentvalue = aj_line
                    aj_currentvalue = getJSONValue(aj_currentvalue)
    
                    If Len(aj_currentkey) = 0 Then aj_currentkey = level(aj_currentlevel).Count
                    level(aj_currentlevel).Item(aj_currentkey) = aj_currentvalue
                 End If
              Next
           End Sub
    
           Public Function Collection()
              set Collection = CreateObject("Scripting.Dictionary")
           End Function
    
           Public Function AddToCollection(dictobj)
              if TypeName(dictobj) <> "Dictionary" then Err.Raise 1, "AddToCollection Error", "Not a collection."
              aj_newlabel = dictobj.Count
              dictobj.Add aj_newlabel, Collection()
              set AddToCollection = dictobj.item(aj_newlabel)
           end function
    
           Private Function CleanUpJSONstring(aj_originalstring)
              aj_originalstring = Replace(aj_originalstring, Chr(13) & Chr(10), "")
              aj_originalstring = Mid(aj_originalstring, 2, Len(aj_originalstring) - 2)
              aj_in_string = False : aj_in_escape = False : aj_s_tmp = ""
              For aj_i_tmp = 1 To Len(aj_originalstring)
                 aj_char_tmp = Mid(aj_originalstring, aj_i_tmp, 1)
                 If aj_in_escape Then
                    aj_in_escape = False
                    aj_s_tmp = aj_s_tmp & aj_char_tmp
                 Else
                    Select Case aj_char_tmp
                       Case "\" : aj_s_tmp = aj_s_tmp & aj_char_tmp : aj_in_escape = True
                       Case """" : aj_s_tmp = aj_s_tmp & aj_char_tmp : aj_in_string = Not aj_in_string
                       Case "{", "["
                          aj_s_tmp = aj_s_tmp & aj_char_tmp & aj_InlineIf(aj_in_string, "", Chr(13) & Chr(10))
                       Case "}", "]"
                          aj_s_tmp = aj_s_tmp & aj_InlineIf(aj_in_string, "", Chr(13) & Chr(10)) & aj_char_tmp
                       Case "," : aj_s_tmp = aj_s_tmp & aj_char_tmp & aj_InlineIf(aj_in_string, "", Chr(13) & Chr(10))
                       Case Else : aj_s_tmp = aj_s_tmp & aj_char_tmp
                    End Select
                 End If
              Next
    
              CleanUpJSONstring = ""
              aj_s_tmp = split(aj_s_tmp, Chr(13) & Chr(10))
              For Each aj_line_tmp In aj_s_tmp
                 aj_line_tmp = replace(replace(aj_line_tmp, chr(10), ""), chr(13), "")
                 CleanUpJSONstring = CleanUpJSONstring & aj_Trim(aj_line_tmp) & Chr(13) & Chr(10)
              Next
           End Function
    
           Private Function getJSONValue(ByVal val)
              val = Trim(val)
              If Left(val,1) = ":"  Then val = Mid(val, 2)
              If Right(val,1) = "," Then val = Left(val, Len(val) - 1)
              val = Trim(val)
    
              Select Case val
                 Case "true"  : getJSONValue = True
                 Case "false" : getJSONValue = False
                 Case "null" : getJSONValue = Null
                 Case Else
                    If (Instr(val, """") = 0) Then
                       If IsNumeric(val) Then
                          getJSONValue = CDbl(val)
                       Else
                          getJSONValue = val
                       End If
                    Else
                       If Left(val,1) = """" Then val = Mid(val, 2)
                       If Right(val,1) = """" Then val = Left(val, Len(val) - 1)
                       getJSONValue = aj_JSONDecode(Trim(val))
                    End If
              End Select
           End Function
    
           Private JSONoutput_level
           Public Function JSONoutput()
              dim wrap_dicttype, aj_label
              JSONoutput_level = 1
              wrap_dicttype = "[]"
              For Each aj_label In data
                  If Not aj_IsInt(aj_label) Then wrap_dicttype = "{}"
              Next
              JSONoutput = Left(wrap_dicttype, 1) & Chr(13) & Chr(10) & GetDict(data) & Right(wrap_dicttype, 1)
           End Function
    
           Private Function GetDict(objDict)
              dim aj_item, aj_keyvals, aj_label, aj_dicttype
              For Each aj_item In objDict
                 Select Case TypeName(objDict.Item(aj_item))
                    Case "Dictionary"
                       GetDict = GetDict & Space(JSONoutput_level * 4)
                       
                       aj_dicttype = "[]"
                       For Each aj_label In objDict.Item(aj_item).Keys
                           If Not aj_IsInt(aj_label) Then aj_dicttype = "{}"
                       Next
                       If aj_IsInt(aj_item) Then
                          GetDict = GetDict & (Left(aj_dicttype,1) & Chr(13) & Chr(10))
                       Else
                          GetDict = GetDict & ("""" & aj_JSONEncode(aj_item) & """" & ": " & Left(aj_dicttype,1) & Chr(13) & Chr(10))
                       End If
                       JSONoutput_level = JSONoutput_level + 1
                       
                       aj_keyvals = objDict.Keys
                       GetDict = GetDict & (GetSubDict(objDict.Item(aj_item)) & Space(JSONoutput_level * 4) & Right(aj_dicttype,1) & aj_InlineIf(aj_item = aj_keyvals(objDict.Count - 1),"" , ",") & Chr(13) & Chr(10))
                    Case Else
                       aj_keyvals =  objDict.Keys
                       GetDict = GetDict & (Space(JSONoutput_level * 4) & aj_InlineIf(aj_IsInt(aj_item), "", """" & aj_JSONEncode(aj_item) & """: ") & WriteValue(objDict.Item(aj_item)) & aj_InlineIf(aj_item = aj_keyvals(objDict.Count - 1),"" , ",") & Chr(13) & Chr(10))
                 End Select
              Next
           End Function
    
           Private Function aj_IsInt(val)
              aj_IsInt = (TypeName(val) = "Integer" Or TypeName(val) = "Long")
           End Function
    
           Private Function GetSubDict(objSubDict)
              GetSubDict = GetDict(objSubDict)
              JSONoutput_level= JSONoutput_level -1
           End Function
    
           Private Function WriteValue(ByVal val)
              Select Case TypeName(val)
                 Case "Double", "Integer", "Long": WriteValue = val
                 Case "Null"                  : WriteValue = "null"
                 Case "Boolean"               : WriteValue = aj_InlineIf(val, "true", "false")
                 Case Else                  : WriteValue = """" & aj_JSONEncode(val) & """"
              End Select
           End Function
    
           Private Function aj_JSONEncode(ByVal val)
              val = Replace(val, "\", "\\")
              val = Replace(val, """", "\""")
              'val = Replace(val, "/", "\/")
              val = Replace(val, Chr(8), "\b")
              val = Replace(val, Chr(12), "\f")
              val = Replace(val, Chr(10), "\n")
              val = Replace(val, Chr(13), "\r")
              val = Replace(val, Chr(9), "\t")
              aj_JSONEncode = Trim(val)
           End Function
    
           Private Function aj_JSONDecode(ByVal val)
              val = Replace(val, "\""", """")
              val = Replace(val, "\\", "\")
              val = Replace(val, "\/", "/")
              val = Replace(val, "\b", Chr(8))
              val = Replace(val, "\f", Chr(12))
              val = Replace(val, "\n", Chr(10))
              val = Replace(val, "\r", Chr(13))
              val = Replace(val, "\t", Chr(9))
              aj_JSONDecode = Trim(val)
           End Function
    
           Private Function aj_InlineIf(condition, returntrue, returnfalse)
              If condition Then aj_InlineIf = returntrue Else aj_InlineIf = returnfalse
           End Function
    
           Private Function aj_Strip(ByVal val, stripper)
              If Left(val, 1) = stripper Then val = Mid(val, 2)
              If Right(val, 1) = stripper Then val = Left(val, Len(val) - 1)
              aj_Strip = val
           End Function
    
           Private Function aj_MultilineTrim(TextData)
              aj_MultilineTrim = aj_RegExp.Replace(TextData, "$1")
           End Function
    
           private function aj_Trim(val)
              aj_Trim = Trim(val)
              Do While Left(aj_Trim, 1) = Chr(9) : aj_Trim = Mid(aj_Trim, 2) : Loop
              Do While Right(aj_Trim, 1) = Chr(9) : aj_Trim = Left(aj_Trim, Len(aj_Trim) - 1) : Loop
              aj_Trim = Trim(aj_Trim)
           end function
        End Class
    Last edited by nl_user; January 22, 2016, 09:33 AM.

    #2
    You have two "end Function", rather than "End Function", which, looking at the errors, is what may be causing the issue. unix\linux is typically a lot more case sensitive than Windows. Try changing those and see what happens.

    Cheers
    Al
    HS 3.0.0.548: 1990 Devices 1172 Events
    Z-Wave 3.0.1.262: 126 Nodes on one Z-Net

    Comment


      #3
      I changed that but still the same errors.
      Code:
      jan-22 15:53:39      Error    Compiling script /usr/local/HomeSeer/scripts/afvalophaalscript.vb: Not valid as identifier.         jan-22 15:53:39      Error    Compiling script /usr/local/HomeSeer/scripts/afvalophaalscript.vb: Expected end of statement.         jan-22 15:53:39      Error    Compiling script /usr/local/HomeSeer/scripts/afvalophaalscript.vb: Expected 'End'.         jan-22 15:53:39      Error    Compiling script /usr/local/HomeSeer/scripts/afvalophaalscript.vb: Expected end of statement.         jan-22 15:53:39      Error    Compiling script /usr/local/HomeSeer/scripts/afvalophaalscript.vb: Expected 'End'.         jan-22 15:53:35      Event    Running script in background: /usr/local/HomeSeer/scripts/afvalophaalscript.vb 

      Comment


        #4
        I know this script afvalwijzer..

        Try this one !

        PHP Code:
        Public Sub Main()
            
        Dim PostcodeHuisnummerToevoegingDevRefDebug
            Dim objHttp
        TextiOphaaldagen
            Dim Datum
        d

            
        ' Vul hier je eigen gegevens in
            Postcode = "2514CB"
            Huisnummer = "1"
            Toevoeging = ""
            DevRef="179"
            Debug="0"  '
        0=off1=on


            
        ' Ander test adres
            '
        Postcode "8266bh"
            'Huisnummer = "1"
            '
        Toevoeging ""

            
        Set objHttp CreateObject("Msxml2.ServerXMLHTTP")
            
        objHttp.Open "GET""http://json.mijnafvalwijzer.nl/?method=postcodecheck&postcode=" Postcode "&street=&huisnummer=" Huisnummer "&toevoeging=" Toevoeging _
                
        "&platform=phone&langs=nl&mobiletype=android&platform=phone&version=33%20HTTP/1.1"False
            objHttp
        .Send
            Text 
        objHttp.ResponseText
            Set objHttp 
        Nothing

            
        If Len(Text) > 10 Then

                Set oJSON 
        = New aspJSON
                oJSON
        .loadJSON(Text)

                
        'Get single value
                If Debug = "1" then hs.writelog "afval", "Response: " & oJSON.data("response")
                If Debug = "1" then hs.writelog "afval", "Gemeente: " & oJSON.data("data")("gemeente")
                Datum = Year(now()) & "-" & Right("0" & Month(Now()),2) & "-" & Right("0" & Day(Now()),2)
                If Debug = "1" then hs.writelog "afval", "Datum: " & chr(13) & Datum
                Ophaaldagen = ""
                For Each i In oJSON.data("data")("ophaaldagen")("data")
                    Set this = oJSON.data("data")("ophaaldagen")("data").item(i)
                    Ophaaldagen = Ophaaldagen & this.item("type") & ": " & this.item("date") & this.item("type") & ": " & this.item("date") & chr(13)
                    d = this.item("date")
                    if Debug = "1" then hs.writelog "afval", "d: " & chr(13) & d
                    If d >= Datum Then
                      Hs.setdevicestring DevRef, this.item("type") & ": " & this.item("date"), true
                 If this.item("type") = "restafval" then Hs.setdevicevaluebyref DevRef, 1, true
                 If this.item("type") = "gft" then Hs.setdevicevaluebyref DevRef, 2, true
                 If this.item("type") = "papier" then Hs.setdevicevaluebyref DevRef, 3, true
                 If this.item("type") = "plastic" then Hs.setdevicevaluebyref DevRef, 4, true
                      Exit For
                    End If
                Next
                If Debug = "1" then hs.writelog "afval", "Ophaaldagen: " & chr(13) & Ophaaldagen

            Else   

                if Debug = "1" then hs.writelog "afval", "No data received. Location probably not supported by mijnafvalwijzer.nl."
               
            End If

            End Sub

            '
        Februari 2014 Version 1.17 by Gerrit van Kuipers
            
        Class aspJSON
               
        Public data
               
        Private p_JSONstring
               
        private aj_in_stringaj_in_escapeaj_i_tmpaj_char_tmpaj_s_tmpaj_line_tmpaj_lineaj_linesaj_currentlevelaj_currentkeyaj_currentvalueaj_newlabelaj_XmlHttpaj_RegExpaj_colonfound

               
        Private Sub Class_Initialize()
                  
        Set data Collection()

                   
        Set aj_RegExp = new regexp
                   aj_RegExp
        .Pattern "\s{0,}(\S{1}[\s,\S]*\S{1})\s{0,}"
                   
        aj_RegExp.Global = False
                   aj_RegExp
        .IgnoreCase True
                   aj_RegExp
        .Multiline True
               End Sub

               
        Private Sub Class_Terminate()
                  
        Set data Nothing
                   Set aj_RegExp 
        Nothing
               End Sub

               
        Public Sub loadJSON(inputsource)
                  
        inputsource aj_MultilineTrim(inputsource)
                  If 
        Len(inputsource) = 0 Then Err.Raise 1"loadJSON Error""No data to load."
                 
                  
        select case Left(inputsource1)
                     Case 
        "{""["
                     
        Case else
                        
        Set aj_XmlHttp CreateObject("Msxml2.ServerXMLHTTP")
                        
        aj_XmlHttp.open "GET"inputsourceFalse
                        aj_XmlHttp
        .setRequestHeader "Content-Type""text/json"
                        
        aj_XmlHttp.setRequestHeader "CharSet""UTF-8"
                        
        aj_XmlHttp.Send
                        inputsource 
        aj_XmlHttp.responseText
                        set aj_XmlHttp 
        Nothing
                  End select

                  p_JSONstring 
        CleanUpJSONstring(inputsource)
                  
        aj_lines Split(p_JSONstringChr(13) & Chr(10))

                  
        Dim level(99)
                  
        aj_currentlevel 1
                  Set level
        (aj_currentlevel) = data
                  
        For Each aj_line In aj_lines
                     aj_currentkey 
        ""
                     
        aj_currentvalue ""
                     
        If Instr(aj_line":") > 0 Then
                        aj_in_string 
        False
                        aj_in_escape 
        False
                        aj_colonfound 
        False
                        
        For aj_i_tmp 1 To Len(aj_line)
                           If 
        aj_in_escape Then
                              aj_in_escape 
        False
                           
        Else
                              
        Select Case Mid(aj_lineaj_i_tmp1)
                                 Case 
        """"
                                    
        aj_in_string Not aj_in_string
                                 
        Case ":"
                                    
        If Not aj_in_escape And Not aj_in_string Then
                                       aj_currentkey 
        Left(aj_lineaj_i_tmp 1)
                                       
        aj_currentvalue Mid(aj_lineaj_i_tmp 1)
                                       
        aj_colonfound True
                                       
        Exit For
                                    
        End If
                                 Case 
        "\"
                                    aj_in_escape = True
                              End Select
                           End If
                        Next
                        if aj_colonfound then
                           aj_currentkey = aj_Strip(aj_JSONDecode(aj_currentkey), """")
                           If Not level(aj_currentlevel).exists(aj_currentkey) Then level(aj_currentlevel).Add aj_currentkey, ""
                        End if
                     End If
                     If right(aj_line,1) = "
        {" Or right(aj_line,1) = "[" Then
                        If Len(aj_currentkey) = 0 Then aj_currentkey = level(aj_currentlevel).Count
                        Set level(aj_currentlevel).Item(aj_currentkey) = Collection()
                        Set level(aj_currentlevel + 1) = level(aj_currentlevel).Item(aj_currentkey)
                        aj_currentlevel = aj_currentlevel + 1
                        aj_currentkey = ""
                     ElseIf right(aj_line,1) = "
        }" Or right(aj_line,1) = "]" or right(aj_line,2) = "}," Or right(aj_line,2) = "]," Then
                        aj_currentlevel = aj_currentlevel - 1
                     ElseIf Len(Trim(aj_line)) > 0 Then
                        if Len(aj_currentvalue) = 0 Then aj_currentvalue = aj_line
                        aj_currentvalue = getJSONValue(aj_currentvalue)

                        If Len(aj_currentkey) = 0 Then aj_currentkey = level(aj_currentlevel).Count
                        level(aj_currentlevel).Item(aj_currentkey) = aj_currentvalue
                     End If
                  Next
               End Sub

               Public Function Collection()
                  set Collection = CreateObject("
        Scripting.Dictionary")
               End Function

               Public Function AddToCollection(dictobj)
                  if TypeName(dictobj) <> "
        Dictionary" then Err.Raise 1, "AddToCollection Error", "Not a collection."
                  aj_newlabel = dictobj.Count
                  dictobj.Add aj_newlabel, Collection()
                  set AddToCollection = dictobj.item(aj_newlabel)
               End function

               Private Function CleanUpJSONstring(aj_originalstring)
                  aj_originalstring = Replace(aj_originalstring, Chr(13) & Chr(10), "")
                  aj_originalstring = Mid(aj_originalstring, 2, Len(aj_originalstring) - 2)
                  aj_in_string = False : aj_in_escape = False : aj_s_tmp = ""
                  For aj_i_tmp = 1 To Len(aj_originalstring)
                     aj_char_tmp = Mid(aj_originalstring, aj_i_tmp, 1)
                     If aj_in_escape Then
                        aj_in_escape = False
                        aj_s_tmp = aj_s_tmp & aj_char_tmp
                     Else
                        Select Case aj_char_tmp
                           Case "
        \" : aj_s_tmp = aj_s_tmp & aj_char_tmp : aj_in_escape = True
                           Case """" : aj_s_tmp = aj_s_tmp & aj_char_tmp : aj_in_string = Not aj_in_string
                           Case "
        {", "["
                              aj_s_tmp = aj_s_tmp & aj_char_tmp & aj_InlineIf(aj_in_string, "", Chr(13) & Chr(10))
                           Case "
        }", "]"
                              aj_s_tmp = aj_s_tmp & aj_InlineIf(aj_in_string, "", Chr(13) & Chr(10)) & aj_char_tmp
                           Case "
        ," : aj_s_tmp = aj_s_tmp & aj_char_tmp & aj_InlineIf(aj_in_string, "", Chr(13) & Chr(10))
                           Case Else : aj_s_tmp = aj_s_tmp & aj_char_tmp
                        End Select
                     End If
                  Next

                  CleanUpJSONstring = ""
                  aj_s_tmp = split(aj_s_tmp, Chr(13) & Chr(10))
                  For Each aj_line_tmp In aj_s_tmp
                     aj_line_tmp = replace(replace(aj_line_tmp, chr(10), ""), chr(13), "")
                     CleanUpJSONstring = CleanUpJSONstring & aj_Trim(aj_line_tmp) & Chr(13) & Chr(10)
                  Next
               End Function

               Private Function getJSONValue(ByVal val)
                  val = Trim(val)
                  If Left(val,1) = "
        :"  Then val = Mid(val, 2)
                  If Right(val,1) = "
        ," Then val = Left(val, Len(val) - 1)
                  val = Trim(val)

                  Select Case val
                     Case "
        true"  : getJSONValue = True
                     Case "
        false" : getJSONValue = False
                     Case "
        null" : getJSONValue = Null
                     Case Else
                        If (Instr(val, """") = 0) Then
                           If IsNumeric(val) Then
                              getJSONValue = CDbl(val)
                           Else
                              getJSONValue = val
                           End If
                        Else
                           If Left(val,1) = """" Then val = Mid(val, 2)
                           If Right(val,1) = """" Then val = Left(val, Len(val) - 1)
                           getJSONValue = aj_JSONDecode(Trim(val))
                        End If
                  End Select
               End Function

               Private JSONoutput_level
               Public Function JSONoutput()
                  dim wrap_dicttype, aj_label
                  JSONoutput_level = 1
                  wrap_dicttype = "
        []"
                  For Each aj_label In data
                      If Not aj_IsInt(aj_label) Then wrap_dicttype = "
        {}"
                  Next
                  JSONoutput = Left(wrap_dicttype, 1) & Chr(13) & Chr(10) & GetDict(data) & Right(wrap_dicttype, 1)
               End Function

               Private Function GetDict(objDict)
                  dim aj_item, aj_keyvals, aj_label, aj_dicttype
                  For Each aj_item In objDict
                     Select Case TypeName(objDict.Item(aj_item))
                        Case "
        Dictionary"
                           GetDict = GetDict & Space(JSONoutput_level * 4)
                           
                           aj_dicttype = "
        []"
                           For Each aj_label In objDict.Item(aj_item).Keys
                               If Not aj_IsInt(aj_label) Then aj_dicttype = "
        {}"
                           Next
                           If aj_IsInt(aj_item) Then
                              GetDict = GetDict & (Left(aj_dicttype,1) & Chr(13) & Chr(10))
                           Else
                              GetDict = GetDict & ("""" & aj_JSONEncode(aj_item) & """" & "
        " & Left(aj_dicttype,1) & Chr(13) & Chr(10))
                           End If
                           JSONoutput_level = JSONoutput_level + 1
                           
                           aj_keyvals = objDict.Keys
                           GetDict = GetDict & (GetSubDict(objDict.Item(aj_item)) & Space(JSONoutput_level * 4) & Right(aj_dicttype,1) & aj_InlineIf(aj_item = aj_keyvals(objDict.Count - 1),"" , "
        ,") & Chr(13) & Chr(10))
                        Case Else
                           aj_keyvals =  objDict.Keys
                           GetDict = GetDict & (Space(JSONoutput_level * 4) & aj_InlineIf(aj_IsInt(aj_item), "", """" & aj_JSONEncode(aj_item) & """
        ") & WriteValue(objDict.Item(aj_item)) & aj_InlineIf(aj_item = aj_keyvals(objDict.Count - 1),"" , ",") & Chr(13) & Chr(10))
                     End Select
                  Next
               End Function

               Private Function aj_IsInt(val)
                  aj_IsInt = (TypeName(val) = "
        Integer" Or TypeName(val) = "Long")
               End Function

               Private Function GetSubDict(objSubDict)
                  GetSubDict = GetDict(objSubDict)
                  JSONoutput_level= JSONoutput_level -1
               End Function

               Private Function WriteValue(ByVal val)
                  Select Case TypeName(val)
                     Case "
        Double", "Integer", "Long": WriteValue = val
                     Case "
        Null"                  : WriteValue = "null"
                     Case "
        Boolean"               : WriteValue = aj_InlineIf(val, "true", "false")
                     Case Else                  : WriteValue = """" & aj_JSONEncode(val) & """"
                  End Select
               End Function

               Private Function aj_JSONEncode(ByVal val)
                  val = Replace(val, "
        \", "\\")
                  val = Replace(val, """", "
        \""")
                  'val = Replace(val, "
        /", "\/")
                  val = Replace(val, Chr(8), "
        \b")
                  val = Replace(val, Chr(12), "
        \f")
                  val = Replace(val, Chr(10), "
        \n")
                  val = Replace(val, Chr(13), "
        \r")
                  val = Replace(val, Chr(9), "
        \t")
                  aj_JSONEncode = Trim(val)
               End Function

               Private Function aj_JSONDecode(ByVal val)
                  val = Replace(val, "
        \""", """")
                  val = Replace(val, "
        \\", "\")
                  val = Replace(val, "
        \/", "/")
                  val = Replace(val, "
        \b", Chr(8))
                  val = Replace(val, "
        \f", Chr(12))
                  val = Replace(val, "
        \n", Chr(10))
                  val = Replace(val, "
        \r", Chr(13))
                  val = Replace(val, "
        \t", Chr(9))
                  aj_JSONDecode = Trim(val)
               End Function

               Private Function aj_InlineIf(condition, returntrue, returnfalse)
                  If condition Then aj_InlineIf = returntrue Else aj_InlineIf = returnfalse
               End Function

               Private Function aj_Strip(ByVal val, stripper)
                  If Left(val, 1) = stripper Then val = Mid(val, 2)
                  If Right(val, 1) = stripper Then val = Left(val, Len(val) - 1)
                  aj_Strip = val
               End Function

               Private Function aj_MultilineTrim(TextData)
                  aj_MultilineTrim = aj_RegExp.Replace(TextData, "
        $1")
               End Function

               private function aj_Trim(val)
                  aj_Trim = Trim(val)
                  Do While Left(aj_Trim, 1) = Chr(9) : aj_Trim = Mid(aj_Trim, 2) : Loop
                  Do While Right(aj_Trim, 1) = Chr(9) : aj_Trim = Left(aj_Trim, Len(aj_Trim) - 1) : Loop
                  aj_Trim = Trim(aj_Trim)
               End function
            End Class 
        Preferred -> Jon's Plugins, Pushover, Phlocation, Easy-trigger,
        Rfxcom, Blade Plugins, Pushbullet, homekit, Malosa Scripts




        HS3Pro 4.0.8.0 on windows 10 enterprise X64 on hp quadcore laptop 8 GB.

        Comment


          #5
          @Malosa No, still getting the same errors. But as mentioned I am running this on the Linux version of Hs3

          Comment


            #6
            That all looks to be VBScript to me which is unsupported in Linux - you would need it re-written to be in .net instead.

            Comment


              #7
              Originally posted by mrhappy View Post
              That all looks to be VBScript to me which is unsupported in Linux - you would need it re-written to be in .net instead.
              Ok I do not know either of them, so if someone can help changing it into .net (.vb) would be great ?

              Comment


                #8
                Originally posted by mrhappy View Post
                That all looks to be VBScript to me which is unsupported in Linux - you would need it re-written to be in .net instead.
                Good catch Adam. Typically I see a lot of other errors if I try to run a vbscript as a .vb file

                Cheers
                Al
                HS 3.0.0.548: 1990 Devices 1172 Events
                Z-Wave 3.0.1.262: 126 Nodes on one Z-Net

                Comment


                  #9
                  Sorry , nl_user ask this at the dutch forum , the Guy who created this script... I cant rebuild iT in .net sorry ....


                  Sended from far far away
                  Preferred -> Jon's Plugins, Pushover, Phlocation, Easy-trigger,
                  Rfxcom, Blade Plugins, Pushbullet, homekit, Malosa Scripts




                  HS3Pro 4.0.8.0 on windows 10 enterprise X64 on hp quadcore laptop 8 GB.

                  Comment


                    #10
                    Originally posted by sparkman View Post
                    Good catch Adam. Typically I see a lot of other errors if I try to run a vbscript as a .vb file



                    Cheers

                    Al
                    Preferred -> Jon's Plugins, Pushover, Phlocation, Easy-trigger,
                    Rfxcom, Blade Plugins, Pushbullet, homekit, Malosa Scripts




                    HS3Pro 4.0.8.0 on windows 10 enterprise X64 on hp quadcore laptop 8 GB.

                    Comment


                      #11
                      I posted this question also on the Dutch forum. Thanks for your support.

                      Comment

                      Working...
                      X