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

todaynew

　　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

示例：

视图：

风中漫步

看着不错.挺好的功能.

盗梦

今天发了一个贴，风中漫步提醒你也有差不多的贴。查了一样，基本上是一样的{:soso_e103:}
http://www.office-cn.net/thread-120311-1-1.html

好运牛

不错，不错挺好的