0

我想从其他网站检索产品状态到我的网站。为此，我正在使用此代码。

Dim xml
set xml = Server.CreateObject("Microsoft.XMLHTTP")
xml.Open "GET", "http://www.midwayusa.com/Product/"&sCode  , false
xml.Send

Dim strRetrive,strtCnt,endCnt,strStatus,strShippingMessage,a
strRetrive=xml.responseText
strtCnt=InStr(strRetrive,"productStatus")
strtCnt=Instr(strtCnt,strRetrive,">")
endCnt=Instr(strtCnt,strRetrive,"<")
strStatus = (mid(strRetrive,(strtCnt+1),(endCnt-(strtCnt+1))))
getStatusFromMidway = trim(a)

这给了我状态，但有很多空格和不需要的字符。我尝试了修剪功能，但这根本没有删除空格。之后，我尝试了 Replace(vari," ","")，但它从字符串中删除了所有不好的空格..

现在，我正在考虑使用 XML DOM 或类似功能，有人可以帮我吗？

4

1 回答 1

1

用删除所有前导和尾随非单词字符的此功能 (SuperTrim) 替换您的 Trim。

例如。添加此函数并将getStatusFromMidway = trim(a)更改为getStatusFromMidway = SuperTrim(a)

Function SuperTrim(input)
    Dim regex, result
    Set regex = New RegExp
    regex.Pattern = "^\W+"
    regex.IgnoreCase = True
    regex.Global = True
    result = regex.Replace(input, "")
    regex.Pattern = "\W+$"
    result = regex.Replace(result, "")
    Set regex = nothing
    SuperTrim = result
End Function
于 2012-09-11T22:50:21.177 回答