نسخة الكود كما يلي:
<٪
classStringPortations
'' ************************************************************************
'' 'function الوصف: قم بتبديل السلسلة إلى صفيف char
'' 'parameter الوصف: -STR [سلسلة]: سلسلة يجب تحويلها
'' '' قيمة:-[صفيف] صفيف نوع char
'' ************************************************************************
PublicFunction Tochararray (Byvalsstr)
Redimchararray (Len (Str))
fori = 1tolen (Str)
Chararray (I-1) = Mid (Str ، I ، 1)
التالي
Tochararray = Chararray
الوظيفية
'' ************************************************************************
'' 'function الوصف: تحويل صفيف إلى سلسلة
'' 'parameter الوصف: -arr [صفيف]: البيانات التي يجب تحويلها
'' '' قيمة العودة:-[سلسلة] سلسلة
'' ************************************************************************
PublicFunctionArrayToString (Byvalarr)
fori = 0toubound (ARR)
strobj = strobj & arr (i)
التالي
arrayToString = strobj
الوظيفية
'' ************************************************************************
"'' function الوصف: تحقق مما إذا كانت سلسلة المصدر تبدأ بـ chars
'' 'parameter الوصف: -STR [سلسلة]: سلسلة المصدر
'' 'parameter الوصف: -chars [سلسلة]: الحرف/السلسلة المقارنة
'' 'قيمة العودة:-[Bool]
'' ************************************************************************
PublicFunctionStartswith (Byvalsstr ، chars)
ifleft (str ، len (chars)) = charsthen
startswith = صحيح
آخر
startswith = خطأ
Endif
الوظيفية
'' ************************************************************************
"'' function الوصف: تحقق مما إذا كانت سلسلة المصدر ستنتهي مع chars
'' 'parameter الوصف: -STR [سلسلة]: سلسلة المصدر
'' 'parameter الوصف: -chars [سلسلة]: الحرف/السلسلة المقارنة
'' 'قيمة العودة:-[Bool]
'' ************************************************************************
PublicFunctionEndswith (Byvalsstr ، chars)
ifright (str ، len (chars)) = charsthen
endswith = صحيح
آخر
endswith = خطأ
Endif
الوظيفية
'' ************************************************************************
'' 'function الوصف: نسخ n سلاسل