Type TValidDateID(ValidDate As String, ValidID As Int) ' Is in Class_Globals
' FileLineParms is a List containing the following values <some text string>, 0x00114000, 0x00000102, 0x00000104, 0x00000108, 0x01000000
For j = 1 To FileLineParms.Length-1
If FileLineParms(j).StartsWith("0x") Then
Dim ValidDateID As TValidDateID
ValidDateID.Initialize
ValidDateID.ValidDate = UseDate
ValidDateID.ValidID = Bit.ParseInt(FileLineParms(j).Trim.SubString(2), 16)
#if Debug
Log("Hex ID:" &FileLineParms(j) &" ValidID:" &ValidDateID.ValidID)
#End If
.... ' More code no need to show for example
end if
next