Oh, so many ways to do this...
You could use Craig Boyd's VFP RegExp.FLL in place of the VBScript RegEx object.
--
rk
From: ProfoxTech profoxtech-bounces@leafe.com On Behalf Of António Tavares Lopes Sent: Monday, December 12, 2022 8:55 AM To: profoxtech@leafe.com Subject: Re: Help with a regular expression
Paul,
An implementation of the NumberAtEnd method using Regular Expressions (changed the pattern to give a bit more robustness):
m.acid1 = "Methionine = (S)-2-amino-4-(methylsulfanyl)-butanoic acid (2.13)" m.acid2 = "Methionine = (S)-2-amino-4-(methylsulfanyl)-butanoic acid"
? NumberAtEnd(m.acid1) && 2.13 ? NumberAtEnd(m.acid2) && FAIL
FUNCTION NumberAtEnd (Test AS String) AS String
LOCAL Regx AS VBScript_RegExp_55.RegExp LOCAL Matches AS VBScript_RegExp_55.MatchCollection LOCAL Result AS String
m.Regx = CREATEOBJECT("VBScript.RegExp")
m.Regx.Pattern = "((([0-9]+(" + SET("Point") + "[0-9]+)?)))$"
m.Matches = m.Regx.Execute(m.Test)
IF m.Matches.Count == 1 m.Result = m.Matches.Item(0).SubMatches.item(1) ELSE m.Result = "FAIL" ENDIF
RETURN m.Result
ENDFUNC
On Mon, Dec 12, 2022 at 1:10 PM Paul Newton <paul.newton.hudl@gmail.commailto:paul.newton.hudl@gmail.com> wrote:
Hi all
I've been very quiet for a while so I thought it was about time I chimed in again. I have come across the use of a regex expression in another language which works like this:
acid1 = "Methionine = (S)-2-amino-4-(methylsulfanyl)-butanoic acid (2.13)" acid2 = "Methionine = (S)-2-amino-4-(methylsulfanyl)-butanoic acid"
NumberAtEnd:= proc(S::string) description "Extract a parenthesized number, possibly containing periods, from the end of a string": local r; if StringTools:-RegMatch("\(([0-9.]*)\)$file://(([0-9.]*)/)$", S, r$2) then r else FAIL fi end proc:
NumberAtEnd(acid1) returns "2.13" NumberAtEnd(acid2) returns "FAIL"
How can this be done in VFP? Many thanks
Paul Newton
[excessive quoting removed by server]