[已解决][求助]关于VBA数组转变数据类型的问题

wbzxz · 发表于 2011-4-25 10:52

本帖最后由 wbzxz 于 2011-4-25 10:54 编辑

这些天在学习过程中，碰到这样一个问题，不知道该如何解决和解释，请大家请指点一下：

问题描述：

有一个数组，里面的元素都是字符型的数字，想转换成长整型的数字；但是有的时候却无法成功；

下面我们先看一下成功的实例：

代码如下：

Option Explicit
Sub test()
Dim arr
Dim i As Integer
arr = Array("1", "2", "3")
Stop
'用循环对arr数组内容进行字符类型的转换
For i = 0 To UBound(arr)
arr(i) = CLng(arr(i))
Next i
Stop
End Sub

复制代码

以上代码运行结果，我们可以看出，类型成功的进行了转换，如下图所示，说明这种转换方法是可行的；

正常arr1.jpg

不成功的实例，但是下面的例子中我却没有成功，代码如下：

Sub Main()
Dim LineString As String
Dim ArrLine, arrNest()
Dim i As Long, j As Integer
Dim filenames
Dim sfilename
j = 1
filenames = getFilename() '获取需要打开的文件名
For Each sfilename In filenames '获得的文件名有可能是个数组，循环处理每个文件
Open sfilename For Input As #1 '打开文本文件
Do While Not EOF(1) '只要没有到文件末尾，就在文本文件内循环
Line Input #1, LineString '读取文本文件一行数据
ArrLine = Split(LineString, ",") 'split函数用来将字符分隔成数组,用","作为分隔符
'这里就是数组类型转换的代码
For i = 0 To UBound(ArrLine)
ArrLine(i) = CLng(ArrLine(i))
Next i
Stop
Loop
Close #1 '关闭文件
Next
End Sub

复制代码

不成功的截图如下：

附件如下:

test.rar (232.83 KB, 下载次数: 12)

阿童木 · 发表于 2011-4-25 11:13

或许Split创建的数组就这毛病

wbzxz · 发表于 2011-4-25 11:14

回复阿童木的帖子

哦，原来是这样的啊，我去测试一下，谢谢amule老师指点啊。

wbzxz · 发表于 2011-4-25 11:23

本帖最后由 wbzxz 于 2011-4-25 11:24 编辑

回复阿童木的帖子

amulee，您说的完全正确，确实是split函数的问题，那我应该怎么样解决这个问题呢？
下面是我的一个解决思路，重新定义一个数组，然后依次把split函数生成的数组元素通过循环赋值给这个数组，赋值的过程中，完成转换；

Sub test()
Dim arr, arr1()
Dim s As String
Dim i As Integer
s = "1,100,200,300"
arr = Split(s, ",")
'arr1 = arr
Stop
ReDim arr1(0 To UBound(arr))
For i = 0 To UBound(arr)
arr1(i) = CLng(arr(i))
Next i
Stop
End Sub

复制代码

但是这个方法感觉真的有些繁琐，请amulee老师指点，有没有什么好的方法啊？

djyjysxxs · 发表于 2011-4-25 11:36

这个最佳答案由 djyjysxxs 给出，感谢 djyjysxxs 的回答。

单击隐藏图章

Split函数
请参阅示例特性

描述

返回一个下标从零开始的一维数组，它包含指定数目的子字符串。

Array 函数
请参阅示例特性

返回一个包含数组的 Variant。

故，可以看到arr = Array("1", "2", "3")之后arr 的每个元素都是variant/string，类型就可变了；而ArrLine = Split(LineString, ",") 后arrline的每个元素是string，你就是直接赋个其它类型给他他也自动转成string型

wbzxz · 发表于 2011-4-25 11:38

回复 djyjysxxs 的帖子

天堂鼠老师，非常感谢您啊。我突然有些理解啦。嘿嘿。
我还是想多问一句，您该如何解决这个问题呢，如何进行转换呢？

wbzxz · 发表于 2011-4-25 11:43

回复 djyjysxxs 的帖子

苦真人，这句是不是应该修改一下
故，可以看到arr = Array("1", "2", "3")之后arr 的每个元素都是variant/string，类型就可变了

改成这样

故，可以看到arr = Array("1", "2", "3")之后arr 的每个元素都是variant/variant，类型就可变了

djyjysxxs · 发表于 2011-4-25 11:50

没明白你的转换是何意。
其实在ArrLine(i) = CLng(ArrLine(i))中，CLng(ArrLine(i))已经进行了准确的转换，只不过将转换后的值再赋给string型的ArrLine(i)的时候，他又转换成了string。也就是说在ArrLine(i) = CLng(ArrLine(i))中进行了两次转换

djyjysxxs · 发表于 2011-4-25 12:06

不能改，你实践一下看看

wbzxz · 发表于 2011-4-25 14:11

回复 djyjysxxs 的帖子

嘿嘿，谢谢苦真人，解释的真清楚啊。

		自动登录	找回密码
密码			注册

[已解决][求助]关于VBA数组转变数据类型的问题

评分