vb ubound函数详解

楼主我大概给你解释一下吧。。 <%filePath=servermapPath("data/rctxt") '这里获取文件路径 set fso=servercreateobject("scriptingFileSystemObject") '创建文件对象 set myFile=fsogetFile(filePath) '获取文件 if myFilesize<>0 then '如果文件内容不等于0 set openfile=fsoopentextfile(filePath,1) '就打开文件 aa=trim(openfileReadAll) '读取文件中所有内容,并赋给aa变量 '从文本rctxt中提取所有内容赋给变量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)")

希望采纳

shuzu

=

"ad-ss-w-d-wds-fs-dw-15-是-的-是"

arr

=

Split(shuzu,"-")

MsgBox

arr(0)

'是

ad

MsgBox

arr(9)

'是

的

排序的话，你要给个规定，按照首字母排序么？

可以

aaa()是动态变量

首先声明动态变量：Dim aaa()

然后在要用的时候（改变它的时候）使用

Redim preserve aaa([一维下标 to ]一维上标[,[二维下标 to]二维上标……])

如

Dim aaa()

i = 2

Redim preserve aaa(i)

aaa(2)="123"

redim preserve aaa(i+1)

aaa(3)="321"

msgbox (aaa(2) & " " & aaa(3))

二维：

redim preserve aaa(i,j)

懂了吗？redim preserve是改变动态数组并且保留原来的数据（如果是增加的话）；如果你要顺便清空动态数组原来的数据直接redim aaa(i)即可

另外这个是VBS吗。。？为什么是endfor不是next？

程序写的比较辛苦，望楼主酌情加分，谢谢！！请将kktxt跟vbs放到一个目录下面：

Dim arr(100),i,URL

i=0

Set fso =CreateObject("ScriptingFileSystemObject")

Set ts =fsoOpenTextFile("kktxt", 1)

do while tsAtendOfline=0

arr(i)=tsReadLine '把tttxt里面的内容放到arr数组

i=i+1

loop

Randomize '设置随机种子

URL = ">

Public Function readFileToArray(strFileName As String)

'===============================================

' 读取文本文件到一个数组

' @Param strFileName String 文件路径

' @Retrun Array 文本文件的内容

' @Ver 03

' @Date 2015929

' @Comment

' 修正函数名拼写错误的Bug

' By klsjnh@qqcom

'===============================================

Dim strFile As String, aryResult() As String

ReDim aryReturn(0)

Dim intCount As Integer '计数器

strFile = readFileToVariable(strFileName)

aryResult = Split(strFile, vbCrLf)

ReDim Preserve aryReturn(UBound(aryResult))

For intCount = LBound(aryResult) To UBound(aryResult)

aryReturn(intCount) = aryResult(intCount)

Next

readFileToArray = aryReturn

End Function

i = 0: nStr = ""

Dim MyArray()

Do

a = InputBox("循环直到输入4为止")

ReDim Preserve MyArray(i)

MyArray(i) = a

i = i + 1

Loop Until a = "4"

For i = 0 To UBound(MyArray)

nStr = nStr & MyArray(i) & ","

Next

MsgBox nStr

补充：--------------------------------------

不一定要 redim 后才能给数组赋值

Dim MyArray(5)

MyArray(0)=455

MyArray(1)=500

因为这时数组中已有元素 0 到 5 号

下面的用法就必须 redim 后才能给数组赋值

dim MyArray()'定义动态数组，此时数组中一个元素都没有

ReDim Preserve MyArray(3)'重定义数组的元素 为 0 到 3 号

MyArray(0)=455

MyArray(1)=500

MyArray(2)=2

MyArray(3)=78

For i = 0 To UBound(MyArray)

nStr = nStr & MyArray(i) & ","

Next

表示：将数组的所有元素用字符串形式连在一起，用“,”分隔，便于显示。

UBound(MyArray) 表示数组元素的最大序号。参见：

以上就是关于vb ubound函数详解全部的内容，包括:vb ubound函数详解、求VBS给数组排序的代码，越简单越好，好的我再加分、关于 VBS中的 数组变量等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！