split function?

[subscripciones]

I want to obtain an array of text from a string separated for "/" character.

Ex.

def var text1 as character.
text1 = "/folder1/folder2/file.p".


DO v-i = 1 TO NUM-ENTRIES(??):
IF NOT Entry(v-i,text1) = '':U THEN DO:
DISPLAY Entry(v-i,text1) .
END.
END.

result:

folder1
folder2
file.p


thank

 

[jongpau]

You almost had it...

[FONT=Courier New]DO v-i = 1 TO NUM-ENTRIES(text1,"/":U):[/FONT]
[FONT=Courier New] IF NOT TRIM(Entry(v-i,text1,"/":U)) = '':U THEN DO: [/FONT]
[FONT=Courier New]   DISPLAY Entry(v-i,text1,"/":U) .[/FONT]
[FONT=Courier New] END.[/FONT]
[FONT=Courier New]END.[/FONT]

HTH

Paul