一个将半角"转换为中文“的函数

     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
  

原文转自：http://www.ltesting.net