打印本文 打印本文  关闭窗口 关闭窗口
将半角转换为中文的函数
作者:采集员 文章来源:来源于网络 点击数: 更新时间:2005/9/10 13:28:44
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



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