ชุมชนคนรักภาษาเบสิค - Visual Basic Community

 ลืมรหัสผ่าน
 ลงทะเบียน
ค้นหา
ดู: 2474|ตอบกลับ: 3

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

[คัดลอกลิงก์]

1

กระทู้

2

โพสต์

23

เครดิต

Newbie

Rank: 1

เครดิต
23

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

308

กระทู้

498

โพสต์

5973

เครดิต

ผู้ดูแลระบบ

ทองก้อน ทับทิมกรอบ

Rank: 9Rank: 9Rank: 9

เครดิต
5973
โพสต์ 2020-5-24 12:41:08 | ดูโพสต์ทั้งหมด

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

Solve.png
สิ่งที่ดีกว่าการให้ คือการให้แบบไม่มีที่สิ้นสุด

1

กระทู้

2

โพสต์

23

เครดิต

Newbie

Rank: 1

เครดิต
23
 เจ้าของ| โพสต์ 2020-5-26 13:51:39 | ดูโพสต์ทั้งหมด

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

308

กระทู้

498

โพสต์

5973

เครดิต

ผู้ดูแลระบบ

ทองก้อน ทับทิมกรอบ

Rank: 9Rank: 9Rank: 9

เครดิต
5973
โพสต์ 2020-5-29 13:22:23 | ดูโพสต์ทั้งหมด

CRCITYCOM ตอบกลับเมื่อ 2020-5-26 13:51
อีกอันครับอ.ทองก้อน ขอโค้ด Vb6 อีกครั้ง ที่จะดึงข้อมูล ...

การดึงข้อมูล Excel มาแสดงผลลงตารางกริด ด้วยการใช้ ADO (ActiveX Data Object)
สิ่งที่ดีกว่าการให้ คือการให้แบบไม่มีที่สิ้นสุด
ขออภัย! คุณไม่ได้รับสิทธิ์ในการดำเนินการในส่วนนี้ กรุณาเลือกอย่างใดอย่างหนึ่ง ลงชื่อเข้าใช้ | ลงทะเบียน

รายละเอียดเครดิต

ข้อความล้วน|อุปกรณ์พกพา|ประวัติการแบน|G2GNet.com  

GMT+7, 2024-3-29 22:48 , Processed in 0.151590 second(s), 5 queries , File On.

Powered by Discuz! X3.4, Rev.62

Copyright © 2001-2020 Tencent Cloud.

ตอบกระทู้ ขึ้นไปด้านบน ไปที่หน้ารายการกระทู้