Question

vb ubound函数详解

<%filePath=server.mapPath("data/rc.txt")
set fso=server.createobject("scripting.FileSystemObject")
set myFile=fso.getFile(filePath)
if myFile.size<>0 then
set openfile=fso.opentextfile(filePath,1)
aa=trim(openfile.ReadAll)
'从文本rc.txt中提取所有内容赋给变量aa
rcArr=split(aa,"$a")
'把变量aa的值以“$a”字符拆分并放到数组rcArr()中
j=0
for i=0 to ubound(rcArr)-1
'因最后一个数组元素为空，所以用ubound(rcArr)-1
rcArr1=split(rcArr(i),"$(a)")
'把数组第i个元素拆分并放到数组rcArr1()中谁能详细解释下这个函数什么意思，拒绝也行，最好简单好懂

Answer 1

楼主我大概给你解释一下吧。。 <%filePath=server.mapPath("data/rc.txt") '这里获取文件路径
set fso=server.createobject("scripting.FileSystemObject") '创建文件对象
set myFile=fso.getFile(filePath) '获取文件
if myFile.size<>0 then '如果文件内容不等于0
set openfile=fso.opentextfile(filePath,1) '就打开文件
aa=trim(openfile.ReadAll) '读取文件中所有内容,并赋给aa变量
'从文本rc.txt中提取所有内容赋给变量aa
rcArr=split(aa,"$a") '用split分割内容,$a做分割符
'把变量aa的值以“$a”字符拆分并放到数组rcArr()中
j=0
for i=0 to ubound(rcArr)-1 'ubound获取数组最大上标,因为vbs里的数组下标从0开始,所以需要减1。
'因最后一个数组元素为空，所以用ubound(rcArr)-1
rcArr1=split(rcArr(i),"$(a)")

Answer 2

　　UBound 函数

　　返回一个 Long 型数据，其值为指定的数组维可用的最大下标。

　　语法

　　UBound(arrayname[, dimension])

　　UBound 函数的语法包含下面部分：

　　arrayname 必需的。数组变量的名称，遵循标准变量命名约定。
　　dimension 可选的；Variant (Long)。指定返回哪一维的上界。1 表示第一维，2 表示第二维，如此等等。如果省略 dimension，就认为是 1。