General information
Category:
Coding, syntax & commands
Well I know its kinda late and i couldnt wait so here it is if anyone wants to use it..
If you make any modifications to speed up or better it, let me know so i can incorperate them. ;)
*Returns .t. if the string contains any punctuation, .f. if it does not contain punctuation, 0 if its not a string.
*Note: does not test for the single quote character ex: '
FUNCTION ContainPunc
LPARAMETERS lcstring
IF TYPE('lcstring')<>'C'
RETURN 0
ELSE
FOR i = 1 TO LEN(lcstring)
lcCharToTest=SUBSTR(lcstring, i,1)
IF INLIST(lcCharToTest, '!','@','#','$','%','^','%','&','*','(',')','_','-','+','=','~','[',']','{','}','\','|',';',':')=.T. OR INLIST(lcCharToTest, '<','>','.','"',',','/','?')=.T.
RETURN .T.
ENDIF
ENDFOR
RETURN .F.
ENDIF
ENDFUNC
Take care...
Eric
Previous
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only