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

パスワード:


パスワード紛失

トップ > 実務関連 >JAMP >AISファイル(*.xml)のビューワー作ってみました

Re: Re: AISファイル(*.xml)のビューワー作ってみました

このトピックの投稿一覧へ

なし Re: Re: AISファイル(*.xml)のビューワー作ってみました

msg# 1.44.2.1
depth:
3
前の投稿 - 次の投稿 | 親投稿 - 子投稿なし | 投稿日時 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>
投票数:0 平均点:0.00
返信する

この投稿に返信する

題名
ゲスト名   :
投稿本文

投稿ツリー

  条件検索へ

Ferretアクセス解析