vb如何过滤chr(13)

Rokudo 发布于 2013/12/03 13:27
阅读 125
收藏 0
RT
加载中
0
HandMU
HandMU
replace chr(13)?
0
Rokudo
Rokudo
function removechr(ByVal str)
	'str=Replace(str,chr(13)," ")
	result=""
	strlen=len(str)
	for i=1 to strlen
		if asc(mid(str,i,1))=13 then
			result=result+" "
			else
			result=result+mid(str,i,1)
		end if
	next
	removechr=result
end function'没效果。。。



0
zhizhang007
zhizhang007
你说的是字符串还是,回车?
zhizhang007
zhizhang007
@Rokudo fString = Replace(fString, CHR(13), "") 这样就可以了呀~
Rokudo
Rokudo
回车
返回顶部
顶部