×
畅享IT
    信息化规划
    IT总包
    供应商选型
    IT监理
    开发维护外包
    评估维权
客服电话
400-698-9918
当前位置:畅享论坛 >  科技  >  网络|安全 > 正文
发帖
回复
(共 0 条) 上一页 下一页
查看: 0|回复: 0

简单清除字符串中的换行符

[复制链接]

等级:试用期
行业:
职能部门:
城市:广州市
金币:104

实际应用场景中,客户输入的地址中含有回车换行,导致格式转换中出错,因此需要清除掉,方法有二:

1、替换,这个方法只能清除一个回车换行
'检测地址中是否有回车换行
addr = Cells(row1, 12)
If InStr(1, addr,_chr(10), vbBinaryCompare) > 0 Then
MsgBox addr
addr = Replace(addr,_chr(10), "", , , vbBinaryCompare)
addr = Replace(addr,_chr(13), "", , , vbBinaryCompare)
MsgBox addr
Cells(row1, 12) = addr
End If
2、用系统函数,这个方法可以清除所有非打印字符
'检测地址中是否有回车换行
addr = Cells(row1, 12)
If InStr(1, addr,_chr(10), vbBinaryCompare) > 0 Then
MsgBox addr
addr = Application.WorksheetFunction.Clean(addr)
MsgBox addr
Cells(row1, 12) = addr
End If



畅享论坛提示:看帖后顺手回帖,是对辛苦发帖者的鼓励,是美德。

查阅更多相关主题的帖子: 安全法律
(共 0 条) 上一页 下一页
您还未登录,不能对文章发表评论!请先登录
2020-05-26 04:34:42 160/2020-05-26 04:34:42 160/2020-05-26 04:34:42 176