حلقات VBScript
عبارات التكرار
تُستخدم عبارات التكرار لتشغيل نفس كتلة التعليمات البرمجية لعدد محدد من المرات.
في VBScript ، لدينا أربع عبارات حلقية:
- من أجل ... العبارة التالية - يتم تشغيل التعليمات البرمجية لعدد محدد من المرات
- لكل ... البيان التالي - يقوم بتشغيل التعليمات البرمجية لكل عنصر في مجموعة أو كل عنصر من عناصر المصفوفة
- Do ... تعليمة Loop - حلقات أثناء أو حتى تحقق الشرط
- بينما ... جملة Wend - لا تستخدمها - استخدم جملة Do ... Loop بدلاً من ذلك
من أجل ... الحلقة التالية
استخدم العبارة For ... Next لتشغيل كتلة من التعليمات البرمجية لعدد محدد من المرات.
تحدد عبارة For متغير العداد ( i ) وقيمتي البداية والنهاية. العبارة التالية تزيد من متغير العداد ( i ) بمقدار واحد.
مثال
<html>
<body>
<%
For i = 0 To 5
response.write("The number is " & i & "<br />")
Next
%>
</body>
</html>
كلمة الخطوة
باستخدام الكلمة الأساسية Step ، يمكنك زيادة أو تقليل متغير العداد بالقيمة التي تحددها.
في المثال أدناه ، يتزايد متغير العداد ( i ) بمقدار اثنين ، في كل مرة تتكرر فيها الحلقة.
For i=2 To 10 Step 2
some code
Next
لتقليل متغير العداد ، يجب عليك استخدام قيمة خطوة سالبة . يجب تحديد قيمة نهائية أقل من قيمة البداية.
في المثال أدناه ، يتم تقليل متغير العداد ( i ) بمقدار اثنين ، في كل مرة تتكرر فيها الحلقة.
For i=10 To 2 Step -2
some code
Next
الخروج من ... التالي
يمكنك الخروج من العبارة For ... Next مع Exit For الكلمة الأساسية.
For i=1 To 10
If i=5 Then Exit For
some code
Next
لكل ... الحلقة التالية
A For Each ... تكرر الحلقة التالية مقطعًا من التعليمات البرمجية لكل عنصر في مجموعة ، أو لكل عنصر من عناصر المصفوفة.
مثال
<html>
<body>
<%
Dim cars(2)
cars(0)="Volvo"
cars(1)="Saab"
cars(2)="BMW"
For Each x In cars
response.write(x & "<br />")
Next
%>
</body>
</html>
هل ... حلقة
إذا كنت لا تعرف عدد التكرارات التي تريدها ، فاستخدم عبارة Do ... Loop.
تكرر عبارة Do ... Loop كتلة من التعليمات البرمجية عندما يكون الشرط صحيحًا ، أو حتى يصبح الشرط صحيحًا.
كرر الرمز عندما يكون الشرط صحيحًا
يمكنك استخدام الكلمة الأساسية أثناء التحقق من شرط في عبارة Do ... Loop.
Do While i>10
some code
Loop
إذا كان i يساوي 9 ، فلن يتم تنفيذ الكود الموجود داخل الحلقة أعلاه.
Do
some code
Loop While i>10
سيتم تنفيذ الكود الموجود داخل هذه الحلقة مرة واحدة على الأقل ، حتى لو كان i أقل من 10.
كرر الكود حتى يصبح الشرط صحيحًا
يمكنك استخدام الكلمة الأساسية حتى للتحقق من شرط في عبارة Do ... Loop.
Do Until i=10
some code
Loop
إذا كان i يساوي 10 ، فلن يتم تنفيذ الكود الموجود داخل الحلقة.
Do
some code
Loop Until i=10
سيتم تنفيذ الكود الموجود داخل هذه الحلقة مرة واحدة على الأقل ، حتى لو كان i يساوي 10.
الخروج من Do ... Loop
يمكنك الخروج من عبارة Do ... Loop باستخدام الكلمة الأساسية Exit Do.
Do Until i=10
i=i-1
If i<10 Then Exit Do
Loop
سيتم تنفيذ الكود الموجود داخل هذه الحلقة طالما أنني مختلف عن 10 ، وطالما أن i أكبر من 10.
مزيد من الأمثلة
كيفية تكرار العناوين الستة في لغة تأشير النص الفائق.
كيفية عمل حلقة بسيطة ... أثناء حلقة.