Die Codekopie lautet wie folgt:
FunktionNew_str (str)
ifinstr (str, chr (34)) <> 0andstr <> "" dann
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)
anders
str_s = str_s & str_split (j) & "" & str_split (j+1)
Endif
i = i+1
nächste
Endfunktion