Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > 源码示例

【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


示   例

点击下载此示例


视  




Access软件网官方交流QQ群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助