打印本文 打印本文  关闭窗口 关闭窗口  
一个非常简单的将半角"转换为中文“的函数
作者:不详  文章来源:不详  点击数  更新时间:2003/8/2 8:08:16  文章录入:ahui  责任编辑:ahui

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

打印本文 打印本文  关闭窗口 关闭窗口