2016-12-25 13:12:43 -08:00
|
|
|
Public Module ParserServices
|
|
|
|
|
2017-01-10 22:46:12 -08:00
|
|
|
Function ParseEventLogString(Text As String)
|
2016-12-25 13:12:43 -08:00
|
|
|
|
|
|
|
Dim ArrayLines(0)
|
|
|
|
|
|
|
|
Dim Text2 = Text.Substring(1, IIf(Text.EndsWith(","), Text.Length - 3, Text.Length - 2)) + ","
|
|
|
|
|
|
|
|
Dim Str = ""
|
|
|
|
|
|
|
|
Dim Delim = Text2.IndexOf(",")
|
|
|
|
Dim i = 0
|
|
|
|
|
|
|
|
While Delim > 0
|
2017-01-10 22:46:12 -08:00
|
|
|
Str = Str + Text2.Substring(0, Delim).Trim
|
2016-12-25 13:12:43 -08:00
|
|
|
Text2 = Text2.Substring(Delim + 1)
|
|
|
|
|
|
|
|
If CountSubstringInString(Str, "{") = CountSubstringInString(Str, "}") _
|
|
|
|
And Math.IEEERemainder(CountSubstringInString(Str, """"), 2) = 0 Then
|
|
|
|
|
|
|
|
ReDim Preserve ArrayLines(i)
|
2017-01-10 22:46:12 -08:00
|
|
|
|
|
|
|
If Str.StartsWith("""") And Str.EndsWith("""") Then
|
|
|
|
Str = Str.Substring(1, Str.Length - 2)
|
|
|
|
End If
|
|
|
|
|
|
|
|
ArrayLines(i) = Str
|
2016-12-25 13:12:43 -08:00
|
|
|
i = i + 1
|
|
|
|
Str = ""
|
|
|
|
Else
|
|
|
|
Str = Str + ","
|
|
|
|
End If
|
|
|
|
|
|
|
|
Delim = Text2.IndexOf(",")
|
|
|
|
|
|
|
|
End While
|
|
|
|
|
|
|
|
Return ArrayLines
|
|
|
|
|
|
|
|
End Function
|
|
|
|
|
|
|
|
Function CountSubstringInString(Str As String, SubStr As String)
|
|
|
|
|
|
|
|
CountSubstringInString = (Str.Length - Str.Replace(SubStr, "").Length) / SubStr.Length
|
|
|
|
|
|
|
|
End Function
|
|
|
|
|
|
|
|
|
|
|
|
End Module
|