การตัดคำ VB.NET SQL รบกวนขอโค้ดที่ช่วยในการตัดคำแบบนับตัวอักษรของ text file หน่อยครับ

ใช้งานไม่ได้เลยครับ เครื่องมันไม่มี Firefox & IE T^T

เอางี้ครับ

ขอโค้ดตอนบันทึก txt file และ ตัวอย่าง หน่อยครับ

เด๋วแกะ regex ให้

อันนี้โค้ด ปุ่มบันทึก ครับ
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
connect()

Dim num = DataGridView1.RowCount
num = num - 1
For i As Integer = 0 To num
Dim c1 = DataGridView1.Rows(i).Cells(0).Value
Dim c2 = DataGridView1.Rows(i).Cells(1).Value
Dim c3 = DataGridView1.Rows(i).Cells(2).Value
Dim c4 = DataGridView1.Rows(i).Cells(3).Value
Dim c5 As String = Date.Now.ToString("yyyyMMdd")
Dim c6 As String = Date.Now.ToString("hhmmss")
Dim c7 As String = Date.Now.ToString("yyyyMMdd")
Dim c8 As String = Date.Now.ToString("hhmmss")
sql = String.Format("SELECT COUNT(*) AS QTY FROM Import WHERE (Country = '" & c1 & "') AND ([First Date] = '" & c2 & "') AND ([Final Date] = '" & c3 & "')")
Dim _QTY As Integer
Using cn As New SqlConnection("connectionstring")
Using com As New SqlCommand(sql, cn)
cmd = New SqlCommand(sql, cn)
cn.Open()
_QTY = Convert.ToInt32(cmd.ExecuteScalar())
End Using
End Using
If _QTY <> 0 Then

sql = String.Format("Update Import SET Country ='" & c1 & "', [First Date] ='" & c2 & "', [Final Date] ='" & c3 & "', [Exchange Rate] = '" & c4 & "', [Update Date] = '" & c7 & "',[Update Time] ='" & c8 & "'where (Country ='" & c1 & "') AND ([First Date] ='" & c2 & "') AND ([Final Date] = '" & c3 & "')")
Else
sql = String.Format("Insert into import values('{0}','{1}','{2}','{3}','{4}','{5}','{6}','{7}')",
c1, c2, c3, c4, c5, c6, c7, c8)
End If
cmd = New SqlCommand(sql, cn)
cmd.ExecuteNonQuery()

Next
' If cmd.ExecuteNonQuery() = 0 Then
'MsgBox("Please try again")
'Else
MsgBox("Saved successfully")
' End If
End Sub

ส่วน text file จะมีหลายบรรทัดซึ่งในแต่ละบรรทัดจะต้องแยกคำลงในคอลัมน์อ้ะครับ ต้องการอะไรอีกบอกนะครับ
เครื่องดื่มชูกำลัง กาแฟ เบียร์เย็นๆ ขอบคุณครับ

ขอโค้ดตอนบันทึกลงใน txt file และ ตัวอย่าง หน่อยครับ

ผม Download text file มาจากเว็ปไซต์ครับ
ตัวอย่างประมาณนี้
THA01072016070720160030.3010aaaaaaaaaaaaaaaaaaaa
CCA01072016070720160015.1234bbbbbbbbbbbbbbbbbbbb
AAD01072016070720161198.1094ccccccccccccccccccccccc

ไม่มี วรรค รึครับ

เอาแบบที่ใช้งานจริงๆอ่าครับว่ามันเป็นรูปแบบยังไง
รึไม่ก็ โค้ดตอนบันทึกลงใน txt file ครับ

ของพวกนี้จะบอกเราได้ว่าควรจะแยกออกเป็น column ยังไง

อ่อ จะแบ่งออกเป็น 4 คอลัมน์ น่ะครับ
คอลัมน์ที่ 1 = 3 (เรียงจากซ้ายไปขวา เริ่มตั้งแต่ตัวที่ 1 เลยครับ)
คอลัมน์ที่ 2 = 8
คอลัมน์ที่ 3 = 8
คอลัมน์ที่ 4 = 9
หลังจากนั้นไม่เอาเลยครับ

ถ้าแน่ใจว่าไม่มี วรรค หรือ อะไรแปลกๆก็ลองโค้ดนี้ดูครับ

Code (VB.NET)

    Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        DataGridView1.DataSource = GetDatatable("File txt 5555")

    End Sub

    Function GetDatatable(file As String) As DataTable
        Dim datagrid As New DataTable

        datagrid.Columns.Add("Country")
        datagrid.Columns.Add("First Date")
        datagrid.Columns.Add("Final Date")
        datagrid.Columns.Add("Exchange Rate")
        datagrid.Columns.Add("asdsd")
        Dim dr As DataRow
        For Each line As String In System.IO.File.ReadAllLines("File txt")
            dr = datagrid.NewRow()
            dr("Country") = line.Substring(1, 3) '3
            dr("First Date") = line.Substring(4, 12) '8
            dr("Final Date") = line.Substring(13, 20) '8
            dr("Exchange Rate") = line.Substring(21, 29) '9
            datagrid.Rows.Add(dr)
        Next

        Return datagrid
    End Function
End Class


ลองปรับแก้ซักหน่อยก็น่าจะได้แล้วครับ พอดีผมไม่ค่อยได้เขียน vb ส่วนใหญ่จะ C# มากกว่า

ขอบคุณครับ ได้แล้ววววว