ขอแนวคิดการ ตัดข้อความครับ

[Xternity]

สวัสดีครับ

ผมมี textbox ที่ให้ user กรอกข้อมูลเป็น ประมาณนี้ ครับ
1,2,3,3,4,10,21
บางครั้ง user กรอกเข้ามาผิดเช่น
1,2,3,, (มีคอมม่าต่อท้าย) หรือ 1,,2,3,4 (มีคอมม่าเกินตรงกลาง)
ก็เลยต้องการจะตัดหรือปรับรูปแบบ ให้ถูกต้องก่อน เพื่อเอาไปใช้ต่อครับ

ตอนนี้ที่ผมคิดออก คือเช็คตัวท้ายสุดถ้าเป็น , ก็สามารถตัดได้ครับ
แต่ถ้าตรงกลาง หรืออาจจะมีรูปแบบอื่นๆอีก รบกวนขอไอเดีย หรือแนวคิดท่านอื่นๆ บ้างครับ

[Xternity]

ลองอ่านของเก่าๆ ดู ตอนนี้น่าจะได้แล้วครับ
ใช้เทคนิคตามกระทู้นี้
https://www.thai-access.com/yeadram_view.php?topic_id=2340

ก็คือ split , คอมม่าออกมาก่อน แล้วเข้า loop ไปเช็ค ถ้าเป็นตัวเลข ก็จับมาต่อ string กันไป
อาจจะอธิบายแล้ว งงๆ นะครับ

[TTT]

ใช้แบบโค้ดแบบนี้น่าจะพอได้นะครับ
ในเหตุการณ์ After Update ของ TextBox

โค๊ด: [Select]

    Dim iStr As String
    iStr = Replace(TextBox, ",,", ",")
    iStr = Replace(TextBox, ", ,", ",")
    If Right(iStr, 1) = "," Then
        iStr = Mid(iStr, 1, Len(iStr) - 1)
    End If
    TextBox = iStr