ฟังก์ชั่นที่ง่ายมากในการแปลงความกว้างครึ่งเป็นภาษาจีน

การคัดลอกรหัสมีดังนี้:

functionNew_str (str)

ifinstr (str, chr (34)) <> 0andstr <> ""

str_split = split (str, ch (34))

i = 1

str_s = ""

forj = 0toubund (str_split) -1

ifimod2 จากนั้น

str_s = str_s & str_split (j) & "" & str_split (j+1)

อื่น

str_s = str_s & str_split (j) & "" & str_split (j+1)

endif

i = i+1

ต่อไป

endfunction