************************
'Fungsi fungsi: mengembalikan salah satu nilai yang dipilih berdasarkan kondisi benar atau salah
'Parameter: BlnCondition: Variabel Kondisi, Varresulttrue: Nilai Pengembalian Saat Kondisinya Benar, VarresultFalse: Nilai Pengembalian Saat Kondisinya Salah
FunctionIf (blncondition, varresulttrue, varresultfalse)
Ifcbool (blncondition) lalu
IIF = Varresulttrue
Kalau tidak
IIF = VarresultFalse
Endif
Fungsi endfungsi
'***********************
'Fungsi fungsi: Menentukan apakah elemen string dalam enum yang diberikan
'Artikel: Sele: String Untuk Dihitung, Sarray: Tentukan Enum
'Misalnya: Tentukan apakah file gambar didasarkan pada ekstensi: inarray (strfileext, "jpg, gif, bmp, png")
FunctionInarray (Sele, Sarray)
Dimaarray
Dimi
Aarray = split (Sarray, ",")
Fori = 0toubound (aarray)
Iftrim (sele) = trim (aarray (i)) lalu
Inarray = true
Fungsi keluar
Endif
Berikutnya
Inarray = false
Fungsi endfungsi
'***********************
'Fungsi fungsi: Tentukan apakah string sesuai dengan ekspresi reguler
'Argumen: strstring: string, strpattern: ekspresi reguler
FunctionDoretest (strString, strpattern)
Dimore
Setore = newregexp
Ore.pattern = strpattern
Ore.ignorecase = true
doretest = ore.test (strString)
Setore = tidak ada
Fungsi endfungsi
'***********************
'Fungsi fungsi: ekstraksi reguler
'Argumen: String: String, Patrn: Ekspresi Reguler
'Return: Comma-Segment of Hasil Array
FunctionDoreExec (Strng, Patrn)
Dimregex, kecocokan, kecocokan, retstr 'menciptakan variabel.
SetRegex = newregexp 'menciptakan ekspresi reguler.
Regex.pattern = Mode Patrn'Set.
Regex.ignorecase = true 'diatur ke case tidak sensitif.
pengaturan regex.global = true 'berlaku secara global.
SetMatches = regex.execute (strng) 'melakukan pencarian.