[ホーム] ＞
[VBScript FAQ 一覧] ＞ [URLからパスを取り出すサンプル(ファイル名を除去)]
URLからパスを取り出す(ファイル名を除去)サンプルです。
(1)
http://www.example.com/test1/test2/test3.htm の場合
http://www.example.com/test1/test2/ を取り出す。
(2)
http://www.example.com/test1/test2/test3/ の場合
http://www.example.com/test1/test2/test3/ を取り出す。
(3)
http://www.example.com/test1/test2/test3 の場合
http://www.example.com/test1/test2/ を取り出す
---------------------------------------------------
dim i
dim output
path="http://www.example.com/test1/test2/test3.html"
for i=len(path) to 1 step -1
if mid(path,i,1)="/" then
outputstr=mid(path,1,i)
WScript.echo outputstr
WScript.quit
end if
next
[ホーム] ＞
[VBScript FAQ 一覧]