arrays - 写入 MultiString 注册键的 VB 脚本

Question

我正在编写一个查看 IE 当前主页的脚本。如果它不是我们的内部网，我会获取该值并将其合并到辅助页面注册码中。

现在我想出了如何将它合并到一个数组中(假设有一些二级页面......如果没有什么大不了的)。我遇到的是当我最终合并它时似乎有一条额外的线。这让我发疯。有什么想法吗？这是功能。脚本还有很多，但这是痛苦的部分。谢谢

Function AppendSecondary(StrComputer)

objReg.GetstringValue HKEY_CURRENT_USER, strKeyPath, ValueName, strValueMain
objReg.SetStringValue HKEY_CURRENT_USER, strKeyPath, ValueName, strValueMyMTD

set ws = WScript.CreateObject("Wscript.Shell")
strKeyPath=WS.RegRead(strKeyPathPath & ValueNameSecondary)
if vartype(strKeyPath)= vbArray + vbVariant then
  arStrings = strKeyPath
else
  arStrings = split(strKeyPath,chr(0))

  redim preserve arStrings(ubound(arStrings)-3)
end If

redim preserve arStrings(ubound(arStrings)+1)

arstrings(ubound(arStrings))= strvaluemain

arstrings1 = join(arStrings,VBCRLF)

arstringsnew = Array(arstrings1)


objReg.SetMultiStringValue HKEY_CURRENT_USER, strKeyPath, ValueNameSecondary, arstringsnew



End Function

Answer 1

检查每个数组的最后一个元素，确保它不是空字符串 ("") 或非打印字符，如 Chr(10) 或 Chr(13) 或 vbCR、vbLF 或 vbCRLF。