ตัดสตริงความยาวจริงและแทนที่ด้วยช่องว่าง

ฟังก์ชั่น cutstr (thestr, srlen)

สลัว l,t,c

l=เลน(เทสเตอร์)

เสื้อ=0

สำหรับ dxy=1 ถึง l

c=Abs(asc(กลาง(thestr,dxy,1)))

ถ้า c>255 แล้ว

เสื้อ=t+2

อื่น

เสื้อ=t+1

สิ้นสุดถ้า

ถ้า t>=star แล้ว

thev=ซ้าย(thestr,dxy)

ออกเพื่อ

อื่น

bu=star-t

สำหรับ bui=1 ถึง bu

strbu=

strbuall=strbull&strbu

ต่อไป

thev=thestr&strbuall

strbu=

strbuall=

สิ้นสุดถ้า

ต่อไป

cutstr=thev

ฟังก์ชั่นสิ้นสุด

-

-

's_cut_cut(ประเภท,หมายเลข)

'ตาม: เกล็ดหิมะ

'ประเภทเครื่องดนตรีหมายเลข

'ประเภท: SpecifyException

'num: เปิดใช้งานกุญแจป้ายทะเบียนแล้ว

-

ฟังก์ชั่น w_cut(ประเภท,ตัวเลข)

ctypes สลัว, 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

tc=tc+1:ซีซี=ซีซี+1

ถ้า tc=2 แล้ว

tc=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

สิ้นสุดถ้า

ต่อไป

ฟังก์ชันสิ้นสุด

-