VBのURLから属性を削除するにはscdript

Question

私はVBスクリプトでは非常に新しく、URLからの属性はほとんどありません。私はここにしようとしています何

は次のとおりです。

​​

上記のいずれかが私のURLです。 私は0と95

私のコード削除する：

If ((Instr(strUrl,"PACS") <> 0)) then 
     string[] separateURL = strUrl.Split('?'); 
      LogToFile separateURL,"place.log" 

    end if 

をしかし、これは動作しません。分割が正しいかどうかわからない。助けてください。ありがとう

Answer 1

ここでは動作例です。

私は/でURL文字列を分割し、空の文字列を削除して新しい文字列を連結しますが、最後の2つの要素はありません。

Dim strUrl As String, separatedURL, newUrl As String, newstr 
strUrl = "/PACS/Service.svc/PACS/0/95" 

If ((InStr(strUrl, "PACS") <> 0)) Then 
    separatedURL = Split(strUrl, "/") 
    ReDim Preserve separatedURL(UBound(separatedURL) - 2) 
    newUrl = "/" 

    For Each urlPart In separatedURL 
     If urlPart <> "" Then 
      newUrl = newUrl + urlPart + "/" 
     End If 
    Next 

    strUrl = newUrl 

End If