parsing text 1

[Perilous1]

If I have a string that looks like:

Phoenician,EP/S,,Phoenix,,,8/27/2009

What would be the simplest method to isolate out the relevant data between the commas that separate them?

 

[SkipVought]

Hi,

dim a, s as string, i as integer
s = "Phoenician,EP/S,,Phoenix,,,8/27/2009"
a = split(s, ",")

for i = 0 to ubound(a)
  msgbox a(i)
Next

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[Perilous1]

That sort of works. The problem is that one blank Msgbox pops up accounting for the second comma in the double comma and two pop up accounting for the second & third comma in the triple comma.

I can still work with this by ignoring any strings of (If a(i) = "") but it's not quite as neat.

Worthy of a Star though. Thanks!

 

[guitarzan]

dim a, s as string, i as integer
s = "Phoenician,EP/S,,Phoenix,,,8/27/2009"
[COLOR=blue]Do While InStr(s, ",,") > 0
   s = Replace(s, ",,", ",")
Loop[/color]

a = split(s, ",")

for i = 0 to ubound(a)
  msgbox a(i)
Next

;-)

 

[SkipVought]

Quite often, when parsing, 'empty' positions are significant. You didn't ask. But thanx anyhow.

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}