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

fan0217

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

这个函数其实很有用途，比如我们经常使用的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';

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

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

红尘如烟

很女子,很弓虽大,学习ing...... [:30]

lupo

的确很不错啊，我慢慢体会一下。

goto2008

能否弄个库??????????[:30]

fan0217

补充例子