هذه المقالة عبارة عن مقال وجدته حول الشرح التفصيلي لاستخدام التعبيرات العادية ضمن ASP وأوصي الجميع بقراءته. انسخ رمز الكود كما يلي:
إعادة خافتة
Set re = new RegExp 'إنشاء مثيل RegExp
re.Pattern = ab+c 'حدد التعبير العادي بشكل حرفي، ويمكنك استبدال التعبير العادي هنا
خافت myString
myString = abcefg 'حدد السلسلة المراد مطابقتها والتي يمكن استبدالها
Response.write(re.Execute(myString)(0)) 'إجراء اختبار المطابقة وكتابة النتيجة
انسخ رمز الكود كما يلي:
<%
إعادة خافتة
Set re = new RegExp 'إنشاء مثيل RegExp
re.Pattern = /w+ 'تحديد نص التعبير العادي
خافت myString
myString = VBScript الإصدار 5.6 يوفر العديد من الميزات الجديدة.
"قم بإجراء اختبار مطابقة واكتب ما إذا كانت المطابقة ناجحة أم لا."
إذا إعادة الاختبار (myString) ثم
Response.write(المطابقة ناجحة!)
آخر
Response.write(المطابقة غير ناجحة!)
نهاية إذا
%>
انسخ رمز الكود كما يلي:
<%
إعادة خافتة
Set re = new RegExp 'إنشاء مثيل RegExp
re.Pattern = /s 'حدد نص التعبير العادي، وهنا مسافة بيضاء مطابقة
خافت myString
myString = VBScript الإصدار 5.6 يوفر العديد من الميزات الجديدة.
myString = re.replace(myString, -) 'استبدل الفراغات بـ - وأعد السلسلة المستبدلة
'اكتب النتيجة
الاستجابة.الكتابة (myString)
%>
انسخ رمز الكود كما يلي:
<%
إعادة خافتة
Set re = new RegExp 'إنشاء مثيل RegExp
re.Global = صحيح
re.Pattern = /s 'حدد نص التعبير العادي، وهنا مسافة بيضاء مطابقة
خافت myString
myString = VBScript الإصدار 5.6 يوفر العديد من الميزات الجديدة.
myString = re.replace(myString, -) 'استبدل الفراغات بـ - وأعد السلسلة المستبدلة
'اكتب النتيجة
الاستجابة.الكتابة (myString)
%>
انسخ رمز الكود كما يلي:
<%
إعادة خافتة
Set re = new RegExp 'إنشاء مثيل RegExp
re.Global = صحيح
re.Pattern = (/w+)-(/w+) 'تحديد نص نمط التعبير العادي
خافت myString
myString = flip-flop
myString = re.replace(myString, $1-$2)
'$1 يمثل الأول /w+، $2 يمثل الثاني /w+، الأول /w+ يطابق الوجه، والثاني /w+ يطابق التقليب،
"لذلك فإن $1-$2 يعادل التقليب
'اكتب النتيجة
الاستجابة.الكتابة (myString)
%>
انسخ رمز الكود كما يلي:
<%
إعادة خافتة
Set re = new RegExp 'إنشاء مثيل RegExp
re.Global = صحيح
re.Pattern = (/S+)(/s+)(/S+) 'تحديد نص نمط التعبير العادي
خافت myString
myString = الوجه بالتخبط
myString = re.replace(myString, $3$2$1)
'$1 يمثل /S+ الأول، $3 يمثل /S+ الثاني، $2 يمثل /s+،
'لذا فإن $3$2$1 يعادل التقليب
'اكتب النتيجة
الاستجابة.الكتابة (myString)
%>
انسخ رمز الكود كما يلي:
<%
إعادة خافتة
Set re = new RegExp 'إنشاء مثيل RegExp
re.Global = صحيح
re.Pattern = /w+ 'تحديد نص نمط التعبير العادي
خافت myString
myString = VBScript الإصدار 5.6 يوفر العديد من الميزات الجديدة.
Set Matches = re.Execute(myString) 'تنفيذ البحث، يتم استخدام هذه المجموعة لحفظ النتائج المطابقة
"قم بإجراء اختبار المطابقة واكتب النتائج."
"التكرار على مجموعة المباريات."
لكل مباراة في المباريات
'اكتب النتيجة
Response.write(Match.FirstIndex & - & (Match.FirstIndex + Match.Length) & & Match.Value & <br />)
التالي
%>
انسخ رمز الكود كما يلي:
<%
إعادة خافتة
Set re = new RegExp 'إنشاء مثيل RegExp
're.Global = التعليق الصحيح خارج هذا السطر
re.Pattern = /w+ 'تحديد نص نمط التعبير العادي
خافت myString
myString = VBScript الإصدار 5.6 يوفر العديد من الميزات الجديدة.
Set Matches = re.Execute(myString) 'تنفيذ البحث، يتم استخدام هذه المجموعة لحفظ النتائج المطابقة
"قم بإجراء اختبار المطابقة واكتب النتائج."
"التكرار على مجموعة المباريات."
لكل مباراة في المباريات
'اكتب النتيجة
Response.write(Match.FirstIndex & - & (Match.FirstIndex + Match.Length) & & Match.Value & <br />)
التالي
%>
انسخ رمز الكود كما يلي:
<%@language=صفحة رموز vbscript=65001%>
<%
'إنشاء اتصال وإنشاء ADODB.Command للتشغيل
خافت oCmd، oConn
تعيين oConn = Server.CreateObject(ADODB.Connection)
تعيين oCmd = Server.CreateObject(ADODB.Command)
oConn.ConnectionString = Provider=SQLOLEDB;server = myhost;Initial Catalog = myDatabase;UID=sa;PWD=verysecret;
أوكون.فتح
'قم بإنشاء عبارة SQL CREATE TABLE هنا
اضبط oCmd.ActiveConnection = oConn
oCmd.CommandText = إنشاء جدول NewEmployees(الاسم الأول nvarchar (50)، الاسم الأخير nvarchar (50)، EmpType nvarchar (50))
'تنفيذ عملية إنشاء جدول بيانات
oCmd.تنفيذ
الاستجابة.الكتابة (العملية ناجحة!)
%>
<%
'أغلق الاتصال بشكل صريح
أوكون.إغلاق
ضبط oConn = لا شيء
%>