0

他の Web サイトから自分の Web サイトに製品ステータスを取得したい。そのために、このコードを使用しています。

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

Trim を、単語以外の先頭および末尾のすべての文字を削除するこの関数 (SuperTrim) に置き換えます。

例えば。この関数を追加し、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 に答える