Office中国论坛/Access中国论坛

标题: 【Access小品】引经据典 --- 格式化替换字符串示例 [打印本页]

作者: todaynew 时间: 2015-4-23 18:25
标题: 【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

示例：[attach]56210[/attach]

视图：
[attach]56211[/attach]

作者: 风中漫步 时间: 2015-4-23 18:52
看着不错.挺好的功能.

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

作者: 好运牛 时间: 2015-8-13 23:59
不错，不错挺好的

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)