逐個拆分字符串

代碼

 Dim strValue As String = "0123"
 For i As Integer = 0 To strValue.Length - 1
            Dim strV As String = strValue.Substring(i, 1)
            'Public Function Substring(ByVal start_Index As Integer, ByVal sub_length As Integer) As String
            '參數說明：start_Index 拆分的起始位置 sub_length  拆分的長度 如果是逐個拆分，則設置爲1 
 Next

輸出結果爲：0 1 2 3