Fungsi kelas. Ganti string yang diteruskan ke dalam ekspresi setelah kata kunci di mana dalam pernyataan SQL:
Pencarian kata [misalnya: xiao ming]
Pencarian frasa
Setiap kata dalam frasa akan diambil
Misalnya: Xiaoqiang 1 nama panggilan 1 Xiaoqiang 1 Xiaoqiang Xiaoqiang
Pencarian logis
Mendukung dan dan atau operator.
Misalnya: Xiao Ming dan Xiao Qiang dan Xiao Qiang
Kondisi majemuk:
Misalnya: (Xiao Xiaoming atau Xiaoming) dan (Xiaoqiang atau Xiaoxiaoqiang)
Misalnya: (Xiao Xiaoming atau nama panggilan) dan Xiao Xiaoqiang
Misalnya: root1 dan (guangdong atau beijing)
-----------------------------------------------------------
Salinan kode adalah sebagai berikut:
Classcrereqequerystring
PublicoBjreg
PublicIntStart
PublicStrfield
PrivateObjnode2
PrivateStrtext
PublicPropertyletQueryString (Strvalue)
strtext = lcase (strvalue)
Endproperty
Privatesubclass_initialize ()
Setobjreg = newregexp
strfield = "(judul + artikel)"
Endsub
Privatesubclass_terminate ()
Setobjreg = tidak ada
Endsub
PublicDefaultFunctionGetText ()
Dimblnres
Dimstrsky
TanpaBjreg
.Ignorecase = true
.Global = true
.Pattern = "/s"
blnres = .test (strtext)
Endwith
If (notblnres) lalu
intstart = 2
Gettext = strfield & "like '%" & strtext & "%'"
Kalau tidak