من أجل منع العملاء من إدخال الحرف الكامل (نصف الزاوية) عند الدخول ، نحتاج إلى تحويله إلى الحرف النصف الصحيح (الكامل) من خلال البرنامج ، وهي وظيفة معينة.
<٪
'*******************************
'*الوصف المعلمة:
'*str: سلسلة ليتم تحويلها
'*العلم: مارك ، اتجه بالكامل في الساعة 0:00 ، واتجه إلى النصف عندما يكون غير -0
'*نوع قيمة الإرجاع: سلسلة
'*******************************
FunctionDBC2SBC (STR ، Flag)
ديمي
iflen (str) <= 0then
استجابة. write (معلمات السلسلة فارغة)
exitfunction
Endif
fori = 1tolen (Str)
Str1 = ASC (Mid (Str ، i ، 1)))
ifstr1> 0andstr1 <= 125andnotflagthen
DBC2SBC = DBC2SBC & CHR (ASC (MID (STR ، I ، 1)) -23680)
آخر
DBC2SBC = DBC2SBC & CHR (ASC (MID (STR ، I ، 1))+23680)
Endif
التالي
الوظيفية
٪>