举报
/(\d+)
Local $sSource = ;---- 自己获取网页源字符串 Msgbox(0, '成份', __Getxx($sSource, '成份')) Msgbox(0, '功能主治', __Getxx($sSource, '功能主治')) Msgbox(0, '用法用量', __Getxx($sSource, '用法用量')) Msgbox(0, '不良反应', __Getxx($sSource, '不良反应')) Func __Getxx($sSource, $sName) Local $aSRE = StringRegExp($sSource, '(?si)<dt>(【' & $sName & '】)</dt>\s+<dd>\s+(.+?)\s+</dd>', 1) If @Error Then Return '' Return StringRegExpReplace($aSRE[1], '<.+?>', '') EndFunc ;==>__Getxx
(?si)search_ul_yb">.+?/(\d+)
本版积分规则 发表回复 回帖后跳转到最后一页
|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度
GMT+8, 2025-3-14 00:07 , Processed in 0.128082 second(s), 24 queries .
Powered by Discuz! X3.5 Licensed
© 2001-2025 Discuz! Team.