[已解决]求助VBS缩小iframe里的文本文件字符？

zzz19760225 · 发表于 2025-3-12 16:46:41

WIN764
1.txt(里有两行16个黑方块字符)

▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇
▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇

复制代码

1.hta

<html><head>
<HTA:APPLICATION
SCROLL="yes"
SINGLEINSTANCE="yes"
>
<style>
body {
font-size:5px;
line-height:1;
}
</style>
</head><body>
<iframe src="1.txt" style="width:100%;height:50%;" ></iframe>
</body></html>

复制代码

通义AI对给予的代码，没有改变。但是执行没有缩小字符，所以求助，希望能将字符缩小。

用了询问vbs解题内容，放弃iframe，通义ai一个解决代码。

<html>
<head>
<title>显示1.txt内容</title>
<HTA:APPLICATION
APPLICATIONNAME="显示1.txt内容"
SCROLL="yes"
SINGLEINSTANCE="yes">
<style>
textarea {
font-size: 10px; /* 调整字体大小 */
width: 100%;
height: 90%;
resize: none;
}
</style>
<script language="VBScript">
Sub Window_OnLoad()
Dim objFSO, objFile, strContents
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists("1.txt") Then
Set objFile = objFSO.OpenTextFile("1.txt", 1)
strContents = objFile.ReadAll
objFile.Close
' 将文本内容按行分割并添加到textarea中
arrLines = Split(strContents, vbCrLf)
For Each strLine In arrLines
txtContent.Value = txtContent.Value & strLine & vbCrLf
Next
Else
MsgBox "1.txt 文件不存在！", vbExclamation, "错误"
End If
Set objFSO = Nothing
End Sub
</script>
</head>
<body>
<textarea id="txtContent" readonly></textarea>
</body>
</html>

复制代码

aloha20200628 · 发表于 2025-3-17 14:00:03

本帖最后由 aloha20200628 于 2025-3-17 14:09 编辑

回复 1# zzz19760225
要缩放 iframe 窗口（自然也就缩放其内的文本元素）可用 css 的 transform: scale 功能，对于 mshta 而言，须采用 ie10+ 引擎才有效。以下代码存为 test.hta 与 1.txt 同目录运行，其中第6行的数字 0.7 是缩放值（可自定义），基于 iframe 窗口原尺寸 380x80 矩形的左上角缩放。

<meta http-equiv='x-ua-compatible' content='ie=10'>
<style>
.scaled {
width: 360px; height: 80px;
transform-origin: top left;
transform: scale(0.7); /* 缩小 iframe 窗口至 70% */
}
</style>
<iframe src="1.txt" class="scaled"></iframe>

复制代码

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

[问题求助] [已解决]求助VBS缩小iframe里的文本文件字符？

评分

浏览过的版块