'หลายคนอยากให้มีสองฟังก์ชั่นนี้ใน VB.NET จัดไปครับ บล็อกนี้ผมอาศัยว่าเอามาเก็บไว้เผื่อผมลืมเหมือนกัน
Public Function StrReplace(ByVal FullString As String, ByVal SearchString As String, ByVal ReplaceString As String) As String
StrReplace = FullString.Replace(SearchString, ReplaceString)
Return (StrReplace)
End Function
Function InArray(ByVal Item_To_Check, ByVal Array_To_Check)
Dim i
For i = 0 To UBound(Array_To_Check) Step 1
If LCase(Array_To_Check(i)) = LCase(Item_To_Check) Then
InArray = True
Exit Function
End If
Next
InArray = False
End Function
ไม่มีความคิดเห็น:
แสดงความคิดเห็น