The code copy is as follows:
functionnew_str(str)
ifinstr(str,chr(34))<>0andstr<>""then
str_split=split(str,chr(34))
i=1
str_s=""
forj=0toubund(str_split)-1
ifimod2then
str_s=str_s&str_split(j)&""&str_split(j+1)
else
str_s=str_s&str_split(j)&""&str_split(j+1)
endif
i=i+1
next
endfunction