我现在要用一个数组,下标是随机的不确定,有时会会很大
所以我这样定义不知道对不对
Public NewStrline(6000000) As String '转换之后而且我这数组在读取内容前或者后,要将数组还原,也就是清空数组里面的内容,方便再次读取
下边是我的部分代码,也就是在M=0的时候就要初始化数组,不然在NewStrline(m) = NewStrline(m) + a(i) 会出错
Dim a() As String: Dim m: Dim i
m = 0
Open fileName For Input As #intFilenum
Do
Line Input #intFilenum, Strline
Deltblank '去除空格
a = Split(Trim(Strline))
WindDrctSwitchBefore = a(NumSwichCol - 1)
SwitchType WindDrctSwitchBefore, TypeFlag
a(NumSwichCol - 1) = WindDrctSwitchAfter
m = m + 1
For i = 0 To UBound(a)
NewStrline(m) = NewStrline(m) + a(i)
Next
NewStrline(m) = Trim(NewStrline(m))
Loop While Not EOF(intFilenum)
Close #intFilenum
所以我这样定义不知道对不对
Public NewStrline(6000000) As String '转换之后而且我这数组在读取内容前或者后,要将数组还原,也就是清空数组里面的内容,方便再次读取
下边是我的部分代码,也就是在M=0的时候就要初始化数组,不然在NewStrline(m) = NewStrline(m) + a(i) 会出错
Dim a() As String: Dim m: Dim i
m = 0
Open fileName For Input As #intFilenum
Do
Line Input #intFilenum, Strline
Deltblank '去除空格
a = Split(Trim(Strline))
WindDrctSwitchBefore = a(NumSwichCol - 1)
SwitchType WindDrctSwitchBefore, TypeFlag
a(NumSwichCol - 1) = WindDrctSwitchAfter
m = m + 1
For i = 0 To UBound(a)
NewStrline(m) = NewStrline(m) + a(i)
Next
NewStrline(m) = Trim(NewStrline(m))
Loop While Not EOF(intFilenum)
Close #intFilenum
解决方案 »
- excel复制一个方格到vb文本框,但是尾部有两个不可见的特殊符号,怎么样,让vb自动去掉这两个符号!
- 关于UPnp NAT 的问题
- [讨论]如何以其他用户身份运行程序?
- 如何去掉textbox控件的右击快捷菜单?
- 有谁直接用VB类做过窗体,进来探讨一下.
- 请教高手,如何锁定窗体的大小,在运行时,不能用鼠标调整其大小?
- 程序打包时总是提示ActiveX部件不能创建对象,是什么原因阿!!!!!急!!!!!!!!!!
- ReadProcessMemory的问题
- 如何把数据库数据导出到EXCEL
- 分区,但是不破坏硬盘上的东西.
- 怎么不让别人看到我数据库结构呢?
- 帮忙投一票,谢谢!http://news.cyxw.cc/Vote/XCZJ/8684.html
public ubd as integer '数组大小ubd = 100
ReDim NewStrline(100)If ubound(NewStrline)+5 >= ubd Then '5是个提前量,大小可灵活设定
ubd = ubd + 100
ReDim Preserve p0(1, ubd) '重新定义数组
End If
应为:
ReDim Preserve NewStrline(ubd) '重新定义数组