7,763
社区成员
发帖
与我相关
我的任务
分享验证数据合法性算法，帮帮我。
参数：data 是这样的一个字符串，data="1=t,2=f,3=f,3536=t,23=f"
等号前面是数字，等号后面是t或者f字符。
返回值:合法返回true,不合法返回false。
function validate(byval data as string ) as boolean
end function
等号前面是数字，等号后面是t或者f字符。
返回值:合法返回true,不合法返回false。
function validate(byval data as string ) as boolean
end function
...全文
请发表友善的回复…
发表回复
northwolves 2004-01-14
- 打赏
- 举报
Private Sub Form_Load()
Dim data As String
data = "1=t,2=f,3=f,3536=t,23=f"
MsgBox validate(data)
End Sub
Function validate(ByVal data As String) As Boolean
validate = True
Dim temp, i As Integer
temp = Split(data, ",")
For i = 0 To UBound(temp)
If Not IsNumeric(Split(temp(i), "=")(0)) Or Not InStr("tf", Split(temp(i), "=")(1)) > 0 Then validate = False: Exit For
Next
End Function
Dim data As String
data = "1=t,2=f,3=f,3536=t,23=f"
MsgBox validate(data)
End Sub
Function validate(ByVal data As String) As Boolean
validate = True
Dim temp, i As Integer
temp = Split(data, ",")
For i = 0 To UBound(temp)
If Not IsNumeric(Split(temp(i), "=")(0)) Or Not InStr("tf", Split(temp(i), "=")(1)) > 0 Then validate = False: Exit For
Next
End Function
