You can divide a string into single characters with
Mid(myString, x, y)
The substring, which starts at x and ends at y is extracted.
This might be interesting for you too: right(myString, x, y), left(myString, x, y)
Just type in a string and click the button.
The label at the bottom will show the first and the last character.
STATIC PUBLIC SUB Main()
hForm AS Fmain
hForm = NEW Fmain
hForm.show
END
PUBLIC SUB _new()
TextLabel2.Text = "See the first and last character of your INPUT!"
END
PUBLIC SUB Button1_Click()
inword AS String
outword AS String
inword = TextBox1.Text
outword = Mid(inword, 1, 1)
outword = outword & Mid(inword, Len(inword), 1)
'Len(myString) returns the length of a string
TextLabel1.Text = outword
END
Download
Referenced by :