OpenEdge中的正则表达式

作者: 那年
发布时间: 2025-02-06 02:21:47 (27天前)
转自：

5 条回复

0#
回复此人
Colin | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 进度不直接支持正则表达式。 </p> <P> 有关使用正则表达式的一些示例： <a href="https://stackoverflow.com/questions/15636199/using-system-text-regularexpressions-within-openedge-abl/15640026#15640026"> 在OpenEdge ABL中使用System.Text.RegularExpressions </A> </p> <P> 进度变量不区分大小写。要使用区分大小写的字符串，您可以将变量声明为区分大小写，如下所示： </p> <pre> <code> define variable s as character no-undo case-sensitive. display "aBc" matches "abc". s = "aBc". display s matches "abc". display s matches "a*c". </code> </pre> <P> 或者您可以使用UPPER（）和LOWER（），ASC（）和CHR（）函数进行逐字符比较。 </p> </DIV>

编辑
1#
回复此人
青阳 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> <code> MATCHES </code> 不支持正则表达式。 <a href =“http://documentation.progress.com/output/OpenEdge112/oe112html/ABL/wwhelp/wwhimpl/common/html/wwhelp.htm#href=ABL%20Reference/15dvref-MO.029.01.html&single = true“rel =”nofollow“> 文档 </A> 说它只需要简单的通配符 <code> . </code> 和 <code> * </code> 。如果您知道您的代码将始终在Windows上运行，则可以 <a href="http://knowledgebase.progress.com/articles/Article/000039027" rel="nofollow"> 使用CLR桥 </A> 运行.NET代码： </p> <pre> <code> USING System.Text.RegularExpressions.*. DEF VAR cVariable AS CHAR NO-UNDO INITIAL "cPascalCase". DEF VAR regexp AS CLASS Regex NO-UNDO. regexp = NEW Regex("c[A-Z]*"). MESSAGE regexp:IsMatch(cVariable). FINALLY: DELETE OBJECT regexp. END. </code> </pre> </DIV>

编辑
2#
回复此人
尼拉。 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 除非使用.NET类，否则不能将正则表达式与Progress一起使用，但您的需求很容易通过简单的函数实现。 </p> <pre> <code> FUNCTION isPascalCase RETURNS LOGICAL (cString AS CHARACTER): IF LENGTH(cString) < 2 THEN RETURN FALSE. RETURN SUBSTRING(cString,1,1) = "c" AND ASC(SUBSTRING(cString,2,1)) = ASC(UPPER(SUBSTRING(cString,2,1))). END FUNCTION. MESSAGE isPascalCase("cpascalCase"). </code> </pre> </DIV>

编辑
3#
回复此人
⑩Ⅵ嵗Ｄ夨憶 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 你可以使用我开发的课程。它可用于 <a href="https://github.com/gabsoftware/Progress-ABL-4GL-Regex" rel="nofollow"> https://github.com/gabsoftware/Progress-ABL-4GL-Regex </A> 。此类添加了对Windows和HP-UX 11.31 ia64的Perl正则表达式的支持。 </p> <P> 它非常易于使用。只需执行以下操作： </p> <pre> <code> DEFINE VARIABLE cl_regex AS CLASS Regex NO-UNDO. DEFINE VARIABLE ch_pattern AS CHARACTER NO-UNDO CASE-SENSITIVE. ASSIGN ch_pattern = "c[A-Z]*" cl_regex = NEW Regex(). /* should display: "No" */ MESSAGE cl_regex:mMatch( "ctest", ch_pattern, "" ) VIEW-AS ALERT-BOX. </code> </pre> <P> 请注意，您必须在模式中转义Progress特殊字符，如下所述： <a href="http://knowledgebase.progress.com/articles/Article/P27229" rel="nofollow"> http://knowledgebase.progress.com/articles/Article/P27229 </A> 或者它不会按预期工作。 </p> </DIV>

编辑

登录后才能参与评论