Text HTA读取文本文件并填充下拉框

文本文件示例将包括以下数据、名称和相关IP地址，格式如下：

name;IP

MsgBox str

按预期显示“savedhosts.txt”文件中的所有数据

然而我无法得到

MsgBox“arrServiceList（0）=”&arrServiceList（0）
MsgBox“arrServiceList（1）=”和arrServiceList（1）

在盒子里显示。我已将

MsgBox

命令移动到

循环

行下方

循环
MsgBox“arrServiceList（0）=”和arrServiceList（0）
MsgBox“arrServiceList（1）=”和arrServiceList（1）
“MsgBox”
obj1.关闭“关闭文件”
Set obj=Nothing'释放文件对象

我收到一个错误：

类型不匹配“arrServiceList”

应从

子文件中捕获数据的HTML部分：



输入IP：用户可以输入一个新的IP，当“保存的主机名”选择一个新值时，该IP将自动更改



主机名：用户可以输入主机的新名称



保存的主机名：下拉数据，仅显示savedhosts.txt文件中的名称。更改名称将执行
LoadDropDownName
编写脚本并更改“IP输入”的值

如果有人可以向我展示一个类似代码的示例（使用VBScript）来读取此文本文件的内容，并在使用html单行文本输入区域自动填充关联的IP地址时仅在html下拉框中显示名称

我已经搜索了此方法的一个示例，但找不到任何符合此简单条件的示例
 我认为问题可能是您读取了流结束的整个文件（我怀疑是为了调试），然后
obj.AtEndOfStream
变为
true
。因此，您的循环不会执行

str=obj1.ReadAll'结束流

您可以关闭然后重新打开流

Set obj1 = obj.OpenTextFile("savedhosts.txt", ForReading) 'Opening a text file and reading text from it
Dim str,str1
str=obj1.ReadAll                        'All text from the file is read using ReadAll
Msgbox str
obj1.Close
Set obj1 = obj.OpenTextFile("savedhosts.txt", ForReading) ' etc

或者省略
obj1.ReadAll
位，或者将
str
作为一大块文本进行处理
你说的“此方法的示例”是什么意思？这是3个相当基本的操作的组合：a）读取文件，b）填充下拉列表，以及c）使用下拉列表中的选择更新文本字段。请先做一些研究并尝试编写一些代码。所以这不是一个免费的代码编写服务。“这个方法的例子”意味着我无法使用搜索工具找到类似的例子。如果有人能给我展示这样一个代码的例子，那么我就可以把它转换成我自己的自定义代码。我不是要求一个完整的解决方案，也不是要求免费的帮助。我肯定有一些工作实例，但我还没有找到。把它分解成它的组成部分，或者你只是想要一个快速修复，而对学习不感兴趣？这是三步，一步。阅读文本文件（数百个示例），2。解析内容（分隔列表、执行此类型操作的方法的数组批次）和3。将解析后的数据显示为HTML下拉列表（同样是一种常见操作，使用
For
循环填充HTML选择
选项
。这种类型的示例也很多）。不幸的是，不太可能在一个方便的现成脚本中找到这些内容，但这就是“快速修复”和实际学习的区别。祝你好运。我对学习很感兴趣，所以我可以相应地适应和配置。快速修复意味着我什么也学不到，也不理解脚本的逐行功能。。我已尝试创建解决方案的基本模型，请检查？我不知道您可以在TextStream上这样做。好的一点是，您不能，我想的是
ADODB.Stream
而不是
TextStream
对象。
Set obj1 = obj.OpenTextFile("savedhosts.txt", ForReading) 'Opening a text file and reading text from it
Dim str,str1
str=obj1.ReadAll                        'All text from the file is read using ReadAll
Msgbox str
obj1.Close
Set obj1 = obj.OpenTextFile("savedhosts.txt", ForReading) ' etc