VBScript的字符串分割到数组，使用数组元素来改变HTML输入框

我有一个生成一个文本文件，它看起来像下面这样的小批量文件的价值：VBScript的字符串分割到数组，使用数组元素来改变HTML输入框

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>

应该通过文本文件循环，打破每串由等号，使用第1个要素（等号前）作为输入框的ID需要更改，并将值设置为第二个元素（在等号后面）

就目前而言，这不起作用。我收到一个错误：

Object required: '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>

来源

2017-10-04 GrumpyCrouton

您需要通过您的键值对的键索引的集合：

<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>

来源

2017-10-04 19:53:12

VBScript的字符串分割到数组，使用数组元素来改变HTML输入框

回答

相关问题