从数据库取数据时，带有回车/换行符替换方法

最新推荐文章于 2022-02-28 14:25:03 发布

烟在找抽

最新推荐文章于 2022-02-28 14:25:03 发布

阅读量6.4k

点赞数

分类专栏：实时笔记

本文链接：https://blog.csdn.net/i_order/article/details/60879115

版权

实时笔记专栏收录该内容

13 篇文章 0 订阅

订阅专栏

本文介绍了一种使用VBA进行字符串处理的方法，具体为去除字符串中的特定字符如单引号、回车符等，这对于打印前的数据准备非常有用。通过几个简单的替换操作，可以有效地清理字符串，确保其在打印时的表现符合预期。

摘要由CSDN通过智能技术生成

    Public Shared Function delEnterCharForPrint2(ByVal 
    strValue As String) As String
        Dim strReturn As String = strValue
        '单引号（因为后面会加入单引号，所以必须先替换单引号）
        strReturn = strReturn.Replace(Chr(39).ToString, "'+ String.fromCharCode(39) +'")
        '替换回车符
        strReturn = strReturn.Replace(Chr(10).ToString, "'+ String.fromCharCode(10) +'")
        strReturn = strReturn.Replace(Chr(13).ToString, "'+ String.fromCharCode(13) +'")
        strReturn = strReturn.Replace(Chr(92).ToString, "'+ String.fromCharCode(92) +'")
        Return strReturn
    End Function