回复 1# auto
Local $Str = _
'...' & @CRLF & _
'<div class="xstandleft">【通用名称】</div><div calss="xstandright">陈皮</div>' & @CRLF & _
'<div class="xstandleft">【其他名称】</div><div calss="xstandright"> 陈皮 Pericarpium Citri Reticulatae (英)Tangerine Peel </div>' & @CRLF & _
'<div class="xstandleft">【别名】</div>' & @CRLF & _
'<div calss="xstandright"> 红橘、大红袍、川橘。 </div>' & @CRLF & _
'<div class="xstandleft">【来源】</div>' & @CRLF & _
'<div calss="xstandright">为芸香科植物橘Citrus reticulata Bianco的果皮。 </div>' & @CRLF & _
'<div class="xstandleft">【植物形态】</div>' & @CRLF & _
'<div calss="xstandright"> 常绿小乔木或灌木,高3~4m.叶互生,单身复叶;叶片披针形或椭圆形,长4~11cm,宽1.5~4cm先端渐尖,全缘或为波状钝锯齿,具半透明油点。花单生或数朵生于枝端和叶腋,白色或带淡红色;花萼杯状,花瓣5,长椭圆形;雄蕊15~25;雌蕊1。柑果近圆形或扁圆形,红色、朱红色、黄色或橙黄色,囊瓣7~12。种子卵圆形,白色。花期3~4月,果期10~12月。 栽培于丘陵、低山地带、江河湖泊沿岸或平原。全国各产橘区均产。 </div>' & @CRLF & _
'<div class="xstandleft">【采制】</div>' & @CRLF & _
'<div calss="xstandright"> 果实成熟时制取果皮,晒干。 </div>' & @CRLF & _
'<div class="xstandleft">【性状】</div>' & @CRLF & _
'<div calss="xstandright"> 果皮常剥成数瓣,基部相连,有的呈不规则的片状,厚1~4mm。外表面橙红色或红棕色,有细皱纹及凹下的点状油室;内表面浅黄白色,粗糙,附黄白色或黄棕色筋络状维管束。质稍硬而脆。气香,味辛、苦。 </div>' & @CRLF & _
'<div class="xstandleft">【化学成分】</div>' & @CRLF & _
'<div calss="xstandright"> 含橙皮甙(hesperidin)、川陈皮素(nobiletin)、柠檬烯、a-蒎烯、B-蒎烯、B-水芹烯(B-phellandrene)等。 </div>' & @CRLF & _
'<div class="xstandleft">【性味】</div>' & @CRLF & _
'<div calss="xstandright"> 性温,味苦、辛。 </div>' & @CRLF & _
'<div class="xstandleft">【功能主治】</div>' & @CRLF & _
'<div calss="xstandright"> 理气健脾,燥湿化痰。用于胸脘胀满、食少吐泻、咳嗽多痰。 </div>' & @CRLF & _
'<div class="xstandleft">【附注】</div>' & @CRLF & _
'<div calss="xstandright"> 橘的栽培变种的果皮亦作陈皮入药;其未成熟果实的外层果皮亦入药,药材称为"青皮",能疏肝破气、消积化滞。 <a href....' & @CRLF & @CRLF & @CRLF & _
'<div calss="xstandright"> 性温,味苦、辛。 </div>' & @CRLF & _
'<div class="xstandleft">【功能主治】</div>' & @CRLF & _
'<div calss="xstandright"> 理气健脾,燥湿化痰。用于胸脘胀满、食少吐泻、咳嗽多痰。 </div>' & @CRLF & _
'<div class="xstandleft">【附注】</div>' & @CRLF & _
'<div calss="xstandright"> 橘的栽培变种的果皮亦作陈皮入药;其未成熟果实的外层果皮亦入药,药材称为"青皮",能疏肝破气、消积化滞。 <a href....' & @CRLF & @CRLF
MsgBox(0, '原字符串', $Str)
Local $Test = StringRegExpReplace($str, '([.\d]+\r\n)|<.*?>|<a href.*?', '')
MsgBox(0, '替换结果', $Test)
|