split af kommasepareret streng

Ved at bruge et andet tegt end , at dele/splite på eksvis ;

"000000002";"Vare 1, med sovs";25.5;"STK";10;"223111"

Det bliver lidt svært, da der er over 20.000 records i .txt filen! :-)

Jeg går ud fra, at mit udtræk stammer fra et databasesystem.

Ok, så må man lave noget kode som kan det.
Er det altid et tal som kommer efter navnet "vare 1",TAL ?

Og hvad indeholder filen helt præsis er teksten med " eller uden
"000000001","Vare 1",30.1,"STK",01,"443222"

000000001,Vare 1,30.1,STK,01,443222

Ja, der er altid tal, der kommer efter navnet/feltet "vare 1"!

Det er som om, at alle streng felter har en " udenom og
talene står alene.

eks.

"000000001","Vare 1",31.1,"STK",01,"443222"
"000000002","Vare 2",23.1,"STK",01,"443222"
"000000003","Vare 3",34.1,"STK",01,"443222"
"000000004","Vare 4",330.1,"STK",01,"443222"
"000000005","Vare 5, med sovs",33.1,"STK",01,"443222"

Jeg går til ro nu, men håber der er svar i morgen :-)

Her er en Split-funktion, der udskifter alle kommaer inden for " og " med et møllehjul (¤), før den splitter som normalt ved komma. Dvs. at "Vare 1, med sovs" bliver til "Vare 1¤ med sovs":

Function SplitStr(str)
  Dim re, strTmp
  Set re = New RegExp
  re.Pattern = "(""[\w\d\s]+),([\w\d\s]+"")"
  re.Global = true
  strTmp = re.Replace(str, "$1¤$2")
  SplitStr = Split(strTmp,",")
End Function


Den bruges sådan her:

' her er en streng til at teste med
testStr = """000000001"",""Vare 1"",30.1,""STK"",01,""443222"",""000000002"",""Vare 1, med sovs"",25.5,""STK"",10,""223111"""

'den splittes med den nye funktion
arrTmp = SplitStr(testStr)

' hvert element i arrayet udskrives - men først udskiftes møllehjul igen med komma
For Each Item In arrTmp
  Response.Write Replace(Item,"¤",",") & "<br>"
Next

Det er stort!

Tak for hjælpen.

Selv tak :)