我正在编写一个查看 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
最佳答案
检查每个数组的最后一个元素,确保它不是空字符串 ("") 或非打印字符,如 Chr(10) 或 Chr(13) 或 vbCR、vbLF 或 vbCRLF。
关于arrays - 写入 MultiString 注册键的 VB 脚本,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/13494171/