怎么将字符串赋值给字符数组?
如何将字符串赋值给字符数组???
dim nCntArray as Integer '此变量是一计数器
dim sPrtTime as String '此变量是一形式为10.51的字符串
Private sArray() As String '数组
While sNextFile <> " "
nCntArray = nCntArray + 1
sNextFile = Dir$
Wend
For i = 1 To nCntArray
sArray(i) =sPrtTime '此处出错,应该如何赋值,将sPrtTime存入数组???
Next i
------解决方案--------------------
redim sArray(0)
For i = 1 To nCntArray
redim preserve sprttime(ubound(sprttime)+1)
sArray(ubound(sprttime)) =sPrtTime
Next i
------解决方案--------------------
Redim sArray(1 to nCntArray) '需要定义数组的大小, 否则不能操作它
For i = 1 To nCntArray
sArray(i) =sPrtTime
Next i
------解决方案--------------------
动态数组,需要使用REDIM定义大小
------解决方案--------------------
dim nCntArray as Integer '此变量是一计数器
dim sPrtTime as String '此变量是一形式为10.51的字符串
dim sArray() As String '数组
While sNextFile <> " "
nCntArray = nCntArray + 1
sNextFile = Dir$
Wend
redim sArray(1 to nCntArray) As String
For i = 1 To nCntArray
sArray(i) =sPrtTime '此处出错,应该如何赋值,将sPrtTime存入数组???
Next i
dim nCntArray as Integer '此变量是一计数器
dim sPrtTime as String '此变量是一形式为10.51的字符串
Private sArray() As String '数组
While sNextFile <> " "
nCntArray = nCntArray + 1
sNextFile = Dir$
Wend
For i = 1 To nCntArray
sArray(i) =sPrtTime '此处出错,应该如何赋值,将sPrtTime存入数组???
Next i
------解决方案--------------------
redim sArray(0)
For i = 1 To nCntArray
redim preserve sprttime(ubound(sprttime)+1)
sArray(ubound(sprttime)) =sPrtTime
Next i
------解决方案--------------------
Redim sArray(1 to nCntArray) '需要定义数组的大小, 否则不能操作它
For i = 1 To nCntArray
sArray(i) =sPrtTime
Next i
------解决方案--------------------
动态数组,需要使用REDIM定义大小
------解决方案--------------------
dim nCntArray as Integer '此变量是一计数器
dim sPrtTime as String '此变量是一形式为10.51的字符串
dim sArray() As String '数组
While sNextFile <> " "
nCntArray = nCntArray + 1
sNextFile = Dir$
Wend
redim sArray(1 to nCntArray) As String
For i = 1 To nCntArray
sArray(i) =sPrtTime '此处出错,应该如何赋值,将sPrtTime存入数组???
Next i