乐筑天下

帖子
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 144|回复: 4

有关split函数问题

[复制链接]

110

主题

324

帖子

10

银币

中流砥柱

Rank: 25

铜币
764
发表于 2016-3-16 10:37:00 | 显示全部楼层 |阅读模式
‘请问高手,我的cad是2010版本,使用split函数分解字符串时出现了一个奇怪的现象
’按道理应该是arr(0)=1;arr(1)=2;arr(2)=3;。。。arr(5)=6;
'在我的电脑中输出的结果是:arr(0)=;arr(1)=,2,3,4,5,6;这是错误的结果,不知是什么原因?
'请高手赐教,谢谢
Sub tt2() '20160316
    Dim s As String
    Dim sl As String
    Dim i As Integer
    Dim arr() As String
    s = "1,2,3,4,5,6"
    arr = Split(s, ",")
    For i = 0 To UBound(arr)
        sl = sl + "arr(" + str(i) + ")=" + arr(i) + ";"
    Next i
    MsgBox sl
End Sub

u0wuvga1teq.png

u0wuvga1teq.png

回复

使用道具 举报

Kye

12

主题

83

帖子

10

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
129
发表于 2016-3-16 13:46:00 | 显示全部楼层
我没有学过VBA
图片用vb6 运行你程序的结果

3kycqcbogvw.jpg

3kycqcbogvw.jpg

回复

举报

85

主题

1175

帖子

11

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1518
发表于 2016-3-16 14:04:00 | 显示全部楼层
2012vba结果同沙发,没问题。2010带的vba也是vb6吧?建议楼主一步步的执行看出了什么问题。
另外如果字符串的话,建议用&而不用+,免得混淆。
回复

举报

0

主题

14

帖子

2

银币

初来乍到

Rank: 1

铜币
14
发表于 2016-4-25 14:46:00 | 显示全部楼层
那为什么不直接把arr=array(1,2,3,4,5,6)来自: Android客户端
回复

举报

110

主题

324

帖子

10

银币

中流砥柱

Rank: 25

铜币
764
发表于 2016-4-29 16:23:00 | 显示全部楼层
问题已经解决了,使用split(,,,)的函数,即再增加一个参数即可,split(a,",",-1,vbTextCompare)
回复

举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁體中文

GMT+8, 2025-3-13 17:39 , Processed in 2.367139 second(s), 65 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表