<لغة البرنامج النصي = "vbScript">
شارع خافت
str="كيفية استخراج كافة الأحرف الصينية من صفحة Html؟ لا يمكن أن تكون هناك رموز HTML أخرى."
تنبيه دالة FilterChinese(str)
FilterChinese(strInput)
نتيجة خافتة: النتيجة = ""
dimtempStr
لأني = 1 إلى لين (سترينبوت)
tempStr=mid(strInput,i,1)
إذا بقي (escape(tempStr),2)="%u" ثم
result=result&tempStr
نهاية إذا
التالي
FilterChinese=result
وظيفة النهاية
</SCRIPT>
إذا كان asc(tempStr)>255
فاستخدم طريقة التعبير العادي
<لغة البرنامج النصي = "vbScript">
شارع خافت
str="كيفية استخراج كافة الأحرف الصينية من صفحة Html؟ لا يمكن أن تكون هناك رموز HTML أخرى."
تنبيه RegExpTest("[u4e00-u9fa5]"،str)
الدالة RegExpTest(pattern, strng)
Dim regEx، Match، Matches "إنشاء متغيرات".
Set regEx = New RegExp ' إنشاء تعبير عادي.
regEx.Pattern = patrn ' تعيين النمط.
regEx.IgnoreCase = True ' قم بتعيين ما إذا كنت تريد أن تكون حساسًا لحالة الأحرف.
regEx.Global = True ' تعيين الاستبدال العمومي.
تعيين التطابقات = regEx.Execute(strng) ' تنفيذ البحث.
لكل مباراة في المباريات، قم باجتياز مجموعة المباريات.
RetStr = RetStr & Match.Value
التالي
RegExpTest = RetStr
وظيفة النهاية
</SCRIPT>