اعتراض سلسلة الطول الفعلي واستبدالها بمسافات

وظيفة Cutstr (thestr، srlen)

خافت ل، ر، ج

ل = لين (thestr)

ر = 0

من أجل dxy=1 إلى l

ج=أبس(تصاعدي(منتصف(thestr,dxy,1)))

إذا ج> 255 ثم

ر=ر+2

آخر

ر=ر+1

نهاية إذا

إذا ر>=نجمة ثم

ثيف = اليسار (thestr، dxy)

الخروج ل

آخر

bu=star-t

لbui=1 إلى bu

ستربو=

strbuall=strbull&strbu

التالي

thev=thestr&strbuall

ستربو=

strbuall=

نهاية إذا

التالي

Cutstr=thev

وظيفة النهاية

<%

'=================================================

's_cut_cut(نوع، عدد)

"حسب: رقاقات الثلج

'نوع الأداة، رقم

'النوع: تحديد الاستثناء

'num: تمكين مفاتيح لوحة الترخيص

"=================================================================================

الدالة w_cut(الأنواع،الأعداد)

أنواع ctum، cnum، ci، tt، tc، cc

ctypes=types:cnum=int(num):w_cut=:tc=0:cc=0

لـ ci=1 إلى الطول(ctypes)

إذا cnum<0 ثم w_cut=w_cut&...:exit for

tt = منتصف (ctypes،ci،1)

إذا int ( asc ( tt ) ) >= 0 إذن

w_cut=w_cut&tt

ح = ح + 1: سم مكعب = سم + 1

إذا ح = 2 ثم

ح=0:cnum=cnum-1

نهاية إذا

إذا كانت cc > 5 فإن cnum = cnum - 1 : cc =

آخر

cnum=cnum-1

إذا cnum<=0 ثم w_cut=w_cut&...:exit for

w_cut=w_cut&tt

نهاية إذا

التالي

وظيفة النهاية

%>