إنه معقد نسبيًا ويمكنه دعم مجموعة متنوعة من الشخصيات المنطقية ، بما في ذلك مساحات +-أندور ، وما إلى ذلك ، ويمكن إضافتها حسب الحاجة. يمكنك اختيار الجدول الذي يجب البحث فيه وفقًا للشروط ، وقد تم تحسين السرعة ، والتي يمكن قولها أنها سريعة جدًا. بالطبع ، لأنه كتب من قبل ، هناك العديد من المشاكل. يتم استخدام جميع ميزات SQLServer تقريبًا في الإجراءات المخزنة ، مثل المؤشر (ترقيم ترقيم مجموعة السجلات) ، وما إلى ذلك. حسنًا ، لا تتفاخر بعد الآن ، فقط شاهد البرنامج بنفسك.
وظيفة ASP
نسخة الكود كما يلي:
وظيفة almoalsekey (A_STRSOURCE)
dimm_strdest ، m_intloop
dimm_intbeginpos ، m_intendpos
dimm_strhead ، m_strmiddle ، m_strady
m_strdest = a_strsource
'-------------------------------------------------------------------------------------------------------------------------------
أولاً قم بإزالة المساحات في النهاية
m_strdest = ltrim (rtrim (m_strdest))
"استبدل & ،" و ، إلخ. مع +، -، المسافات
m_strdest = استبدال (m_strdest ، "&" ، "+")
m_strdest = استبدال (m_strdest ، "و" و "+")
m_strdest = استبدال (m_strdest ، "أو" ، chr (32))
m_strdest = استبدال (m_strdest ، "لا" ، "-")
تهيئة المتغير لجعل الحلقة التالية تذهب
m_intbeginpos = 1
dowhilem_intbeginpos <> 0
m_intbeginpos = instr (m_strdest ، chr (32))
IFM_INTBEGINPOS <> 0THEN'IF تم العثور على مساحة
m_strhead = rtrim (ltrim (يسار (m_strdest ، m_intbeginpos)))))
Callprint ("[analyseKeyword ()]: Process Space m_strhead ="+m_strhead)
m_strada = rtrim (ltrim (يمين (m_strdest ، len (m_strdest) -m_intbeginpos)))))))))))))))))))))
Callprint ("[analysekeyword ()]: Process Space m_strille ="+m_strach)