[原创]非常好用的Format函数

2008-7-6 23:06| 发布者: 5988143| 查看: 4855| 评论: 9

也许你在其他开发语言中看到过，或者看到过类似的语句：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}。

[size=10.5pt]所以在使用这个函数的时候要特别注意这点。

收藏分享邀请

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

[原创]非常好用的Format函数

相关阅读

最新评论

相关分类