Hello,
I've got some data in an txt-file like this.
ID=210
Version=1.5
Pretrigger=0
Posttrigger=9
SampleRate=1e+04
...
DataType=Text
DataStart=68
+5,5934e-01 +3,7008e-01 +1,4520e-05 +5,8064e-06
+5,5935e-01 +3,7009e-01 +1,0854e-04 +5,1823e-05
+5,5937e-01 +3,7010e-01 +3,9940e-04 +2,2776e-04
+5,5939e-01 +3,7010e-01 +9,8879e-04 +6,5642e-04
Well, the 4 rows with the measurement-data starts in line 53. Theres no problem using the assistant to read in the 4 rows to channels. With the config-file I can save my setting. So I decided to create an plugin with the plugin-assistant, which appears before importing the data.
But it doesn't work. I can't open the same file with the generated plugin. I guess theres no comment in the vbs-script to begin at line 53. But when I skip the first lines by File.SkipLines(NumberToSkip) it doesn't help.
Can anyone help me: Heres the generated code from the plugin.
Thanks
Gabriel
Option Explicit
Sub ReadStore(File)
' Set the file format
File.Formatter.TrimCharacters = " "
File.Formatter.Delimiters = vbTab
File.Formatter.TimeFormat = "MM/DD/YYYY hh:mm:ss"
File.Formatter.LineFeeds = vbNewLine
File.Formatter.CommentSign = "#"
File.Formatter.CharacterFormat = eANSI
File.Formatter.IgnoreEmptyLines = TRUE
File.Formatter.ExponentSeparator = "e"
File.Formatter.DecimalPoint = ","
File.SkipLines(1)
Dim ChnNum : ChnNum = GuessChnCount(File)
Dim ChnType : ChnType = GetChnType(ChnNum)
If IsArray(ChnType) Then ReDim Preserve ChnType(ChnNum)
' Define the channel group
Dim ChnGroup : Set ChnGroup = Root.ChannelGroups.Add(File.Info.FileName)
' Define the block
Dim Blk : Set Blk = File.GetStringBlock()
' Here create the channels
Dim Chn
Dim Index
For Index=0 To ChnNum-1
If ChnType(Index) <> "Ignore" Then
If ChnType(Index) = eNoType Then
Set Chn = Blk.Channels.Add("Chn", eString)
Else
Set Chn = Blk.Channels.Add("Chn", ChnType(Index))
End If
Call ChnGroup.Channels.AddDirectAccessChannel(Chn)
End If
Next
End Sub
'---------------------------------------------------------------------
' Function to get a single line of attributes.
'---------------------------------------------------------------------
Function GetInfoFromFile(oFile, iSkips, eDataType, bGetWholeLine)
Dim Value(), Temp
Dim Index
GetInfoFromFile = NULL
Index = -1
If ( bGetWholeline ) Then
oFile.SkipLines(iSkips-1)
GetInfoFromFile = oFile.GetNextLine
Else
oFile.SkipLines(iSkips-1)
Do
Temp = oFile.GetNextStringValue(eDataType)
If ( IsEmpty(Temp) ) Then Exit Do
If ( Temp <> "" ) Then
Index = Index + 1
ReDim Preserve Value(Index+1)
Value(Index) = Temp
End If
Loop
GetInfoFromFile = Value
oFile.SkipLine()
End If
End Function
'---------------------------------------------------------------------
' Function to calculate the number of channel in the file. The current file
' pointer is positioned to point on the first line of the channel data.
'---------------------------------------------------------------------
Function GuessChnCount(File)
Dim CurrPos, K, nColumns, Tokens
GuessChnCount = 0
CurrPos = File.Position
' count columns in the next few lines
For K=1 To 10
' use ParseTokens to count columns
Tokens = ParseTokens(File, eString)
If ( IsArray(Tokens) ) Then
nColumns = uBound(Tokens)
Else
nColumns = 0
End If
' use maximum number of columns
If ( GuessChnCount < nColumns ) Then GuessChnCount = nColumns
If ( File.Position >= File.Size ) Then
Exit For
End If
Next
' restore file pointer
File.Position = CurrPos
End Function
'---------------------------------------------------------------------
' Function to parse a single line of attributes
'---------------------------------------------------------------------
Function ParseTokens(File, eDatatype)
Dim Token(), nToks, CurrToken, Index
ReDim Token(0)
ParseTokens = NULL
Index = -1
Do
CurrToken = File.GetNextStringvalue(eDatatype)
If ( IsEmpty(CurrToken) ) Then Exit Do
If ( CurrToken <> "" ) Then
Index = Index + 1
ReDim Preserve Token(Index+1)
Token(Index) = CurrToken
End If
Loop
File.SkipLine()
ParseTokens = Token
End Function
'---------------------------------------------------------------------
' Function to get the channel type from STP file
'---------------------------------------------------------------------
Function GetChnType(ChnNum)
Dim ChnType(), K
ReDim ChnType(ChnNum)
For K=0 To ChnNum-1
ChnType(K) = eR64 ' initialize with default type
Next
ChnType(0) = eR64
ChnType(1) = eR64
ChnType(2) = eR64
GetChnType = ChnType
End Function
