ผมจะเขียนโปรแกรมตัวนึงครับแล้วทีนี้ผมจะให้มันรันตามจำนวนบรรทัดใน Textbox และวนไปทุกบรรทัดตาม loop
แต่ผมทำได้แค่ทำให้มันวน loop ตามจำนวนบรรทัด แต่ดันไปซ้ำครั้งที่บรรทัดแรก
อยากถามว่าจะให้มันเริ่ม loop ไปบรรทัดใหม่ทำอย่างไรหรอครับ
ตัวอย่างครับ
Dim str As String
Dim strArr() As String
Dim count As Integer
str = TextBox1.Text
strArr = str.Split(",")
For count = 0 To TextBox1.Lines.Count
strArr = str.Split(",")
Dim part1 As String = strArr(0)
Dim part2 As String = strArr(1)
Dim part3 As String = strArr(2)
Dim part4 As String = strArr(3)
MessageBox.Show(part1)
MessageBox.Show(part2)
MessageBox.Show(part3)
MessageBox.Show(part4)
Next
ขอบคุณมากครับ :-[ :wanwan017:
ลองดูครับ..
Dim strArr() As String
Dim count As Integer
For count = 0 To TextBox1.Lines.Count - 1
strArr = TextBox1.Lines(count).Split(",")
Dim part1 As String = strArr(0)
Dim part2 As String = strArr(1)
Dim part3 As String = strArr(2)
Dim part4 As String = strArr(3)
MessageBox.Show(part1)
MessageBox.Show(part2)
MessageBox.Show(part3)
MessageBox.Show(part4)
Next
อ้างถึงจาก: pgzz ใน 07 กุมภาพันธ์ 2014, 01:03:38
ลองดูครับ..
Dim strArr() As String
Dim count As Integer
For count = 0 To TextBox1.Lines.Count - 1
strArr = TextBox1.Lines(count).Split(",")
Dim part1 As String = strArr(0)
Dim part2 As String = strArr(1)
Dim part3 As String = strArr(2)
Dim part4 As String = strArr(3)
MessageBox.Show(part1)
MessageBox.Show(part2)
MessageBox.Show(part3)
MessageBox.Show(part4)
Next
โอ้ว ได้เลยครับ ขอบตุณมากครับ :'(
เข้ามาเก็บข้อมูลด้วย ขอบคุณครับ