Hello
Today, I need to import data from a mixed binary/text file. Structure is
Ch1 Byte1 Ch1 Byte2 Ch2 Byte1 Ch2 Byte2 CrLf
Ch1 Byte1 Ch1 Byte2 Ch2 Byte1 Ch2 Byte2 CrLf
Ch1 Byte1 Ch1 Byte2 Ch2 Byte1 Ch2 Byte2 CrLf
My first attempt was a modified DataPluginExample3.VBS
Sub ReadStore(File)
Dim Block : SetBlock = File.GetBinaryBlock()
Dim Channel1 : Set Channel1 = Block.Channels.Add("Low-Timer",eU16)
Dim Channel2 : Set Channel2 = Block.Channels.Add("High-Timer", eU16)
Dim Channel3 : Set Channel3 = Block.Channels.Add("CrLf", eU16)
Dim ChannelGroup : Set ChannelGroup = Root.Channelgroups.Add("ESR_Timing")
ChannelGroup.Channels.AddDirectAccessChannel(Channel1)
ChannelGroup.Channels.AddDirectAccessChannel(Channel2)
ChannelGroup.Channels.AddDirectAccessChannel(Channel3)
'Kanal 3 ist nur $OD$OA CrLf)
End Sub
Unfortunately, every odd sample, the data are corrupted and then become misaligned. And the beginning of datalogging may not start exactly at a new line.
So I'd like to use the CrLF to re-synch.
How can I mix the ASCII-readline approach with the binary data?
The following does not work: I try to tell the Formatter to use vbNewLine (=CrLf = $0d$0a) to separate lines and use direct access channels with U16 data type. But when using linefeed, apparently the import filter also expects delimiters instead of raw binary values.
Sub ReadStore(File)
File.Formatter.LineFeeds = vbNewLine
File.SkipLine()'Sicherstellen, dass unvollständige erste Zeile ignoriert wird
Dim Block : SetBlock = File.GetStringBlock()
Dim Channel1 : Set Channel1 = Block.Channels.Add("Low-Timer",eU16)
Dim Channel2 : Set Channel2 = Block.Channels.Add("High-Timer", eU16)
'Dim Channel3 : Set Channel3 = Block.Channels.Add("CrLf", eU16)
Dim ChannelGroup : Set ChannelGroup = Root.Channelgroups.Add("ESR_Timing")
ChannelGroup.Channels.AddDirectAccessChannel(Channel1)
ChannelGroup.Channels.AddDirectAccessChannel(Channel2)
End Sub
Thank you for your input.
Michael
