FotS

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
===Regular Expression Function===

The following is the [[https://en.wikipedia.org/wiki/Regular_expression|Regular Expression]] Match function lifted from user Rave's [[MMUNIX_UNIX_like_commands_cat_dir_grep_more|MMUNIX _ UNIX_like commands]] GREP routine. That in turn used Rob Pike's algorithm. It is reasonably fast and brings a powerful feature to MMBasic. It is not a full-blooded regexp function but catches the following  functionality:


   .     matches any single character
   [abc] matches a or b or c
   ?     matches zero or one of the previous character 
   *     matches zero or more of the previous character e.g. A* is any number of A's
   +     matches one or more of the previous character 
   ^     matches begin of text e.g. ^A means the string must start with A
   $     matches end of text e.g. A$ means the string must end with A
   \     Following character to be matched literally. e.g. \? matches ?, \\ matches \ etc.

I extracted the RegExp function so that it could be used as a general function to compare if a string "looks like"...

===Notes:===
  * It is case sensitive.
  * Not a complete set of expressions, but what there is will cover 90% of requirements
  * Recursive matching is not supported, e.g. ''[hc]?at'' matching "at", "hat", and "cat" will not work correctly.
  * RegExp returns a non-zero on a match (it might not be 1).

===Syntax:===
=RegExp(RegularExpressionString$,MyString$)

**Example:**  simple match for a string that "looks like" it ''might ''be a time. RegExp is used here to determine the "look and feel" of the tested string - the actual values remain to be checked. See [[IsDate_and_IsTime_functions_VB_Work_A_Like|IsTime]] for a complete solution.\\
''Print RegExp("^[012][0123456789]:[012345][0123456789]$","10:55")'' 

===Dependencies:===
None

<code>
	Function RegExp(regex$,text$) ' case sensitive
		Local Integer s,n,m,f
		n=Len(regex$):m=Len(text$)
		RegExp=0
		If Mid$(regex$,1,1)="^" Then
			MatchHere regex$,text$,2,1,n,m,f
			RegExp=f
		Else
			For s=1 To m
				MatchHere regex$,text$,1,s,n,m,f
				If f Then RegExp=s: Exit For
			Next
		EndIf
	End Function

	Sub MatchHere(regex$,text$,r As Integer,s As Integer,n As Integer,m As Integer,f As Integer)
		Local Integer i
		Do While r <= n
			If Mid$(regex$,r)="$" Then f=s>m: Exit Sub
			If Mid$(regex$,r,1)="[" Then
				i=Instr(r+2,regex$,"]")
				If i Then i=i+1 Else i=r+1
			ElseIf Mid$(regex$,r,1)="\" Then
				i=r+2
				Else
				i=r+1
			EndIf
			If Mid$(regex$,i,1)="*" Then
				MatchStar regex$,text$,r,i,s,n,m,f
				Exit Sub
			EndIf
			If Mid$(regex$,i,1)="?" Then
				MatchOptional regex$,text$,r,i,s,n,m,f
				Exit Sub
			EndIf
			If s>m Then f=0: Exit Sub
			i=r
			MatchChar regex$,text$,r,s,f
			If Not f Then Exit Sub
			If Mid$(regex$,r+1,1)="+" Then
				MatchStar regex$,text$,i,r+1,s+1,n,m,f
				Exit Sub
			EndIf
			r=r+1:s=s+1
		Loop
		f=1
	End Sub

	Sub MatchStar(regex$,text$,r As Integer,i As Integer,s As Integer,n As Integer,m As Integer,f As Integer)
		Do
			MatchHere regex$,text$,i+1,(s),n,m,f
			If f or s>m Then Exit Sub
			MatchChar regex$,text$,(r),s,f
			If Not f Then Exit Sub
			s=s+1
		Loop
	End Sub

	Sub MatchOptional(regex$,text$,r As Integer,i As Integer,s As Integer,n As Integer,m As Integer,f As Integer)
		MatchHere regex$,text$,i+1,(s),n,m,f
		If f or s>m Then Exit Sub
		MatchChar regex$,text$,(r),s,f
		If Not f Then Exit Sub
		MatchHere regex$,text$,i+1,s+1,n,m,f
	End Sub

	Sub MatchChar(regex$,text$,r As Integer,s As Integer,f As Integer)
		Local Integer i,j
		f=Mid$(regex$,r,1)="."
		If f Then Exit Sub
		If Mid$(regex$,r,1)="[" Then
			i=Instr(r+2,regex$,"]")
			If i Then
				j=Instr(r+1,regex$,Mid$(text$,s,1))
				f=j>0 And j<i:r=i
				Exit Sub
			EndIf
		ElseIf Mid$(regex$,r,1)=Chr$(92) Then
			r=r+1
		EndIf
		f=Mid$(regex$,r,1)=Mid$(text$,s,1)
	End Sub
</code>