【VB】分割字串成字元(mid+for迴圈)

其實這篇文章要講的分割字串成字元很簡單,但他卻在做很多ACM的題目時需要用到,例如排列組合就必須要先把字串分割成字元再行運算,還有像凱撒加密法也是同樣的需要用到他,以下就以VB.Net來做示範,至於其他程式語言也可以做到,原理都相同

在VB中有一個函式叫做mid,功能是指定位置及長度來取字串,例如mid(“abcde”,1,1),這樣子就會得到a這個字

mid函式介紹

mid(要分割的字串,起始值,長度)

要分割的字串不需要我多講,就是要被分割的那串字或變數

而起始值就是說你要從第幾個字開始分割,需注意不能為0

長度則是指要切割的長度

範例：

dim x as string
x="linroex"
msgbox(mid(x,1,3))

這段範例就是說要把x這個變數中包含的資料,從第一個字開始剪三個字下來

透過mid這個函式在搭配迴圈就可以做到將字串分割成字元的功能了

字串分割成字元(VB)：

Dim xin As String = TextBox1.Text
Dim xout() As String
ReDim xout(Len(xin))
For x = 1 To Len(xin)
    xout(x - 1) = Mid(xin, x, 1)
    ListBox1.Items.Add(xout(x - 1))
Next

專案檔(VS2010)：Xun6 ｜4Shared ｜Box.net