[+1 ทุกคนครับ] มีใครเคยเขียนฟังก์ชั่น loop line บ้างครับ [VB.NET]

เริ่มโดย DewChelsea, 06 กุมภาพันธ์ 2014, 20:43:57

หัวข้อก่อนหน้า - หัวข้อถัดไป

0 สมาชิก และ 1 ผู้มาเยือน กำลังดูหัวข้อนี้

DewChelsea

ผมจะเขียนโปรแกรมตัวนึงครับแล้วทีนี้ผมจะให้มันรันตามจำนวนบรรทัดใน 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:

pgzz

ลองดูครับ..


        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

DewChelsea

อ้างถึงจาก: 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


โอ้ว ได้เลยครับ ขอบตุณมากครับ  :'(