![]() الشكل 1 ![]() الشكل 2 |
الدالة TranslateImg(Str) Start=instr(str, "[picture]") 'تحقق من موضع البداية للعلامة إذا كانت البداية=0 ثم اخرج من الوظيفة 'موضع البداية هو 0، مما يعني عدم وجود مثل هذه العلامة، ثم ينتهي البرنامج End=instr( start, str,"[/ Picture]" 'تحقق من موضع علامة النهاية التي تظهر بعد موضع البداية. إذا كانت النهاية=0، فقم بالخروج من الوظيفة 'موضع علامة النهاية هو 0، مما يعني عدم وجود علامة نهاية و ينتهي البرنامج MidStr=mid(str, start+4, end- start-4) 'ضع علامة على المحتوى في المنتصف ReplaceStr=mid(str, start, end-start+5) 'ضع علامة على المحتوى في المنتصف بعلامة كمحتوى سيتم استبداله Str=replace(instr, ReplaceStr,"<img src= ”&MidStr&”>") 'ترجمة العلامات إلى HTML TranslateImg Str 'قم بتنفيذ هذه الوظيفة بشكل متكرر وظيفة النهاية |