【Access小品】引经据典--格式化字符串替换示例

时　间:2015-04-23 18:29:53
作　者:煮江品茶   ID：10802  城市：武汉
摘　要:【Access小品】引经据典 -- 格式化字符串替换示例
正　文:

　　VB.NET中对字符串的处理有很多便捷的方法，其中String.Format方法非常好用。这个方法大体是这样使用的：

　　Dim Str As String
　　Str="Select * From 员工表 Where 性别='{0}' And 入职日期='{1}'"
　　Str=String.Format(Str,"男","1970/1/1")

　　这样处理后，就得到了Select * From 员工表 Where 性别='男' And 入职日期='1970/1/1'，这样的字符串。这比用&符号拼接字符串更方便，可读性也更强。

　　Access中如果想实现同样的功能，是可以写一个自定义函数来模拟的。我们可以将自定义函数这样写：

Public Function ReplaceValues(ByVal str As String, ParamArray pArr() As Variant) As String
    '功能：模仿.Net中的String.Format方法
    Dim str1  As String
    Dim num As String
    Dim i As Integer
    str1 = str
    For i = 0 To UBound(pArr)
        num = "{" & i & "}"
        str1 = Replace(str1, num, pArr(i))
    Next
    ReplaceValues = str1
End Function

示   例：

点击下载此示例

视   图：