Regular Expression or Regex

Issues and Discussions related to Harbour

Moderator: Rathinagiri

Carlos Britos
Posts: 245
Joined: Sat Aug 02, 2008 5:03 pm

Re: Regular Expression or Regex

Post by Carlos Britos »

Hi
This is a simple tool to play with regular expressions related with harbour functions, I hope can help.
Show the return value of harbour functions while typing the regular expression.

Thee is a file with samples. You can find more samples in http://www.regexlib.com" onclick="window.open(this.href);return false;" onclick="window.open(this.href);return false;
Attachments
regextool.zip
simple regex tool
(883.77 KiB) Downloaded 311 times
Regards/Saludos, Carlos (bcd12a)
User avatar
hmgchang
Posts: 273
Joined: Tue Aug 13, 2013 4:46 am
Location: Indonesia

Re: Regular Expression or Regex

Post by hmgchang »

Thank you very much for the informations... :D
Just Hmg It !
User avatar
Rathinagiri
Posts: 5471
Joined: Tue Jul 29, 2008 6:30 pm
DBs Used: MariaDB, SQLite, SQLCipher and MySQL
Location: Sivakasi, India
Contact:

Re: Regular Expression or Regex

Post by Rathinagiri »

Thanks a lot. I think it will be very much useful in data validation.
East or West HMG is the Best.
South or North HMG is worth.
...the possibilities are endless.
User avatar
hmgchang
Posts: 273
Joined: Tue Aug 13, 2013 4:46 am
Location: Indonesia

Re: Regular Expression or Regex

Post by hmgchang »

I tried to capture all the function called from a prg from notepad++ using the regular expression :
\w*\s*\(.*\)
i got most of the functions but i also got :
- ( &cField) .... from the as part of cAlias->( &cField)
- CHR(32) + CHR(179) + CHR(32) .... from this line : #define COLSEP CHR(32) + CHR(179) + CHR(32)
- MSetcursor( .F.) ... from a commented line : * MSetcursor( .F.)
- DBUSEAREA( .T., "DbfNtx", "testn" ) ... from a commented line : // DBUSEAREA( .T., "DbfNtx", "testn" )
- addColumn( oColumn ) ... from an object method : b:addColumn( oColumn )
- IF ( b:hitTop .OR. b:hitBottom )
- IF(cGetClr == NIL, "I", cGetClr)
- (lFound := DBSEEK( xKey, lSoftSeek )) from : IF !(lFound := DBSEEK( xKey, lSoftSeek ))

what have i done wrong ? pls advice !

Thank you ! ;)
Just Hmg It !
Post Reply