vbs如何动态添加数组

没有动态数组吧

就算利用 dim Arr（）as string这样声明，一旦赋值后，数组大小也就固定了。

如果要改变数组大小

要用redim 命令

redim arr（10）

preserve redim arr（）

加preserve 可以不清空数组，保持原有数据

set abc=createobject("scripting.filesystemobject")

set t=abc.opentextfile("rc.txt",8,true)'用于储存数据的文本文件

e=inputbox("数据输入,请用逗号分开:")

f=split(e,",") '输入逗号分开的数据到数组f

for each ft in f

t.writeline ft '写进文本文件

next

t.close

wscript.quit

function strTobin(bytes,byval var)

Dim xmldoc, node

Set xmldoc = CreateObject("Msxml2.DOMDocument")

Set node = xmldoc.CreateElement("binary")

node.DataType = "bin.hex"

for i=1 to len(var)

result=result & hex(asc(mid(var,i,1)))

next

node.Text = result

bytes = node.NodeTypedValue

end function

dim b

strtobin b,"ABC"

b就是字节数组了

---