فيما يلي وظيفة لاستخراج عنوان الصورة في HTML:
المبدأ الرئيسي هو استخدام التعبيرات العادية لتحديد سمة <src> لـ <img>. سيكون هذا مفيدًا جدًا في برامج الاستحواذ.
الوظيفة هي كما يلي:
ما يلي هو جزء الاقتباس:
وظيفة ShowPic(str)
Set objRegExp = كائن تكوين مجموعة Regexp الجديد
objRegExp.IgnoreCase = True'تجاهل حالة الأحرف
objRegExp.Global = True' تم ضبطه على البحث عن النص الكامل
objRegExp.Pattern = "<img.+?>"
'من أجل ضمان إمكانية استرجاع عنوان الصورة بدقة، يتم تقسيمه إلى مستويين من التكوين: ابحث أولاً عن علامة <img> بالداخل، ثم استرد عنوان الصورة بالداخل وتقوم وظيفة getimgs خلفها بتنفيذ الوظيفة الأخيرة.
سترس = تقليم (شارع)
تعيين التطابقات =objRegExp.Execute(strs)'بدء تنفيذ التكوين
لكل مباراة في المباريات
RetStr = RetStr &getimgs( Match.Value )'إجراء الجولة الثانية من المطابقة
التالي
ShowPic = RetStr
وظيفة النهاية
الدالة getimgs(str)
getimgs = ""
قم بتعيين objRegExp1 = New Regexp
objRegExp1.IgnoreCase = صحيح
objRegExp1.Global = صحيح
objRegExp1.Pattern = " http://.+؟"""' احصل على العنوان بالداخل
تعيين مم=objRegExp1.Execute(str)
لكل مباراة1 بالملليمتر
getimgs=getimgs&left(Match1.Value,len(Match1.Value)-1)&"||"'قم بربط العناوين بالداخل لاستخدامها لاحقًا
التالي
وظيفة النهاية
"الحصول على محتوى الصورة."
وظيفة getHTTPage(url)
على خطأ استئناف المقبل
خافت http
تعيين http=server.createobject("MSXML2.XMLHTTP")'استخدم طريقة xmlhttp للحصول على محتوى الصورة
Http.open "GET"، URL، خطأ
المتشعب.إرسال ()
إذا Http.readystate<>4 ثم
وظيفة الخروج
نهاية إذا
getHTTPPage=Http.responseBody
تعيين http=لا شيء
إذا كان err.number<>0 ثم err.Clear
وظيفة النهاية
'حفظ الصورة
وظيفة حفظ الصورة (من، إلى الملف)
خافت geturl،objStream،imgs
geturl = تقليم (من)
imgs=gethttppage(geturl)'عملية الحصول على المحتوى المحدد للصورة
Set objStream = Server.CreateObject("ADODB.Stream")' لإنشاء كائن ADODB.Stream، مطلوب ADO 2.5 أو أعلى
objStream.Type =1'مفتوح في الوضع الثنائي
objStream.Open
يكتب objstream.write imgs محتوى السلسلة في المخزن المؤقت
objstream.SaveToFile server.mappath(tofile)،2'-اكتب المحتوى المخزن في الملف
objstream.Close()'أغلق الكائن
تعيين objstream = لا شيء
وظيفة النهاية
"استدعاء مثيل".
خافت strpic،أنا،fname
strpic = ShowPic("<DIV align=center><IMG src="" strpic = Split(strpic،"||")
إذا كان UBound(strpic) > 0 إذن
لأني = 0 إلى UBound(strpic) - 1
'حفظ الصورة
fname=cstr(i&mid(strpic(i),instrrev(strpic(i),".")))
حفظ الصورة (strpic(i)،fname)
التالي
آخر
نهاية إذا