Hi Paul,
this would be a pure VFP solution:
**********************************************
? AcidTest("Methionine = (S)-2-amino-4-(methylsulfanyl)-butanoic acid (2.13)")
? AcidTest("Methionine = (S)-2-amino-4-(methylsulfanyl)-butanoic acid")
FUNCTION AcidTest(cText)
LOCAL cResult, nCount
nCount = OCCURS("(", cText)
cResult = STREXTRACT(cText, "(", ")", nCount)
IF LEN(CHRTRAN(cDummy, "0123456789.", "")) # 0
cResult ="FAIL"
EndIf
Return cResult
**********************************************
wOOdy
-----Ursprüngliche Nachricht-----
Von: ProFox <[email protected]> Im Auftrag von Paul Newton
Gesendet: Montag, 12. Dezember 2022 14:10
An: [email protected]
Betreff: Help with a regular expression
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.]*)\\)$", 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]
_______________________________________________
Post Messages to: [email protected]
Subscription Maintenance: https://mail.leafe.com/mailman/listinfo/profox
OT-free version of this list: https://mail.leafe.com/mailman/listinfo/profoxtech
Searchable Archive: https://leafe.com/archives
This message:
https://leafe.com/archives/byMID/[email protected]
** All postings, unless explicitly stated otherwise, are the opinions of the
author, and do not constitute legal or medical advice. This statement is added
to the messages for those lawyers who are too stupid to see the obvious.
