乐筑天下

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

vba里面没有split函数,有没有类似的函数呢

[复制链接]

28

主题

117

帖子

4

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
229
发表于 2004-2-25 12:19:00 | 显示全部楼层 |阅读模式
比如:filenames() = Split(cd.FileName, vbNullChar)
回复

使用道具 举报

26

主题

177

帖子

7

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
281
发表于 2004-2-25 17:31:00 | 显示全部楼层
有split函数的
Split函数
                       
                       
描述
返回一个下标从零开始的一维数组,它包含指定数目的子字符串。
语法
Split(expression[, delimiter[, limit[, compare]]])
Split函数语法有如下命名参数:
部分[/td]
描述[/td]expression
必需的。包含子字符串和分隔符的字符串表达式 。如果expression是一个长度为零的字符串(""),Split则返回一个空数组,即没有元素和数据的数组。delimiter
可选的。用于标识子字符串边界的字符串字符。如果忽略,则使用空格字符(" ")作为分隔符。如果delimiter是一个长度为零的字符串,则返回的数组仅包含一个元素,即完整的 expression字符串。limit
可选的。要返回的子字符串数,–1表示返回所有的子字符串。compare
可选的。数字值,表示判别子字符串时使用的比较方式。关于其值,请参阅“设置值”部分。
设置值
compare参数的设置值如下:
常数[/td]
值[/td]
描述[/td]vbUseCompareOption
–1
用Option Compare语句中的设置值执行比较。vbBinaryCompare
0
执行二进制比较。vbTextCompare
1
执行文字比较。vbDatabaseCompare
2
仅用于Microsoft Access。基于您的数据库的信息执行比较。
回复

举报

28

主题

117

帖子

4

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
229
发表于 2004-2-25 17:46:00 | 显示全部楼层
奇怪我在VBA里面编译不通过,表示Split没有定义
回复

举报

26

主题

589

帖子

10

银币

中流砥柱

Rank: 25

铜币
693
发表于 2004-2-25 17:58:00 | 显示全部楼层
跟版本有关系,在R2000的VBA是5.0的不支持。而在R2002以上的VBA是6.0的,就支持了。
回复

举报

158

主题

2315

帖子

10

银币

顶梁支柱

Rank: 50Rank: 50

铜币
2951
发表于 2004-2-26 17:50:00 | 显示全部楼层
如果是R2000版,可以在实用函数栏目中找到该自定义函数
回复

举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-16 15:00 , Processed in 1.797954 second(s), 62 queries .

© 2020-2025 乐筑天下

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