Contact me for multiple IP extract
Code: Select all
// extract first single IP address from text
// bpd2000
Function Main
LOCAL cRegEx :="[0-9]+\.[0-9]+\.[0-9]+\.[0-9]+"
LOCAL cText := "Kindly note my IP Address: 192.168.1.1 "
LOCAL nStart, nLen
LOCAL cIP := HB_AtX( cRegEx, cText, .F., @nStart, @nLen )
MSGINFO( cText,"Sample String" )
MSGINFO( cIP, "Extracted IP is" + space(10) )
RETURN