如何使用ABAP正则表达式解析HTML标签

魁首哥

作者

如何使用ABAP正则表达式解析HTML标签

小编给大家分享一下如何使用ABAP正则表达式解析HTML标签，希望大家阅读完这篇文章之后都有所收获，下面让我们一起去探讨吧！

需求就是我用ABAP的某个函数从数据库读取一个字符串出来，该字符串的内容是一个网页。

网页的form里包含了很多隐藏的input field。我的任务是解析出name为svyValueGuid的input field的值：FA163EEF573D1ED89E89C7FE5E7C4715

最简单粗暴的做法是：利用ABAP的FIND FIRST OCCURRENCE关键字首先找到svyValueGuid的偏移量，然后从这个偏移量出发，再找到第一个>的偏移量，这样问题就化简为在子串type="hidden" value="FA163EEF573D1ED89E89C7FE5E7C4715"，这样问题就简单多了。但是这种办法比较笨重，代码很冗余。

有没有更快捷的办法呢？那就是使用ABAP regular expression，即正则表达式。

请看下列的测试代码：

REPORTztest_interface.DATA:lv_inputTYPEstring,reg_patternTYPEstring.lv_input=`<body>`&&`<divclass="Title">Jerry'sProgrammingSkillsurvey</div>`&&`<formaction="Survey.htm?sap-client=001">`&&`<inputname="svyApplicationId"type="hidden"value="CRM_SURVEY_ACTIVITY">`&&`<inputname="svyValueGuid"type="hidden"value="FA163EEF573D1ED89E89C7FE5E7C4715">`&&`<inputname="SurveyId"type="hidden"value="JERRY_TEST">`&&`<divId=""class="Section1">`&&`</form></body>`.reg_pattern='.*svyValueGuid(?:.*)value="(.*)">.*SurveyId.*'.TRY.DATA(lo_regex)=NEWcl_abap_regex(pattern=reg_pattern).DATA(lo_matcher)=lo_regex->create_matcher(EXPORTINGtext=lv_input).IFlo_matcher->match()<>abap_true.WRITE:/'failininputscan!'.RETURN.ENDIF.DATA(lt_reg_match_result)=lo_matcher->find_all().READTABLElt_reg_match_resultASSIGNINGFIELD-SYMBOL(<match>)INDEX1.READTABLE<match>-submatchesASSIGNINGFIELD-SYMBOL(<sub>)INDEX1.data(lv_sub)=lv_input+<sub>-offset(<sub>-length).WRITE:/'result:',lv_sub.CATCHcx_rootINTODATA(cx_root).WRITE:/cx_root->get_text().RETURN.ENDTRY.

执行结果：