Salinan kode adalah sebagai berikut:
functionNew_str (str)
ifinstr (str, chr (34)) <> 0andstr <> "" Lalu
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)
kalau tidak
str_s = str_s & str_split (j) & "" & str_split (j+1)
endif
i = i+1
Berikutnya
fungsi endfungsi