**************************
دالة الوظيفة: إرجاع إحدى القيم المحددة بناءً على الشرط الحقيقي أو الخاطئ
'المعلمة: blncondition: متغير الشرط ، varresulttrue: قيمة الإرجاع عندما تكون الحالة صحيحة ، varresultfalse: قيمة الإرجاع عندما تكون الحالة خاطئة
functioniif (blncondition ، varresulttrue ، varresultfalse)
IFCBOOL (blncondition) ثم
IIF = varresulttrue
آخر
IIF = varresultfalse
Endif
الوظيفية
'*********************
وظيفة الوظيفة: يحدد ما إذا كان عنصر السلسلة في التعداد المعطى
"المقالة: SELE: سلسلة يتم الحكم عليها ، ساراي: حدد التعداد
"على سبيل المثال: حدد ما إذا كان ملف الصورة يعتمد على الامتداد: inarray (strfilext ،" JPG ، GIF ، BMP ، PNG ")
وظيفة (سيلي ، ساراي)
Dimaarray
ديمي
Aarray = Split (Sarray ، "،")
fori = 0toubound (Aarray)
iftrim (sele) = trim (aarray (i)) ثم
inarray = صحيح
exitfunction
Endif
التالي
inarray = خطأ
الوظيفية
'*********************
وظيفة الوظيفة: حدد ما إذا كانت السلسلة تتوافق مع تعبير منتظم
'الوسائط: strstring: سلسلة ، strpattern: التعبير العادي
FunctionDoretest (strstring ، strpattern)
ديمور
setore = newregexp
ore.pattern = strpattern
ore.ignorecase = صحيح
doretest = ore.test (strstring)
setore = لا شيء
الوظيفية
'*********************
وظيفة الوظيفة: استخراج منتظم
"الوسائط: سلسلة: سلسلة ، جالن: تعبير منتظم
'العودة: فاصلة مجموعة صفيف النتائج
FunctionDoreExec (Strng ، Gatrn)
Dimregex ، Match ، Matches ، Retstr 'يخلق المتغيرات.
SetRegex = NewRegexp 'يخلق تعبيرًا منتظمًا.
regex.pattern = وضع GARN'SET.
تم تعيين regex.ignorecase = true 'على حالة غير حساسة.
regex.global = true 'إعداد ينطبق عالميا.
setMatches = regex.execute (strng) 'يقوم بالبحث.