2017年11月
      1 2 3 4
5 6 7 8 9 10 11
12 13 14 15 16 17 18
19 20 21 22 23 24 25
26 27 28 29 30    
無料ブログはココログ

« CSVファイルを表形式で表示する。 | トップページ | 環境変数のPATHを行分けして表示するバッチファイル »

2007年2月14日 (水)

HTMLファイルにドロップで引数を渡す。

HTAファイルと違って、
HTMLファイルそのものにはドロップで引数を渡すことはできませんが、
バッチファイルやショートカットを作れば、それっぽいことができます。

バッチファイルなら、
START IExplore.exe file://フルパス\CsvView.HTM?%*

ショートカットなら、
RunDLL32.EXE Shell32.DLL,ShellExec_RunDLL IExplore.exe file://フルパスv\CsvView.HTM?

<HTML><HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html;CHARSET=x-sjis">
<TITLE>CsvView.HTM</TITLE>
<OBJECT ID="TDC" WIDTH=0 HEIGHT=0 CLASSID="CLSID:333C7BC4-460F-11D0-BC04-0080C7055A83">
<PARAM NAME="UseHeader" VALUE="true">
<PARAM NAME="Charset" VALUE="shift_jis">
<PARAM NAME="CaseSensitive" VALUE="false">
</OBJECT><SCRIPT LANGUAGE="VBScript">
Option Explicit
Dim arg
arg=location.search
arg=Mid(arg,2)
arg=unescape(arg)
arg=Trim(Replace(arg,Chr(34),Empty))
If arg="" Then
  alert "CSV file name missing."
  close
Else
  TDC.DataURL=arg
End If

Sub window_onload()
Dim RS
Dim HTML
Dim Field
document.title=document.title & " - " & TDC.DataURL
Set RS=TDC.recordset
HTML="<" & "TABLE DATASRC=""#TDC"" BORDER><" & "THEAD><" & "TR>"
For Each Field In RS.Fields
  HTML=HTML & "<" & "TD>" & Field.Name & "<" & "/TD>"
Next
HTML=HTML & "<" & "/TR><" & "/THEAD><" & "TBODY><" & "TR>"
For Each Field In RS.Fields
  HTML=HTML & "<" & "TD><" & "SPAN DATAFLD=""" & Field.Name & """><" & "/SPAN><" & "/TD>"
Next
HTML=HTML & "<" & "/TR><" & "/TBODY><" & "/TABLE>"
document.body.innerHTML=HTML
End Sub
</SCRIPT></HEAD><BODY ></BODY></HTML>

« CSVファイルを表形式で表示する。 | トップページ | 環境変数のPATHを行分けして表示するバッチファイル »