Function TestFun(Tstr) TStr = "Fun2" End Function Sub TestSub(TStr) Tstr = "Sub2" End Sub Dim Fun, [Sub] Fun = "Fun1" Call TestFun(Fun) Msgbox Fun '打印出来 "Fun2" Fun = "Fun1" TestFun(Fun) Msgbox Fun ' 打印出来 &
Function LoseHtml(ContentStr) Dim ClsTempLoseStr,regEx ClsTempLoseStr = Cstr(ContentStr) Set regEx = New RegExp regEx.Pattern = "<\/*[^<>]*>" '这是完全去除HTML代码的正则 'regEx.Pattern="/<(\w+)\s[^>]*>/g" '这是简化HTML代码的正则 regEx