http://dieseyer.de • all rights reserved • © 2011 v11.4

'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


http://dieseyer.de • all rights reserved • © 2011 v11.4