Is there a SPLIT( ) function? Can really use one.

[mvaughn]

In .Net there is the Split() function which returns a zero-based, one-dimensional array containing a specified number of substrings.
What is the xbasic equivalent? I can't find anything close.

[Allen Klimeck]

Re: Is there a SPLIT( ) function? Can really use one.

Regex_split()

[Stan Mathews]

Re: Is there a SPLIT( ) function? Can really use one.

You might be looking for

str = "tom,joe,bill"
str_crlf = strtran(str,",",crlf())
str_size  = line_count(str_crlf)
dim a(str_size) as C
a.initialize(str_crlf)
? a[1]
= "tom"
? a[2]
= "joe"
? a[3]
= "bill"

? a[4]
ERROR: Array index out-of-bounds [COLOR="#FF0000"]- expected[/COLOR]

[GGandhi]

Re: Is there a SPLIT( ) function? Can really use one.

FUNCTION split AS C (separator AS C, inputString AS C )
	dim occN as n
	occN = occurs(separator,inputString)+1
	dim splitArray[occN] as c
	for i = 1 to occN
		splitArray[i] = word(inputString,i,separator)
		msgbox("The value in array "+i,splitArray[i])
		next
END FUNCTION

usage: split(" ","little fox jumped over the fence")
another approach, something you can work and modify too.

[mvaughn]

Re: Is there a SPLIT( ) function? Can really use one.

Thanks Govindan!
I'll have to add that to my library.

[mvaughn]

Re: Is there a SPLIT( ) function? Can really use one.

Just wondering if there is a way to return the array in xbasic?

dim myArray[] as c = split(" ","little fox jumped over the fence")

That would be sweet

[Stan Mathews]

Re: Is there a SPLIT( ) function? Can really use one.

Change

dim splitArray[occN] as c
to
dim global splitArray[occN] as c

and the array will be available after the function executes.

[mvaughn]

Re: Is there a SPLIT( ) function? Can really use one.

When I initialize splitArray with occN, I get occN elements - 1

occN = 5
dim splitArray[occN] as c

I get:

splitArray[1]
splitArray[2]
splitArray[3]
splitArray[4]

Any thoughts?

[Stan Mathews]

Re: Is there a SPLIT( ) function? Can really use one.

Not here

occN = 5
dim splitArray[occN] as c
? splitArray
= [1] = ""
[2] = ""
[3] = ""
[4] = ""
[5] = ""

[mvaughn]

Re: Is there a SPLIT( ) function? Can really use one.

I figured it out.
If I hover over the variable I get the correct count (5).
Debugging pane shows 4.
Go figure.

[Al Buchholz]

Re: Is there a SPLIT( ) function? Can really use one.

I figured it out.
If I hover over the variable I get the correct count (5).
Debugging pane shows 4.
Go figure.

I didn't get the context from your original message.

Some times an image is better than retyping.. Can you show an image of that please?

If only we all presented everything perfectly..... may be in the next life.

[Stan Mathews]

Re: Is there a SPLIT( ) function? Can really use one.

Image 1.pngGood idea. Doesn't do that here.

[GGandhi]

Re: Is there a SPLIT( ) function? Can really use one.

mike here is a thought for you to consider, I have modified the code a little.

all functions are to give you a hand when you need and disappear when you don't need them, I would say just like a good mother-in-law should be, but I will on another day

FUNCTION split AS C (separator AS C, inputString AS C )
delete splitArray
delete occN
	dim global occN as n
	occN = occurs(separator,inputString)+1
	dim global splitArray[occN] as c
	for i = 1 to occN
		splitArray[i] = word(inputString,i,separator)
		next
END FUNCTION

in your scenario you have some string and you want to use it in your program this is what I suggest you consider because your program might involve multiple users accessing. delete the originals and start new and assign a new array with the splitArray.
like this.

dim separator as c = " "
dim inputString as c = "little fox jumps over the fence"
split(separator, inputString)
your_new_array.copy_from(splitArray,.t.)

and go on with your program.

with this you don't have to worry about hanging around global variables of different sizes.

if I took too much liberty, my apologies.

[mvaughn]

Re: Is there a SPLIT( ) function? Can really use one.

Here's my screen. You can see the difference better. screen.gif

[GGandhi]

Re: Is there a SPLIT( ) function? Can really use one.

just some observations.
>in web white spaces are same, can you not use " " instead of chr(9) as separator?
>the occN should be incremented by such as occN = occurs(separator, inputString)+1
>the window you are looking at below, can you raise it up and see if all the splitArray is there or use the scroll bar on the right to see if rest is hidden
please see the modified script above it delete the splitArray if there was one. you need not redim the splitArray, I do not know which is better.
you probably can work with e.dataSubmitted and break them easily than the split function. a little more research may be needed.