如何修改HTA中的VBScript代码以将下拉框选中值写入TXT文件
2026-3-31
如何修改HTA中的VBScript代码以将下拉框选中值写入TXT文件
没问题，我来帮你搞定这个需求！你只需要对现有VBScript代码做几处小调整，就能把下拉框的选中值也按要求写入TXT文件，同时还能优化代码结构减少冗余。
关键修改说明
- 捕获下拉框值：HTA里的下拉框（
select控件）和文本框用法一致，直接通过控件名称的.Value属性就能获取选中的选项值，比如country.Value拿国家选择、region.Value拿地区选择。 - 统一输出格式：按照你给出的示例，调整每个条目的格式为「键名 = 值」，让输出更规整易读。
- 优化代码冗余：把重复的字符串组装逻辑提取出来，不用在「文件存在/不存在」两个分支里重复写一遍。
- 修正原代码小问题：顺便修复了原HTA里重复的
<HTA:APPLICATION>标签和中文引号的问题，避免运行报错。
修改后的完整HTA代码
<html> <head> <title>Save as txt File</title> <HTA:APPLICATION id="hwHTA" applicationName="hyperHTA" border="thin" borderStyle="normal" caption="yes" maximizeButton="yes" minimizeButton="yes" showInTaskbar="no" windowState="normal" innerBorder="yes" navigable="yes" scroll="auto" scrollFlat="yes" singleInstance="yes" sysMenu="no" contextMenu="yes" selection="yes" version="1.0" /> <SCRIPT Language="VBScript"> Sub SaveData Set objFSO = CreateObject("Scripting.FileSystemObject") Dim strLine ' 组装要写入的内容，包含所有文本框和下拉框的值，格式完全匹配你的要求 strLine = "Username = " & UserName.Value & vbCRLF & _ "Email = " & Email.Value & vbCrLf & _ "Title = " & Title.Value & vbCRLF & _ "Company = " & Company.Value & vbCRLF & _ "Product = " & Product.Value & vbCRLF & _ "country = " & country.Value & vbCRLF & _ "region = " & region.Value ' 判断文件状态：存在则追加内容，不存在则创建新文件 If objFSO.FileExists("C:\temp\Test.txt") Then Set objFile = objFSO.OpenTextFile("C:\temp\Test.txt", 8) ' 8代表追加模式 Else Set objFile = objFSO.CreateTextFile("C:\temp\Test.txt") End If ' 写入内容并清理对象 objFile.WriteLine strLine objFile.Close Set objFile = Nothing Set objFSO = Nothing End Sub </SCRIPT> </head> <body> <input type="text" name="UserName" size="25"><p> <input type="text" name="Email" size="25"><p> <input type="text" name="Title" size="25"><p> <input type="text" name="Company" size="25"><p> <input type="text" name="Product" size="25"><p> <label>COUNTRY</label> <select name="country"> <option selected="selected"></option> <option>uk</option> <option>usa</option> <option>ireland</option> <option>jersey</option> </select> <p> <label>REGION</label> <select name="region"> <option selected="selected"></option> <option>west midlands</option> <option>south west</option> <option>south east</option> <option>east midlands</option> </select> <p> <input type="button" value="Run script" onClick="SaveData"> </body> </html>
效果说明
现在点击「Run script」按钮后，TXT文件里的内容会完全符合你的预期，例如：
Username = 张三 Email = zhangsan@example.com Title = 软件工程师 Company = 某某科技 Product = 企业版系统 country = uk region = west midlands
如果还有细节需要调整，随时告诉我哦！
