وظيفة بسيطة للغاية لتحويل نصف عرض إلى صيني

نسخة الكود كما يلي:

functionnew_str (str)

ifinstr (str ، chr (34)) <> 0andstr <> "" ثم

str_split = split (str ، chr (34))

أنا = 1

str_s = ""

forj = 0toubund (str_split) -1

Ifimod2then

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

التالي

الوظيفية