[VB6] การตัดค่า NULL ซึ่งมีค่า ASCII Code เท่ากับ 0 ทิ้งออกไป

thongkorn

Null Value มักเป็นค่าไม่พึงประสงค์เท่าไหร่นัก ส่วนใหญ่จะหลงโผล่มาจากการอ่านค่า Serial Number ของอุปกรณ์ทางด้านฮาร์ดแวร์ ซึ่งค่า Null ไม่ใช่ค่าช่องว่าง หรือ Space นะครับ มันเป็นคนละตัวกัน เพราะ Null จะมีค่า ASCII Code = 0 ส่วน Space จะมีค่า ASCII Code = 32 (ฐาน 10)

1. Private Sub Form_Load()
   
2.     MsgBox TrimNull("ABCD" & Chr$(0) & Chr$(0) & Chr$(0))
   
3. End Sub
   
4. 
   
5. Public Function TrimNull(StringCheck As String) As String
   
6.    
   
7.     Dim strNull As String
   
8.     Dim nPos As Integer
   
9.    
   
10.     '// ใช้คำสั่ง (หรือฟังค์ชั่น) InStr เพื่อค้นหาค่า Null ตัวแรก ...กรณีนี้เจอค่า Null ในตำแหน่งที่ 5 ... ดังนั้น nPos = 5
    
11.     nPos = InStr(StringCheck, Chr$(0))
    
12.    
    
13.     Select Case nPos
    
14.         '// Is ก็คือ nPos นั่นแหละครับ ... เคยใช้กันบ้างหรือเปล่า 55555+
    
15.         Case Is > 1
    
16.             '// ให้นับค่า String ที่ส่งมายังฟังค์ชั่น จากซ้ายไปตามจำนวนของ nPos แล้วลบออกด้วย 1 ก็จะได้คำตอบ คือ ตัดค่า Null ทิ้งไปทั้งหมด
    
17.             strNull = Left(StringCheck, nPos - 1)
    
18.         Case 1
    
19.             strNull = ""
    
20.         Case Else
    
21.             strNull = StringCheck
    
22.     End Select
    
23.    
    
24.     '// ส่งค่าคืนกลับผ่านฟังค์ชั่น
    
25.     TrimNull = strNull
    
26. End Function

คัดลอกไปที่คลิปบอร์ด