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

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)

		จำสถานะนี้ไว้ในครั้งหน้า	ลืมรหัสผ่าน
รหัสผ่าน			ลงทะเบียน