返信する: JAMP

題名
ゲスト名
パスワード
メッセージアイコン
投稿本文	入力支援機能表示サンプル [もっと...]
オプション	注目トピックをオンにする HTMLタグを有効にする詳細なオプション顔アイコンを有効にする XOOPSの修飾機能(BBCode/自動リンク等)を有効にする自動改行を有効にする数値エンティティ表現を有効にする特殊エンティティ表現を有効にする

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>