Sub GetData
DimTableSepAsString' : TableSep = "!T&B%L!" 'SPECIAL CHARACTERS DO NOT USE! \ ^ ${ } [ ] ( ) . + ? | - &
DimRecordSepAsString' : RecordSep = "!R&E%C!" ' \ is the escape char and the char after it is the literal
DimFieldSepAsString' : FieldSep = "!F&L%D!"
TableSep =Chr(153) & Chr(167) ' ™§
RecordSep =Chr(217) & Chr(233) ' Ùé
FieldSep =Chr(174) & Chr(203) '®Ë
Dim Tbls() As String, Rec() As String, fld() As String, RecX As Int, TblX As Long, Ftxt As String ', FldX As Long, Test As Long
Dim TR As TextReader, In As InputStream
Try
In = File.OpenInput(File.DirInternal, "PartsAndTime")
TR.Initialize2(In, "ISO-8859-1")
Ftxt = TR.ReadAll
In.Close
If Main.SQL1.IsInitialized = False Then Main.SQL1.Initialize(File.DirInternal, "PartsAndTime.db", False)
Main.SQL1.ExecNonQuery("DELETE FROM EmpInfoLookups;")
Main.SQL1.ExecNonQuery("DELETE FROM ReleaseLookups;")
Main.SQL1.ExecNonQuery("DELETE FROM OPsLookups;")
Main.SQL1.ExecNonQuery("DELETE FROM JobsLookups;")
Main.SQL1.ExecNonQuery("DELETE FROM ScheduledStuff;")
Main.SQL1.BeginTransaction
Tbls=Regex.Split(TableSep, Ftxt)
TblX=0
Rec=Regex.Split(RecordSep,Tbls(TblX))
For RecX = 0 To Rec.Length - 1
fld=Regex.Split(FieldSep,Rec(RecX))
Main.SQL1.ExecNonQuery2("INSERT INTO EmpInfoLookups VALUES(?, ?, ?, ?, ?)", Array As Object(fld(0), fld(1), fld(2), fld(3), fld(4) ) )
Next
TblX=1
Rec=Regex.Split(RecordSep,Tbls(TblX))
For RecX = 0 To Rec.Length - 1
fld=Regex.Split(FieldSep,Rec(RecX))
Main.SQL1.ExecNonQuery2("INSERT INTO ReleaseLookups VALUES(?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)", Array As Object(fld(0), fld(1), fld(2), fld(3), fld(4), fld(5), fld(6), fld(7), fld(8), fld(9), fld(10) ) )
Next
TblX=2
Rec=Regex.Split(RecordSep,Tbls(TblX))
For RecX = 0 To Rec.Length - 1
fld=Regex.Split(FieldSep,Rec(RecX))
Main.SQL1.ExecNonQuery2("INSERT INTO OPsLookups VALUES(?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)", Array As Object(fld(0), fld(1), fld(2), fld(3), fld(4), fld(5), fld(6), fld(7), fld(8), fld(9), fld(10), fld(11), fld(12) ) )
Next
TblX=3
Rec=Regex.Split(RecordSep,Tbls(TblX))
For RecX = 0 To Rec.Length - 1
fld=Regex.Split(FieldSep,Rec(RecX))
Main.SQL1.ExecNonQuery2("INSERT INTO JobsLookups VALUES(?, ?, ?)", Array As Object(fld(0), fld(1), fld(2) ) )
Next
TblX=4
Rec=Regex.Split(RecordSep,Tbls(TblX))
For RecX = 0 To Rec.Length - 1
fld=Regex.Split(FieldSep,Rec(RecX))
Main.SQL1.ExecNonQuery2("INSERT INTO ScheduledStuff VALUES(?, ?)", Array As Object(fld(0), fld(1) ) )
Next
Main.SQL1.TransactionSuccessful
Main.SQL1.EndTransaction
ToastMessageShow("Local Data Updated", False)
' UpdateActiveJobsData.LastDataUpdate = DateTime.Now
' UpdateActiveJobsData.WORKING = False
Catch
' UpdateActiveJobsData.WORKING = False
ToastMessageShow("Your Data was downloaded but there was an error updating the database!" & CRLF & LastException.Message, "")
End Try
End Sub
