'v6.2*****************************************************
' File:   split-test.vbs
' Autor:  dieseyer@gmx.de 
'         dieseyer.de
'
' Wenn das Trennzeichen für die Split-Funktion das Komma 
' ist, in der zu zerlegenden Zeichenkette aber Dezimal-
' zahlen (also auch mit Komma, aber mit Anführungszeichen
' eingegrenzt) enthalten sind, kann man es so machen:
' 
'***************************************************************

Option Explicit ' Siehe http://dieseyer.de/dse-wsh-lernen.html#OptionExpl

Dim Txt, Tst, i

Txt = "01.12.05,Türkei_Ziel_Winter_05,Side_Winter,Colakli,Weitgehend,Aktiv,""0,17"",""0,60"",Standard-URL,16,0,""0,0%"",""0,00"",""0,00"",""2,0"""

MsgBox Txt , , "17:: " & WScript.ScriptName

Tst = Split( Txt, "," )

  For i = LBound( Tst ) to UBound( Tst )
    If InStr( Tst(i), """" ) > 0 AND i < UBound( Tst ) Then 
      Tst(i) = Tst(i) & "," & Tst(i+1) : Tst(i+1) = ""
      Tst(i) = Replace( Tst(i), """", "" )
    End If 
  Next

' For i = LBound( Tst ) to UBound( Tst )
'   Txt = Txt & vbCRLF & i & vbTab & Tst(i) 
' Next
' MsgBox Txt , , "35:: " & WScript.ScriptName

  For i = LBound( Tst ) to UBound( Tst )
    If Len( Tst(i) ) > 0 Then Txt = Txt & vbCRLF & i & vbTab & Tst(i) 
  Next

MsgBox Txt , , "38:: " & WScript.ScriptName