Office中国论坛/Access中国论坛

标题: [原创]非常好用的Format函数 [打印本页]

作者: fan0217 时间: 2008-7-6 17:43
标题: [原创]非常好用的Format函数

也许你在其他开发语言中看到过，或者看到过类似的语句：Format("http://mail.qq.com/loginpage.asp?id={0}", 2364783)，这个Format会返回什么样的结果呢？它返回的是：http://mail.qq.com/loginpage.asp?id=2364783。怎么样很有意思吧？但在VBA开发中我们想用却没有这样的函数，那怎么办？嘿嘿！还是我们自己动手丰衣足食。

Public Function ArrayFormat(expression As String, ParamArray formatException()) As String
Dim strFind As String, strReplace As String, strTemp As String
Dim i As Integer
strTemp = expression
For i = 0 To UBound(formatException)
strFind = "{" & i & "}": strReplace = formatException(i)
strTemp = Replace(strTemp, strFind, strReplace)
Next
ArrayFormat = strTemp
End Function

代码很短吧，只有10行。但它会带给我们一份不一样的感受。

我们先来个测试：

Sub Test()
Dim str As String
str = "他们分别来自：{0}、{1}、{2}、{3}、{4}、{5}"
Debug.Print ArrayFormat(str, "北京", "上海", "广州", "山东", "福建", "海南")
End Sub

执行上面的代码可在立即窗体中看到：他们分别来自：北京、上海、广州、山东、福建、海南。这相对于用 & 来串接字符串是否要方便些呢？

使用这个函数有以下注意事项：

1、格式项的语法是{index}。index 为从零开始的整数，指示对象列表中要格式化的元素。如果由 index
指定的对象是空，则格式项将忽略。

2、expression必须使用前导大括号字符和后缀大括号字符，即“{”和“}”。若要在expression中指定单个大括号字符，请指定两个前导大括号字符或后缀大括号字符（即“{{”或“}}”）。

3、当可选参数formatSting的的最大下标（即：UBound(formatException)）与格式项中index 的数值不相符时，不相符的部分都将被忽略。

例如：

Sub Test1()
Dim str As String
str = "他们分别来自：{0}、{1}、{2}、{3}"
Debug.Print ArrayFormat(str, "北京", "上海", "广州", "山东", "福建", "海南")
End Sub

返回：他们分别来自：北京、上海、广州、山东。

Sub Test2()
Dim str As String
str = "他们分别来自：{0}、{1}、{2}、{3}、{4}、{5}"
Debug.Print ArrayFormat(str, "北京", "上海", "广州")
End Sub

返回：他们分别来自：北京、上海、{2}、{3}、{4}、{5}。

所以在使用这个函数的时候要特别注意这点。

作者: fan0217 时间: 2008-7-6 17:43
这个函数其实很有用途，比如我们经常使用的SQL语句设置参数的时候。当使用 & 经常字符串串接的时候，很容易出现错误。我们使用这个函数就变得异常简单了。

Sub Test2()
Dim str As String
str = "SELECT * FROM [Table] WHERE ID ={0} AND Name ='{1}';"
Debug.Print ArrayFormat(str, 25, "fans")
End Sub

返回：SELECT * FROM [Table] WHERE ID =25 AND Name ='fans';

看到了吧，这就是这个短短的函数的威力。

当我们配合正则表达式一起来定义这个函数的时候，它的威力就更强大了，可以实现很多复杂的功能。

作者: 红尘如烟 时间: 2008-7-6 20:02
很女子,很弓虽大,学习ing...... [:30]

作者: ganrong 时间: 2008-7-7 09:46
提示: 作者被禁止或删除内容自动屏蔽

作者: lupo 时间: 2008-7-7 10:22
的确很不错啊，我慢慢体会一下。

作者: goto2008 时间: 2008-7-19 15:35
能否弄个库??????????[:30]

作者: fan0217 时间: 2016-12-13 22:47
补充例子

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)