[Solved] Split a string into an array for each character

[Mr.Dandy]

Hello all,

This code don't work:

Code: Select all

Sub Main
	myWord = "FOOBAR"
	aWord = Split(myWord,"",Len(MyWord)-1)
	msgbox aWord(0)
End Sub

This returns entire string and not only "F"
if anyone can take a look

[Mr.Dandy]

Well, Mid do the job

But I don't know why Split instruction not?

[karolus]

```
YOURword = "FOOBAR"
print( YOURword[0] )
```
search.php?st=0&sk=t&sd=d&sr=posts&author_id=59382

[Zizi64]

But I don't know why Split instruction not?

Code: Select all

aWord = Split(myWord,"",Len(MyWord)-1)

I suppose that:
The separator character must be a real (non-empty) string.
Because there is not any separator character, therefore the word will not be splitted.

[floris v]

Code: Select all

aWord = Split(myWord,"",Len(MyWord)-1)

aWord needs to be an array, and it probably also needs to be dim'd. The default delimiter is " ", a space. See https://help.libreoffice.org/6.2/en-US/ ... 20314.html - Google couldn't find that page for OpenOffice.

[cwolan]

OpenOffice Help, the Split function:

Syntax:
Split (Text As String, delimiter, number)
[...]
delimiter (optional): A string of one or more characters length that is used to delimit the Text. The default is the space character.

The length of an empty string is 0.

Source code (AOO): RTLFUNC(Split)

[JeJe]

You can convert to a byte array by assignment

Code: Select all

dim b() as byte
myWord = "FOOBAR"
b= myWord
msgbox chr(b(0))
msgbox chr(b(2))

Edit:

Or

Code: Select all

dim b() as byte
myWord = "FOOBAR"
b= strconv( myWord,128) 'from unicode
msgbox chr(b(0))
msgbox chr(b(1))