【发布时间】：2015-10-25 00:15:42
【问题描述】：
首先，所有这些活动都被视为本地活动。简而言之，没有网络服务器。
我有一个两步流程。
使用 VBS 创建一个 html 文件，并用我在 msgbox 中键入的特定文件夹中的图像链接填充它。
在我选择的浏览器中打开 html 文件。
我花了一个徒劳的晚上试图将其组合成一个步骤 - html页面有一个输入框，按下按钮-->图像出现。
现在要清楚的是，VBS 脚本输出只是有
img src="c:\temp\01.png"
带有开始和结束标签，其中temp文件夹中有一个名为01.png的文件，然后02.png会在下面等等。
我今晚的尝试是找到一种方法，使用类似 document.write 或类似的东西在页面上简单地显示文件列表，但我没有做到这一点。任何访问文件系统的尝试似乎都会导致脚本失败。
感谢您的帮助。
我目前有一个 vbscript 用于我的第一步。我想知道如何将函数/html 输出嵌入到单个 html 文件中。
我设想 html 页面将有一个输入字段、一个“开始”按钮，然后结果将是页面上出现的文件夹中的图像。全部使用客户端脚本。
我的 vbscript 与下面的非常相似，但因为我知道我只会得到 png 的文件，这就是我要寻找的所有内容（并且所有这些都应该在那里）。
对不起，如果我一直把东西放在错误的地方。
当前的 HTML 示例输出如下。
<html><head></head><body>
<img src = "c:\temp\credit.png"<hr>.<hr>
<img src = "c:\temp\NTK_01.png"<hr>.<hr>
</body></html>
-
dim objFSO
dim objFolder
dim colFiles
dim filelist
dim objStartFolder
dim pathToImage
dim iend
iend = """<hr>.<hr>" & vbcrlf 'vbcrlf if for readability of html only
const isrc = "<img src = """
const FileToWrite = "c:\temp\images.html"
'const objStartFolder = "C:\Temp" 'Used when testing so don't have to have the input box.
const For_Appending = 8
const For_Writing = 2
objStartFolder = InputBox("Folder path to open i.e. c:\temp") 'Grab the user path.
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(objStartFolder) 'No error checking cause its just me
Set colFiles = objFolder.Files
filelist = "<html><head></head><body>" & vbcrlf 'Create the html code and store it in this variable.
For Each objFile in colFiles
'There should only be images, but i created this when testing and left it in.
if right(objFile.Name,3) = "png" then
pathToImage = objFolder.path & "\" & objFile.Name
filelist = filelist & isrc & pathToImage & iend
'Output line should be:
'<img src="c:\temp\01.png"><hr>.<hr>
end if
Next
filelist = filelist & "</body></html>" 'Close the html data
wscript.echo filelist 'Show what the html file will look like - sanity check.
'Open the file, overwrite the existing contents and close the file
set htmlout = objFSO.OpenTextFile(FileToWrite,For_Writing,TRUE)
htmlout.write filelist
htmlout.close
【问题讨论】：
-
您的 HTML 文件中有一些代码可以分享吗？您是否像
<img src="myImage.jpg"/>一样包装您的 src？ -
我不知道vbs，但似乎您可以在这里找到答案。 tutorialspoint.com/vbscript/vbscript_fso_objects.htm 可能还有 html5rocks.com/en/tutorials/file/filesystem 。
-
您也应该使用文件 uri 方案来链接到本地文件 stackoverflow.com/questions/2148584/…
-
因为一切都是本地的并且没有网络服务器，我希望我可以绕过安全问题。 Ken Kwok 链接的文件系统似乎不再受支持。当然，我可能会误会。
标签： javascript html vbscript