Public Function strChar(ByVal Str As String) As String
Dim ReStr As String = Str
If Not ((Str = "") OrElse (Str Is Nothing)) Then
If (Str.Length > 0) Then
ReStr = Str.Replace(""& vbLf, "").Replace(""& vbTab, "").Replace(""& vbCr, "")
End If
End If
Return ReStr
End Function
vbLf --- 回车换行符
vbTab ---Tab键
vbCr ---制表符