额如下网上文本如何建立正则表达式或其它方法取出成绩
<td class='subjecttitle'>语　　文</td><td><span>79.5</span></td>
<td class='subjecttitle'>数　　学</td><td><span>62.5</span></td>
<td class='subjecttitle'>英　　语</td><td><span>48.5</span></td>
<td class='subjecttitle'>物　　理</td><td><span>21</span></td></tr><tr>
想要结果
语文 79.5
数学 62.5
英语 48.5
物理 21

也可以用 STREXTRACT() 取出两个分隔符之间的字符串

clear
TEXT TO cStr NOSHOW TEXTMERGE
<td class='subjecttitle'>语　　文</td><td><span>79.5</span></td>
<td class='subjecttitle'>数　　学</td><td><span>62.5</span></td>
<td class='subjecttitle'>英　　语</td><td><span>48.5</span></td>
<td class='subjecttitle'>物　　理</td><td><span>21</span></td></tr><tr>
ENDTEXT

oRegExp=Createobject("VBScript.RegExp")
oRegExp.Global=.T.
oRegExp.Ignorecase=.T.
oRegExp.Pattern="[/\\:<>a-zA-Z-=']"
ss=oRegExp.Replace(cStr,"")
?strt(ss,"　","")

[此贴子已经被作者于2018-6-26 10:31编辑过]

或者：
oRegExp=Createobject("VBScript.RegExp")
oRegExp.Global=.T.
oRegExp.Ignorecase=.T.
oRegExp.Pattern="[/\\:<>a-zA-Z-='\u3000]"
ss=oRegExp.Replace(cStr,"")
?ss

[此贴子已经被作者于2018-6-26 10:31编辑过]

VFP9自带有正则表达式的类，