Register Register Member Login Member Login Member Login Forgot Password ??
PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone
 

Registered : 107,291

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





 

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

 



Topic : 123727



โพสกระทู้ ( 47 )
บทความ ( 0 )



สถานะออฟไลน์




อันนี้ คือ โค้ดในการตัดคำเพื่อแยกเข้าไปใส่ในแต่ละคอลัมน์แบบที่ต้องเข้าไปกดเว้นวรรค ใน Text File เอง
อยากได้แบบที่ Import Text file เข้าไป แล้วตัดคำเลยน่ะครับ รบกวนผู้รู้หน่อยครับ ขอบคุณครับ

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
OpenFileDialog1.ShowDialog()
DataGridView1.AllowUserToAddRows = False
Try
Dim datagrid As New DataTable
Dim dr As DataRow
Dim show As Char

datagrid.Columns.Add("Country")
datagrid.Columns.Add("First Date")
datagrid.Columns.Add("Final Date")
datagrid.Columns.Add("Exchange Rate")
datagrid.Columns.Add("asdsd")
dr = datagrid.NewRow
Dim aqv As New System.IO.StreamReader(OpenFileDialog1.FileName)
While aqv.Peek() <> -1

show = " "
datagrid.Rows.Add(aqv.ReadLine().Split(show))
End While
datagrid.Columns.Remove("asdsd")
DataGridView1.DataSource = datagrid
Catch ex As Exception
MsgBox("Please try again")

End Try



Tag : .NET







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2016-07-07 09:16:29 By : chanainut View : 787 Reply : 11
 

 

No. 1



โพสกระทู้ ( 3,856 )
บทความ ( 22 )



สถานะออฟไลน์
Facebook

Text File นี่แนะนำให้ใช้ regex ในการแยกครับ

http://regexhero.net/tester/

ก๊อบข้อมูลมาลงในเว็บแล้วก็หารูปแบบ regex แล้วก็เอามาใช้แยกในโค๊ด






แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-07-07 09:53:25 By : lamaka.tor
 


 

No. 2



โพสกระทู้ ( 47 )
บทความ ( 0 )



สถานะออฟไลน์


ตอบความคิดเห็นที่ : 1 เขียนโดย : lamaka.tor เมื่อวันที่ 2016-07-07 09:53:25
รายละเอียดของการตอบ ::
ใช้งานไม่ได้เลยครับ เครื่องมันไม่มี Firefox & IE T^T


แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-07-07 11:28:28 By : chanainut
 

 

No. 3



โพสกระทู้ ( 3,856 )
บทความ ( 22 )



สถานะออฟไลน์
Facebook

ตอบความคิดเห็นที่ : 2 เขียนโดย : chanainut เมื่อวันที่ 2016-07-07 11:28:28
รายละเอียดของการตอบ ::
เอางี้ครับ

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

เด๋วแกะ regex ให้

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-07-07 11:34:13 By : lamaka.tor
 


 

No. 4



โพสกระทู้ ( 47 )
บทความ ( 0 )



สถานะออฟไลน์


ตอบความคิดเห็นที่ : 3 เขียนโดย : lamaka.tor เมื่อวันที่ 2016-07-07 11:34:13
รายละเอียดของการตอบ ::
อันนี้โค้ด ปุ่มบันทึก ครับ
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 จะมีหลายบรรทัดซึ่งในแต่ละบรรทัดจะต้องแยกคำลงในคอลัมน์อ้ะครับ ต้องการอะไรอีกบอกนะครับ
เครื่องดื่มชูกำลัง กาแฟ เบียร์เย็นๆ ขอบคุณครับ



ประวัติการแก้ไข
2016-07-07 11:50:59
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-07-07 11:42:37 By : chanainut
 


 

No. 5



โพสกระทู้ ( 3,856 )
บทความ ( 22 )



สถานะออฟไลน์
Facebook

ตอบความคิดเห็นที่ : 4 เขียนโดย : chanainut เมื่อวันที่ 2016-07-07 11:42:37
รายละเอียดของการตอบ ::
ขอโค้ดตอนบันทึกลงใน txt file และ ตัวอย่าง หน่อยครับ



แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-07-07 13:15:46 By : lamaka.tor
 


 

No. 6



โพสกระทู้ ( 47 )
บทความ ( 0 )



