How to divide a string into single characters


dividechar.png
' Gambas class file

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)
  TextLabel1.Text = outword
END

-- JochenGeorges - 28 Dec 2004