01.Dim path As String = "C:\sms\smsspicy.txt"
02.
03.Dim Str As String
04.Dim StrRe As String
05.Dim ArrayText() As String
06.Dim StringCount As Integer
07.
08.
09.Str = "abc,def,ghi"
10.
11.StrRe = Str.Replace(",", "x")
12.
13.ArrayText = StrRe.Split("x")
14.
15.
16.For i As Integer = 0 To ArrayText.Length - 1
17.
18. Me.TextBox2.Text = ArrayText(i)
19.
20. TextBox1.Text = "อัพเดทข้อความ"
21. If String.IsNullOrEmpty(TextBox2.Text) Then
22. TextBox2.Text = "ขอบคุณที่ร่วมแสดงความคิดเห็น " + sms
23. ElseIf (substring = "...") Then
24. TextBox2.Text = "ขอบคุณที่ร่วมแสดงความคิดเห็น " + sms
25. End If
26.
27. Dim fs As FileStream = File.Create(path)
28.
29. Dim info As Byte() = New UTF8Encoding(True).GetBytes(TextBox2.Text)
30. fs.Write(info, 0, info.Length)
31. fs.Close()
32.Next i
