กระดานข่าว VB › เว็บบอร์ดถามตอบปัญหา › ต้องการแยกข้อความในฟิลด์เดียวกัน ออกมาเป็นคนละฟิลด์

CRCITYCOM โพสต์ 2020-5-22 23:45:37

ต้องการแยกข้อความในฟิลด์เดียวกัน ออกมาเป็นคนละฟิลด์

มีข้อมูลในฟิลด์เดียวกัน เช่นเด็กชายสมปองส่องแสง ต้องการแยก คำนำหน้า ชื่อ นามสกุลเขียนโค้ดยังไงใน Vb6 ครับ
ขอบคุณครับ

thongkorn โพสต์ 2020-5-24 12:41:08

หากแพทเทิร์น หรือรูปแบบมาตามโจทย์ที่ตั้งไว้ ... Private Sub Form_Load()
    Dim s As String
    s = "เด็กชายสมปองส่องแสง"
    Dim iArr() As String
    '/ แยกข้อความออกจากกันด้วย 2 ช่องว่าง (Spacebar)
    iArr = Split(s, "")
    Dim i As Byte
    '/ ทดสอบว่าเจอคำว่า "เด็กชาย" หรือไม่ฦ
    i = InStr(iArr(0), "เด็กชาย")
    If i > 0 Then
      ' เด็กชาย มีความยาว 7 ตัวอักษร = Mid$(iArr(0), 1, 7) หรือจะใส่คำว่าเด็กชายเลยก็ได้
      ' ชื่อจะนับจากตัวที่ 8 ไปจนสิ้นสุดความยาว = Mid(iArr(0), 8, Len(iArr(0)))
      ' นามสกุล = iArr(1)
      MsgBox _
            "คำนำหน้า: " & Mid$(iArr(0), 1, 7) & vbCrLf & _
            "ชื่อ: " & Mid(iArr(0), 8, Len(iArr(0))) & vbCrLf & _
            "นามสกุล: " & Trim$(iArr(1))
    End If
    End
End Sub

CRCITYCOM โพสต์ 2020-5-26 13:51:39

อีกอันครับอ.ทองก้อน ขอโค้ด Vb6 อีกครั้ง ที่จะดึงข้อมูลจาก Ms exel ครับ ผมเคยโหลดมาครั้งหนึ่ง แต่เจอไวรัสกินเครื่องหายทุกอย่าง
ตอนนี้กลับมาหาโค้ดไม่เจอ เคยโหลดนานแล้ว ขอบคุณครับ

thongkorn โพสต์ 2020-5-29 13:22:23

CRCITYCOM ตอบกลับเมื่อ 2020-5-26 13:51
อีกอันครับอ.ทองก้อน ขอโค้ด Vb6 อีกครั้ง ที่จะดึงข้อมูล ...
การดึงข้อมูล Excel มาแสดงผลลงตารางกริด ด้วยการใช้ ADO (ActiveX Data Object)

ดูในรูปแบบกติ: ต้องการแยกข้อความในฟิลด์เดียวกัน ออกมาเป็นคนละฟิลด์