'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