انظر المقالات ذات الصلة:
http://www.csdn.net/develop/read_article.asp؟id=22695
تمت إضافة هذه المقالة على أساس هذا ، إضافة بعض الوظائف المناسبة للمواقع الإلكترونية الصينية ، ربما لم يتجدد بعضها. التقاطع
<٪
صفات فئة
'****************************************** *** **********************************
'' function الوصف: استبدل السلسلة بمصفوفة نوع char
'parameter الوصف: -DR [سلسلة]: سلسلة يجب تحويلها
'' @return القيمة: - [صفيف] صفيف نوع char
'****************************************** *** **********************************
وظائف عامة
redim Chararray (Len (Str))
لأني = 1 إلى لين (str)
Chararray (I-1) = Mid (Str ، I ، 1)
التالي
Tocharrray = Chararray
وظيفة نهاية
'****************************************** *** **********************************
'' function الوصف: تحويل صفيف إلى سلسلة
'parameter الوصف: -arr [صفيف]: يجب تحويل البيانات
'' return value: - [سلسلة] سلسلة
'****************************************** *** **********************************
وظائف عامة (Byval ARR)
لأني = 0 إلى Ubound (ARR)
strobj = strobj & arr (i)
التالي
arraytring = strobj
وظيفة نهاية
'****************************************** *** **********************************
'' function الوصف: تحقق مما إذا كانت سلسلة المصدر تبدأ بـ chars
'' parameter الوصف: -str [سلسلة]: سلسلة المصدر
'parameter الوصف: -chars [سلسلة]: حرف مقارنة/سلسلة
'' regurn value: - [Bool]
'****************************************** *** **********************************
الوظيفة العامة startswith (Byval Str ، chars)
إذا ترك (str ، len (chars)) = chars ثم
startswith = صحيح
آخر
startswith = خطأ
إنهاء إذا
وظيفة نهاية
'****************************************** *** **********************************
'' function الوصف: تحقق مما إذا كانت سلسلة المصدر تنتهي مع chars
'' parameter الوصف: -str [سلسلة]: سلسلة المصدر
'parameter الوصف: -chars [سلسلة]: حرف مقارنة/سلسلة
'' regurn value: - [Bool]
'****************************************** *** **********************************
الوظيفة العامة endswith (Byval Str ، chars)
إذا كان صحيحًا (str ، len (chars)) = chars ثم
endswith = صحيح
آخر
endswith = خطأ
إنهاء إذا
وظيفة نهاية
'****************************************** *** **********************************
'' function الوصف: نسخ n string str
'' parameter الوصف: -str [سلسلة]: سلسلة المصدر
'parameter الوصف: -n [int]: عدد النسخ المتماثلة
'' return value: - [سلسلة] نسخ السلسلة
'****************************************** *** **********************************
استنساخ الوظيفة العامة (Byval Str ، N)
لأني = 1 إلى ن
القيمة = القيمة و Str
التالي
استنساخ = القيمة
وظيفة نهاية
'****************************************** *** **********************************
'' function الوصف: حذف أحرف N الواجهة من Source String str
'' parameter الوصف: -str [سلسلة]: سلسلة المصدر
'parameter الوصف: -n [int]: عدد الأحرف المحذوفة
'' return value: - [string] تم حذف السلسلة
'****************************************** *** **********************************
الوظيفة العامة trimstart (Byval Str ، N)
القيمة = منتصف (str ، n+1)
trimstart = القيمة
وظيفة نهاية
'****************************************** *** **********************************
'' function الوصف: حذف سلسلة n الأخيرة من سلسلة المصدر str
'' parameter الوصف: -str [سلسلة]: سلسلة المصدر
'parameter الوصف: -n [int]: عدد الأحرف المحذوفة
'' return value: - [string] تم حذف السلسلة
'****************************************** *** **********************************
تزيين الوظيفة العامة (Byval Str ، N)
القيمة = اليسار (str ، len (str) -n))
تقليم = قيمة
وظيفة نهاية
'****************************************** *** **********************************
'' function الوصف: تحقق مما إذا كانت حرف الحرف هي حرف إنجليزي AZ أو AZ
'parameter الوصف: -character [char]: تم التحقق من الحرف
'' @RETURN VALUE: - [Bool] إذا كانت شخصية باللغة الإنجليزية ، فأعود صحيحًا ، بطريقة خاطئة
'***********************
|||| ..