[FONT=courier new]xLine& = 0: [COLOR=#222222]xRow& = 0: [/COLOR][COLOR=#222222]xTmp$ = [/COLOR]""
While fo.EOF = False
xTmp$ = " " & trim$(xTmp$ & fo.LineInputString) & " "
[LEFT][COLOR=#222222] xLine& = [/COLOR][COLOR=#222222]xLine& + 1 ' ZeilenNr der gio-Datei erhöhen[/COLOR][/LEFT]
if ([COLOR=#222222]xLine& mod 6) = 0 then
[/COLOR][LEFT][COLOR=#222222][LEFT][COLOR=#222222] splitdata = Split(trim$(xTmp$), delimiter)[/COLOR][/LEFT]
SmartTags("Pos1Coil") = HiField(xRow&, 0)
SmartTags("Pos1Anzahl") = HiField(xRow&, 1)
SmartTags("Pos1LängeA") = HiField(xRow&, 2)
SmartTags("Pos1StrahlungA") = HiField(xRow&, 3)
SmartTags("Pos1LochA") = HiField(xRow&, 4)
SmartTags("Pos1LängeB") = HiField(xRow&, 5)
SmartTags("Pos1StrahlungB") = HiField(xRow&, 6)
SmartTags("Pos1LochB") = HiField(xRow&, 7)
SmartTags("Pos1Typ") = HiField(xRow&, 8)
SmartTags("Pos1Falzung") = HiField(xRow&, 9)
xRow& = xRow& + 1 ' ZeilenNr des HiField erhöhen
xTmp$ = ""
endif
[/COLOR][/LEFT]
Wend
[/FONT]