Question

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

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)

这给了我状态但是有很多空格和不需要的字符。我试过修剪功能，但这根本不是删除空格。之后，我尝试了替换（vari，“”，“”），但它删除了字符串中的所有空格，这是不好的。

现在，我正在考虑使用XML DOM或类似的功能，任何人都可以帮助我吗？

Answer 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

如何从经典的asp中将其他网站的信息检索到我的网站

1 个答案: