HTA:在可滚动的弹出窗口中显示文本文件

时间:2016-11-27 17:02:36

标签: popup text-files hta

我正在寻找一种简约的方式来查看我的文本(.txt)文件的内容。 我可以使用记事本调用该文件,但我不希望用户能够直接编辑该文件。

是否可以在可滚动的弹出窗口中显示内容?最好不使用javascript。

1 个答案:

答案 0 :(得分:3)

我创建了一个新的子.hta,我从我的主要.hta调用 工作得很好,除非我使用HTAEdit将sub .hta转换为.exe,它不会打开我的日志文件:/那是另一个需要解决的问题:)

这是我的子.hta代码:

<head>
<title>Log File Viewer</title>

<HTA:APPLICATION
  INNERBORDER="no"
  SYSMENU="yes"
  MAXIMIZEBUTTON="no"
  MINIMIZEBUTTON="no"
  SCROLL="no"
  SCROLLFLAT="yes"
  SHOWINTASKBAR="no"
  CONTEXTMENU="no"
  SELECTION="no"/>
</head>
<script language="Javascript">

        window.resizeTo(600,450); // Width,Height
        window.moveTo(window.screen.width/3,window.screen.height/3);

</script>
<script language="VBScript">
Dim strHTML

Sub Window_OnLoad
    logfile = "LOG_" & DatePart("yyyy",Date) & "_" & Right("0" & DatePart("m",Date), 2) & ".txt"
    strHTML = ""
    strHTML = strHTML & "<div id='list'>"
    strHTML = strHTML & "<p><iframe src='logs\" & logfile & "' frameborder='0' height='330' width='100%'></iframe></p>"
    strHTML = strHTML & "</div>"
    LogViewer.InnerHTML = strHTML
End Sub

Sub ClosePopup
    window.close
End Sub

</script>


<body>

<div id="LogViewer"></div>
<center><input type="button" id="Close" value="Close Log Viewer" onclick="VBScript:ClosePopup"></center>

</body>

</html>