版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/I_Order/article/details/60879115
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