字串內碼 2010 12 5
字串內碼 2010 12 5
stty0910 周一 12月 06, 2010 9:16 am
Dim in_str As String
Dim cut As String()
If TextBox1.TextLength > 0 Then
in_str = TextBox1.Text
TextBox2.Text = (" ")
cut = in_str.Split(" ")
For Each word_str As String In cut
TextBox2.Text &= word_str + vbNewLine
Next (word_str)
Else
MsgBox("無任何字無法分割", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "訊息錯誤")
End If
Dim cut As String()
If TextBox1.TextLength > 0 Then
in_str = TextBox1.Text
TextBox2.Text = (" ")
cut = in_str.Split(" ")
For Each word_str As String In cut
TextBox2.Text &= word_str + vbNewLine
Next (word_str)
Else
MsgBox("無任何字無法分割", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "訊息錯誤")
End If
stty0910- 終極管理員
- 文章數 : 68
注冊日期 : 2010-08-06
年齡 : 30
來自 : 地球某個角落 -
這個論壇的權限：
您 無法 在這個版面回復文章