สถานะออฟไลน์


ตอบความคิดเห็นที่ : 5 เขียนโดย : lamaka.tor เมื่อวันที่ 2016-07-07 13:15:46
รายละเอียดของการตอบ ::
ผม Download text file มาจากเว็ปไซต์ครับ
ตัวอย่างประมาณนี้
THA01072016070720160030.3010aaaaaaaaaaaaaaaaaaaa
CCA01072016070720160015.1234bbbbbbbbbbbbbbbbbbbb
AAD01072016070720161198.1094ccccccccccccccccccccccc

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-07-07 14:09:16 By : chanainut
 


 

No. 7



โพสกระทู้ ( 3,856 )
บทความ ( 22 )



สถานะออฟไลน์
Facebook

ตอบความคิดเห็นที่ : 6 เขียนโดย : chanainut เมื่อวันที่ 2016-07-07 14:09:16
รายละเอียดของการตอบ ::

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

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

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

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-07-07 14:23:48 By : lamaka.tor
 


 

No. 8



โพสกระทู้ ( 47 )
บทความ ( 0 )



สถานะออฟไลน์


ตอบความคิดเห็นที่ : 7 เขียนโดย : lamaka.tor เมื่อวันที่ 2016-07-07 14:23:48
รายละเอียดของการตอบ ::
อ่อ จะแบ่งออกเป็น 4 คอลัมน์ น่ะครับ
คอลัมน์ที่ 1 = 3 (เรียงจากซ้ายไปขวา เริ่มตั้งแต่ตัวที่ 1 เลยครับ)
คอลัมน์ที่ 2 = 8
คอลัมน์ที่ 3 = 8
คอลัมน์ที่ 4 = 9
หลังจากนั้นไม่เอาเลยครับ

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-07-07 14:27:13 By : chanainut
 


 

No. 9



โพสกระทู้ ( 3,856 )
บทความ ( 22 )



สถานะออฟไลน์
Facebook

ตอบความคิดเห็นที่ : 8 เขียนโดย : chanainut เมื่อวันที่ 2016-07-07 14:27:13
รายละเอียดของการตอบ ::
ถ้าแน่ใจว่าไม่มี วรรค หรือ อะไรแปลกๆก็ลองโค้ดนี้ดูครับ

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# มากกว่า


แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-07-07 15:09:31 By : lamaka.tor
 


 

No. 10



โพสกระทู้ ( 47 )
บทความ ( 0 )



สถานะออฟไลน์


ตอบความคิดเห็นที่ : 9 เขียนโดย : lamaka.tor เมื่อวันที่ 2016-07-07 15:09:31
รายละเอียดของการตอบ ::
ขอบคุณครับ ได้แล้ววววว

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-07-07 17:15:58 By : chanainut
 


 

No. 11



โพสกระทู้ ( 3,856 )
บทความ ( 22 )



สถานะออฟไลน์
Facebook

จัดไปครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-07-07 17:20:26 By : lamaka.tor
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : การตัดคำ VB.NET SQL รบกวนขอโค้ดที่ช่วยในการตัดคำแบบนับตัวอักษรของ text file หน่อยครับ
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ FTP| ใส่แถวของตาราง ใส่คอลัมน์ตาราง| ตัวยก ตัวห้อย ตัวพิมพ์ดีด| ใส่โค้ด ใส่การอ้างถึงคำพูด| ใส่ลีสต์
smiley for :lol: smiley for :ken: smiley for :D smiley for :) smiley for ;) smiley for :eek: smiley for :geek: smiley for :roll: smiley for :erm: smiley for :cool: smiley for :blank: smiley for :idea: smiley for :ehh: smiley for :aargh: smiley for :evil:
Insert PHP Code
Insert ASP Code
Insert VB.NET Code Insert C#.NET Code Insert JavaScript Code Insert C#.NET Code
Insert Java Code
Insert Android Code
Insert Objective-C Code
Insert XML Code
Insert SQL Code
Insert Code
เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

   
  เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง
 
โดย
อีเมล์
บวกค่าให้ถูก
<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)







Exchange: Voake, Comcube, รับทำเว็บไซต์ รับเขียนโปรแกรม

Load balance : Server 01
ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2019 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
for Contact Us : [Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 , 08-9968-0655 อัตราราคา คลิกที่นี่