通过asp程序采集网页时如何把被采集网页上的数字去掉?
去掉的数字,比如:771007700012305659676878243546。都是一些没有规律出现的数字,而且数字是经常变化的。通过一般的替换很麻烦,有没有更好的办法?...
去掉的数字,比如:77 100 77000 12305 659676878 243546。都是一些没有规律出现的数字,而且数字是经常变化的。通过一般的替换很麻烦,有没有更好的办法?
这个大的问题在这:http://zhidao.baidu.com/question/170164931.html
欢迎大家回答。 展开
这个大的问题在这:http://zhidao.baidu.com/question/170164931.html
欢迎大家回答。 展开
4个回答
展开全部
Function LoseNum(ContentStr)
Dim ClsTempLoseStr,regEx
ClsTempLoseStr = Cstr(ContentStr)
Set regEx = New RegExp
regEx.Pattern = "[\d]+"
regEx.IgnoreCase = True
regEx.Global = True
ClsTempLoseStr = regEx.Replace(ClsTempLoseStr,"")
LoseNum= ClsTempLoseStr
Set regEx = Nothing
End Function
Dim ClsTempLoseStr,regEx
ClsTempLoseStr = Cstr(ContentStr)
Set regEx = New RegExp
regEx.Pattern = "[\d]+"
regEx.IgnoreCase = True
regEx.Global = True
ClsTempLoseStr = regEx.Replace(ClsTempLoseStr,"")
LoseNum= ClsTempLoseStr
Set regEx = Nothing
End Function
展开全部
提供一个很笨的办法(如果没有更好更容易理解的方法的话)
用一个FOR循环,I从0到9,把所采集页面中的所有字符中的I替换掉。
代码:
------------------------------------
Sub Clear(GetPageString)
IF GetPageString <> "" Then
For I = 0 to 9
GetPageString = Replace(GetPageString,Cstr(I),"")
Next
End IF
End Sub
------------------------------------------
不过,提醒楼主,页面中并非所有数字都是无用的,这么替换下来,页面上所有的数据都会被删除掉——理论上很不可取。。
用一个FOR循环,I从0到9,把所采集页面中的所有字符中的I替换掉。
代码:
------------------------------------
Sub Clear(GetPageString)
IF GetPageString <> "" Then
For I = 0 to 9
GetPageString = Replace(GetPageString,Cstr(I),"")
Next
End IF
End Sub
------------------------------------------
不过,提醒楼主,页面中并非所有数字都是无用的,这么替换下来,页面上所有的数据都会被删除掉——理论上很不可取。。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
用正则表达式,把所有匹配到的项替换掉
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
用 正则吧, [0-9]+ 就可以匹配由 数字组成的字符串了,不过ASP里怎么应用正则。。。。自己查下好了。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询