VBScript将字符串拆分为数组，使用数组元素改变HTML输入框的值答案

【问题标题】：VBScript split string into array, use array element to alter value of HTML input boxVBScript将字符串拆分为数组，使用数组元素改变HTML输入框的值
【发布时间】：2017-10-04 18:13:00
【问题描述】：

我有一个小批处理文件，它生成一个如下所示的文本文件：

deviceimei=123456789874563
serialnumber=XXXXXXXXXXXX
partnumber=XXXXXLL/A
brand=XXX
manuf=XXX

我正在尝试使用 vbscript（在 HTA 文件中）循环遍历此文本文件并根据值填充 HTML 输入框。

这是我的 vbscript：

<script language="VBScript">

    Sub gatherInfo
        Set fso = CreateObject("Scripting.FileSystemObject")
        Set f = fso.OpenTextFile("info.txt")

        Do Until f.AtEndOfStream

          splitString = Split(f.ReadLine, "=", -1)
          splitString(0).Value = splitString(1)

        Loop
    End Sub

</script>

这应该遍历文本文件，用等号分隔每个字符串，使用第一个元素（等号之前）作为需要更改的输入框的ID，并将值设置为第二个元素（等号后）

就目前而言，这是行不通的。我收到一个错误：

需要对象：'splitString(...)'

我怎样才能实现我想要实现的目标？

我的 HTML：

<p><button onclick="vbscript:gatherInfo">gather</button></p>
<p>Brand: <input id="brand" type="text"/></p>
<p>Manufacturer: <input id="manuf" type="text"/></p>

<p>Serial Number: <input id="serialnumber" type="text"/></p>
<p>IMEI: <input id="deviceimei" type="text"/></p>
<p>Part Number: <input id="partnumber" type="text"/></p>

【问题讨论】：

标签： html arrays vbscript

【解决方案1】：

您需要一个由键值对的键索引的集合：

<html>
  <head>
    <title>alpha</title>
    <HTA:APPLICATION ID="oAlpha"/>
    <script language="VBScript">
Sub gatherInfo()
  s = "brand=XXX"
  a = Split(s, "=")
  document.all(a(0)).value = a(1)
End Sub
    </script>
   </head>
   <body>
    <p><button onclick="gatherInfo">gather</button></p>
    <p>Brand: <input id="brand" type="text"/></p>
   </body>
</html>

【讨论】：