'========================================================================
'関数名：Deviditeurl
'関数：相対アドレスを絶対アドレスに変換します
'Parameters: PrimitiveUrl--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'パラメーター：CONSULTURL --------現在のWebアドレス
'========================================================================
functiondefiniteurl（byvalprimitivityurl、byvalconsulturl）
dimcontemp、pritemp、pi、ci、priarray、conarray
ifprimiTivityurl = "" orconsulturl = "" orprimiTivityurl = "$ false $" orconsulturl = "$ false $" then
dividiTeurl = "$ false $"
exitFunction
endif
ifleft（lcase（Consulturl）、7）<> "http：//" then "then
CONSULTURL = "http：//"＆consulturl
endif
consulturl = cheplace（consulturl、 "/"、 "/"）
consulturl = cheplage（consulturl、 "：//"、 "：//"）
primitivityurl = cheplage（primitiveurl、 "/"、 "/"）
ifright（Consulturl、1）<> "/" then
ifinstr（consulturl、 "/"）> 0then
ifinstr（右（consulturl、len（consulturl）-instrrev（consulturll、 "/"））、 "、。"）> 0-then
それ以外
CONSULTURL = CONSULTURL＆ "/"
endif
それ以外
CONSULTURL = CONSULTURL＆ "/"
endif
endif
conarray = split（consulturl、 "/"）
ifleft（lcase（primitiveurl）、7）= "http：//" then
dividiTeurl = cheplage（primitiveurl、 "：//"、 "：//"）
elsefleft（primitiveurl、1）= "/" then
deviditeurl = conarray（0）＆primitiveurl
elsefleft（primitiveurl、2）= "./" then
primivityurl = right（primitivityurl、len（primitiveurl）-2）
ifright（consulturl、1）= "/" then
dividiteurl = Consulturl＆Primitiveurl
それ以外
dividiteurl = left（consulturl、instrrev（consulturl、 "/"））＆primitiveurl
endif
elsefleft（primitiveurl、3）= "../" then