Break On
Global $D[], $T[], $E[], $C[], $TE[], $BY, $count
Dim $Input, $file, $read, $DT, $er[], $rb[], $listing


$Count = 0
$System = CreateObject("Kixtart.System")

;KD START

$Form = $System.Form()
$Form.BackColor = 212,208,200
$Form.Height = 432
$Form.Left = 233
$Form.Text = "Error Log Reader"
$Form.Top = 55
$Form.Width = 678

$Server = $Form.Controls.Label()
$Server.BackColor = 212,208,200
$Server.Height = 23
$Server.Left = 105
$Server.Text = ""
$Server.Top = 15
$Server.Width = 200

$Label3 = $Form.Controls.Label()
$Label3.BackColor = 212,208,200
$Label3.Height = 23
$Label3.Left = 0
$Label3.Text = "Date"
$Label3.Top = 45
$Label3.Width = 100

$Label4 = $Form.Controls.Label()
$Label4.BackColor = 212,208,200
$Label4.Height = 23
$Label4.Left = 0
$Label4.Text = "Server Name"
$Label4.Top = 15
$Label4.Width = 100

$Date = $Form.Controls.Label()
$Date.BackColor = 212,208,200
$Date.Height = 23
$Date.Left = 105
$Date.Text = ""
$Date.Top = 45
$Date.Width = 100

$Label6 = $Form.Controls.Label()
$Label6.BackColor = 212,208,200
$Label6.Height = 23
$Label6.Left = 225
$Label6.Text = "Time"
$Label6.Top = 45
$Label6.Width = 100

$Time = $Form.Controls.Label()
$Time.BackColor = 212,208,200
$Time.Height = 23
$Time.Left = 330
$Time.Text = ""
$Time.Top = 45
$Time.Width = 100

$Label8 = $Form.Controls.Label()
$Label8.BackColor = 212,208,200
$Label8.Height = 23
$Label8.Left = 0
$Label8.Text = "Error Type"
$Label8.Top = 75
$Label8.Width = 100

$LER = $Form.Controls.Label()
$LER.BackColor = 212,208,200
$LER.Height = 23
$LER.Left = 105
$LER.Text = ""
$LER.Top = 75
$LER.Width = 100

$Label10 = $Form.Controls.Label()
$Label10.BackColor = 212,208,200
$Label10.Height = 23
$Label10.Left = 0
$Label10.Text = "Reported By:"
$Label10.Top = 105
$Label10.Width = 100

$Reporter = $Form.Controls.Label()
$Reporter.BackColor = 212,208,200
$Reporter.Height = 23
$Reporter.Left = 105
$Reporter.Text = ""
$Reporter.Top = 105
$Reporter.Width = 200

$Label12 = $Form.Controls.Label()
$Label12.BackColor = 212,208,200
$Label12.Height = 23
$Label12.Left = 0
$Label12.Text = "Error Message"
$Label12.Top = 225
$Label12.Width = 100

$Record = $Form.Controls.Label()
$Record.BackColor = 212,208,200
$Record.Height = 23
$Record.Left = 345
$Record.Top = 375
$Record.Width = 100
$Record.Text = ""

$EC = $Form.Controls.Label()
$EC.BackColor = 212,208,200
$EC.Height = 100
$EC.Left = 15
$EC.Text = ""
$EC.Top = 255
$EC.Width = 634

$Button1 = $Form.Controls.Button()
$Button1.FontSize = 12
$Button1.Height = 23
$Button1.Left = 90
$Button1.Text = "<<"
$Button1.Top = 375
$Button1.Width = 75
$Button1.OnClick = "Decrease()"

$Button2 = $Form.Controls.Button()
$Button2.FontSize = 12
$Button2.Height = 23
$Button2.Left = 240
$Button2.Text = ">>"
$Button2.Top = 375
$Button2.Width = 75
$Button2.OnClick = "Increase()"

$Button3 = $Form.Controls.Button()
$Button3.Height = 23
$Button3.Left = 495
$Button3.Text = "Exit"
$Button3.Top = 375
$Button3.Width = 75
$Button3.OnClick = "Cancel()"

