繁体中文
设为首页
加入收藏
当前位置:ASP技术首页 >> ASP技巧 >> 一个非常简单的将半角"转换为中文“的函数

一个非常简单的将半角"转换为中文“的函数

2006-04-15 08:00:00  作者:  来源:互联网  浏览次数:0  文字大小:【】【】【
简介:   function new_str(str) if instr(str,chr(34))0 and str"" then str_split=split(str,chr(34)) i=1 str_s="" for j=0 to ubound(str_split)-1 if i mod 2 then str_s=str_s&str_split(j)&"“"&str_split(j+...

   function new_str(str)

if instr(str,chr(34))<>0 and str<>"" then

str_split=split(str,chr(34))

i=1

str_s=""

for j=0 to ubound(str_split)-1

if i mod 2 then

str_s=str_s&str_split(j)&"“"&str_split(j+1)

else

str_s=str_s&str_split(j)&"”"&str_split(j+1)

end if

i=i+1

next

end function

责任编辑:admin
相关文章