1. سلاسل اعتراضية نقية
نسخة الكود كما يلي:
FunctionCutstr (thestr1 ، strlen)
Diml ، T ، ج
l = len (thestr1)
IFL <1thenexitfunction
t = 0
fordxy1 = 1tol
C = ABS (ASC (MID (THESTR1 ، DXY1،1))))))))
IFC> 255then
t = t+2
آخر
t = t+1
Endif
IFT> = Strlenthen
thev = mid (thestr1،1 ، dxy1)
الخروج
آخر
thev = thestr1
Endif
التالي
cutstr = thev
الوظيفية
2. اعتراض السلسلة ، استخدم المساحات لملئها
نسخة الكود كما يلي:
FunctionCutstr (thestr ، strlen)
Diml ، T ، ج
L = Len (thestr)
t = 0
fordxy = 1tol
C = ABS (ASC (Mid (thestr ، dxy ، 1)))))
IFC> 255then
t = t+2
آخر
t = t+1
Endif
IFT> = Strlenthen
thev = اليسار (thestr ، dxy)
الخروج
آخر
bu = strlen-t
forbui = 1tobu
strbu = ""
strbuall = strbuall & strbu
التالي
thev = thestr & strbull
strbu = ""
strbuall = ""
Endif
التالي
cutstr = thev
الوظيفية