This is bit more generalised
string ls_pattern,ls_temp
integer li_count
ls_str = sle_1.Text
ls_pattern = 'XX.XX.XXX.XXX'
ls_temp = ls_str
For li_count = 1 To len(ls_str)
If IsNumber(Mid(ls_temp,li_co
ls_temp = Replace(ls_temp,li_count,1
End If
Next
If len(ls_temp) < len(ls_pattern) Then
ls_temp = ls_temp + '.'
End If
If Pos(ls_pattern,ls_temp,1) > 0 AND isnumber(ls_str) Then
messagebox('','match')
else
messagebox('','no match')
end if
Main Topics
Browse All Topics





by: sandeep_patelPosted on 2009-05-27 at 20:17:37ID: 24489505
Try this... not sure if any generalised approach is possible
") .[0-9][0-9 ]$") .[0-9][0-9 ]\.[0-9][0 -9][0-9]$" ) .[0-9][0-9 ]\.[0-9][0 -9][0-9]\. [0-9][0-9] [0-9]$")
string ls_str
boolean lb_result
ls_str = sle_1.Text
Choose Case 1=1
Case match(ls_str,"^[0-9][0-9]$
Messagebox('1','true')
Return
Case match(ls_str,"^[0-9][0-9]\
Messagebox('2','true')
Return
Case match(ls_str,"^[0-9][0-9]\
Messagebox('3','true')
Return
Case match(ls_str,"^[0-9][0-9]\
Messagebox('4','true')
Return
End Choose
Messagebox('5','false')
Regards,
Sandeep