$DirList = $Form.Controls.ComboBox()
$DirList.DropDownStyle = 2
$DirList.DropDownWidth = 156
$DirList.Height = 21
$DirList.Left = 495
$DirList.Sorted = "False"
$DirList.Text = ""
$DirList.Top = 15
$DirList.Width = 156
$DirList.OnSelectedIndexChanged = "Build()"


$Label14 = $Form.Controls.Label()
$Label14.BackColor = 212,208,200
$Label14.Height = 19
$Label14.Left = 375
$Label14.Text = "Please select log file"
$Label14.Top = 15
$Label14.Width = 113

$Label15 = $Form.Controls.Label()
$Label15.BackColor = 212,208,200
$Label15.Height = 23
$Label15.Left = 255
$Label15.Text = "Search Criteria"
$Label15.Top = 135
$Label15.Width = 100

$ComboBox2 = $Form.Controls.ComboBox()
$ComboBox2.DropDownWidth = 121
$ComboBox2.Height = 21
$ComboBox2.Left = 105
$ComboBox2.Sorted = "False"
$ComboBox2.Top = 180
$ComboBox2.Width = 121

$ComboBox3 = $Form.Controls.ComboBox()
$ComboBox3.DropDownWidth = 121
$ComboBox3.Height = 21
$ComboBox3.Left = 345
$ComboBox3.Sorted = "False"
$ComboBox3.Top = 180
$ComboBox3.Width = 121

$Label16 = $Form.Controls.Label()
$Label16.BackColor = 212,208,200
$Label16.Height = 23
$Label16.Left = 0
$Label16.Text = "Server"
$Label16.Top = 180
$Label16.Width = 100

$Label17 = $Form.Controls.Label()
$Label17.BackColor = 212,208,200
$Label17.Height = 23
$Label17.Left = 240
$Label17.Text = "Error Type"
$Label17.Top = 180
$Label17.Width = 100

$Label18 = $Form.Controls.Label()
$Label18.BackColor = 212,208,200
$Label18.Height = 17
$Label18.Left = 465
$Label18.Text = "Reported By"
$Label18.Top = 180
$Label18.Width = 81

$ComboBox4 = $Form.Controls.ComboBox()
$ComboBox4.DropDownWidth = 121
$ComboBox4.Height = 21
$ComboBox4.Left = 550
$ComboBox4.Sorted = "False"
$ComboBox4.Top = 180
$ComboBox4.Width = 121

;KD END

;Get log file from user
Listing()
$DirList.SelectedIndex = 0

$Form.Show

While $Form.Visible
   $=Execute($Form.DoEvents())
Loop
Exit 1

Function Listing ()
$temp = Dir(@scriptdir+"\*.txt")
While $temp <> "" and @error = 0
 $DirList.AddItem($temp)
 $temp = Dir()
Loop
EndFunction

Function Build()
;Build Arrays.
;+++++++

Open(1,$DirList.Text)
$input = Readline(1)
While @Error = 0
 Redim Preserve $D[$count]
 Redim Preserve $T[$count]
 Redim Preserve $E[$count]
 Redim Preserve $C[$count]
 Redim Preserve $TE[$count]
 Redim Preserve $BY[$count]
 $read = Split($input,"	")
 $DT = Split($read[0]," ")
 $Er = Split($read[1],".")
 $RB = Split($read[3],":")
 $D[$count] = $DT[0]
 $T[$count] = $DT[1]
 $E[$count] = $Er[1]
 $C[$count] = $read[2]
 $TE[$count] = $read[3]
 $BY[$count] = $RB[0]
 $count = $count +1
 $input = Readline(1)
Loop
Close (1)

$count = 0
Update()

EndFunction

Function Update ()
If $count = 0 
  $Button1.Enabled = "False"
  Else
  $Button1.Enabled = "True"
EndIf
If $Count = Ubound($TE)
  $Button2.Enabled = "False"
  Else
  $Button2.Enabled = "True"
EndIf
$Server.Text = $C[$count]
$Date.Text = $D[$count]
$Time.Text = $T[$count]
$Reporter.Text = $BY[$count]
$LER.Text = $E[$count]
$EC.Text = $TE[$count]
$Record.Text = "Record "+($count+1)+" of "+Ubound($TE)
EndFunction

Function Increase()
$count = $count+1
Update()
EndFunction

Function Decrease()
$count = $count-1
update()
EndFunction

Function Cancel()
Quit(1)
EndFunction