【Access小品】引經(jīng)據(jù)典 --- 格式化替換字符串示例

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'，這樣的字符串。這比用&符號拼接字符串更方便，可讀性也更強(qiáng)。

　　Access中如果想實(shí)現(xiàn)同樣的功能，是可以寫一個自定義函數(shù)來模擬的。我們可以將自定義函數(shù)這樣寫：

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

示例：

視圖：

風(fēng)中漫步

看著不錯.挺好的功能.

盜夢

今天發(fā)了一個貼，風(fēng)中漫步提醒你也有差不多的貼。查了一樣，基本上是一樣的{:soso_e103:}
http://mzhfr.cn/thread-120311-1-1.html

好運(yùn)牛

不錯，不錯挺好的