メインメニュー
検索
読み物
これからはじめる環境報告
IMDSについて
JAMAシートについて
環境報告って何?
EnMa
環境法規
便利なサイト
ログイン
ユーザー名:

パスワード:


パスワード紛失

返信する: JAMP



オプション

参照

Re: Re: AISファイル(*.xml)のビューワー作ってみました
投稿者: ゲスト 投稿日時: 2011-4-15 18:28
<html><head>
</head><body>
<style type="text/css">
body{background-color:silver}
th{white-space:nowrap; background-color:gray}
td{white-space:nowrap; background-color:lightgray}
</style>
<form>
<input type="file" onchange="viewais(value)">
</form>
<hr>
<div id="AIS"></div>
<script language="VBScript">
Function viewais(path)
Set strm=CreateObject("ADODB.Stream")
Set re=CreateObject("VBScript.RegExp")
Set xml=CreateObject("MSXML2.DOMDocument")
Set xsl=CreateObject("MSXML.DOMDocument")
strm.Charset="UTF-8"
strm.Open
strm.LoadFromFile(path)
bfr=strm.ReadText
strm.Close
re.Pattern=" xmlns=[^\s>]*"
Set mtchs=re.Execute(bfr)
bfr=re.Replace(bfr,"")
xml.async=False
xml.loadXML(bfr)
xsl.async=False
xsl.load "viewais.xsl"
bfr=xml.transformNode(xsl)
AIS.innerHTML=bfr
re.Pattern="^ xmlns="
ns=mtchs(0).Value
ns=re.Replace(ns,"")
re.Global=True
re.Pattern=""""
ns=re.Replace(ns,"")
NAMESPACE.innerHTML=ns
Set strm=Nothing
Set re=Nothing
Set xml=Nothing
Set xsl=Nothing
End Function
</script>
</body></html>
Ferretアクセス解析