Sub Globals
'Declare the global variables here.
Dim pars(0)
End Sub
Sub App_Start
Form1.Show
End Sub
Sub Button1_Click
OpenDialog1.Filter = "CDS Files|*.txt"
If OpenDialog1.Show <> cCancel Then
OrigFileName=OpenDialog1.File
TextBox1.Text=OrigFileName
If TextBox2.Text="" Then
TextBox2.Text=StrInsert(OrigFileName,(StrLength(OrigFileName)-4)," [Resolved]")
TextBox2.Text=SubString(TextBox2.Text,0,(StrLength(TextBox2.Text)-3))&"csv"
End If
End If
End Sub
Sub Button2_Click
SaveDialog1.Filter = "CSV Files|*.csv"
If SaveDialog1.Show <> cCancel Then
TextBox2.Text=SaveDialog1.File
End If
End Sub
Sub Button3_Click
If TextBox1.Text="" OR TextBox2.Text="" Then
Return
End If
Label4.Text="Decoding..."
Label4.Visible=True
Label6.Text=""
Label6.Visible=True
DoEvents
Table1.LoadCSV(TextBox1.Text,Chr(9),False,True)
Msgbox(Table1.RowCount)
t=Now
FileOpen(IN,textbox1.Text,cRead)
FileOpen(OUT,textbox2.Text,cWrite)
line = FileRead(IN)
Do While line <> EOF
pars() = StrSplit(line,cTab)
Sub Globals
'Declare the global variables here.
Dim pars(0)
End Sub
Sub App_Start
Form1.Show
End Sub
Sub Button1_Click
OpenDialog1.Filter = "CDS Files|*.txt"
If OpenDialog1.Show <> cCancel Then
OrigFileName=OpenDialog1.File
TextBox1.Text=OrigFileName
If TextBox2.Text="" Then
TextBox2.Text=StrInsert(OrigFileName,(StrLength(OrigFileName)-4)," [Resolved]")
TextBox2.Text=SubString(TextBox2.Text,0,(StrLength(TextBox2.Text)-3))&"csv"
End If
End If
End Sub
Sub Button2_Click
SaveDialog1.Filter = "CSV Files|*.csv"
If SaveDialog1.Show <> cCancel Then
TextBox2.Text=SaveDialog1.File
End If
End Sub
Sub Button3_Click
If TextBox1.Text="" OR TextBox2.Text="" Then
Return
End If
Label4.Text="Decoding..."
Label4.Visible=True
Label6.Text=""
Label6.Visible=True
DoEvents
Table1.LoadCSV(TextBox1.Text,Chr(9),False,True)
Msgbox(Table1.RowCount)
t=Now
FileOpen(IN,textbox1.Text,cRead)
FileOpen(OUT,textbox2.Text,cWrite)
line = FileRead(IN)
Do While line <> EOF
pars() = StrSplit(line,cTab)
Select pars(4)
Case "RCK1SLT02DI0001 "
If pars(5)="OPEN " Then
pars(5)="Down"
Else
pars(5)="Up"
End If
pars(4)="SBN TR"
Case "RCK1SLT02DI0002 "
If pars(5)="OPEN " Then
pars(5)="Down"
Else
pars(5)="Up"
End If
pars(4)="SBM TR"
Case "RCK1SLT02DI0003 "
If pars(5)="OPEN " Then
pars(5)="Down"
Else
pars(5)="Up"
End If
pars(4)="(TEST) R"
Case "RCK1SLT02DI0004 "
If pars(5)="OPEN " Then
pars(5)="Down"
Else
pars(5)="Up"
End If
pars(4)="RECPR"
Case "RCK1SLT02DI0005 "
If pars(5)="OPEN " Then
pars(5)="Up"
Else
pars(5)="Down"
End If
pars(4)="(CON) SR"
Case "RCK1SLT02DI0006 "
If pars(5)="OPEN " Then
pars(5)="Down"
Else
pars(5)="Up"
End If
pars(4)="HJPR"
Case "RCK1SLT02DI0007 "
If pars(5)="OPEN " Then
pars(5)="Down"
Else
pars(5)="Up"
End If
pars(4)="(UP) KR"
Case Else
pars(4)=pars(4)&" <Unknown Operand>"
End Select
lineout = pars(0) & "," & pars(1) & "," & pars(2) & "," & pars(3) & "," & pars(4) & "," & pars(5)
FileWrite(OUT,lineout)
line = FileRead(IN)
Loop
FileClose(IN)
FileClose(OUT)
Label4.Text="Done"
Msgbox("Done in "&Format((Now-t)/10000000,"F2")&" seconds.","Decode",cMsgboxOK,cMsgboxExclamation)
TextBox1.Text=""
TextBox2.Text=""
Label4.Visible=False
Label6.Visible=False
End Sub