منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] استفسار :- البحث في صفحة html - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] استفسار :- البحث في صفحة html (/showthread.php?tid=26639)



استفسار :- البحث في صفحة html - dubai.eig - 24-09-18

السلام عليكم ورحمة الله


استفساري عن كود بعد دخولي  الى الموقع يقوم بالبحث عن كلمه معينه ومن ثم يقوم بتنزيل ملف

الكود الي عندي يقوم بادخالي الى الصفحه

[attachment=19644]

بعد دخول الصفحه اريد ابحث في الhtml  عن كلمت  

إقتباس :downloadedfiles


اذا حصلت الكلمه
كود :
    <UL>
      <LI><A HREF="downloadedfiles/AP1BP541212.adi">.ADI file</A>
      <LI><A HREF="downloadedfiles/AP1BP541212.txt">.TXT file</A>
    </UL>


يقوم بانزال لي الملف
AP1BP541212.adi


للعلم اسم الملف يتغير كل مرة اقوم بالدخول
AP1BP541212

كود :
 Dim filename As String = Regex.Match(ReturnStr, "downloadedfiles/.+?\.adi", RegexOptions.IgnoreCase).Value

الكود الي عندي كان شغال لا اعرف ما حصل في الان 
هذا الكود بعد دخولي للموقع هو يقوم بالبحث عن الكلمه ومن ثم سحب الملف


كود :
   Dim EQSLURL As String = String.Format("http://www.eqsl.cc/qslcard/DownloadInBox.cfm?UserName={0}&Password={1}&RcvdSince={2}", eqslu.Text, eqslp.Text, cv)

                Using client As New WebClient() With {.Encoding = System.Text.Encoding.UTF8}


                    Dim ReturnStr As String = client.DownloadString(EQSLURL)
                    Dim filename As String = Regex.Match(ReturnStr, "downloadedfiles/.+?\.adi", RegexOptions.IgnoreCase).Value
                    If filename <> "" Then
                        Dim data() As Byte = client.DownloadData(String.Format("http://www.eqsl.cc/qslcard/{0}", filename))
                        Dim targetFilename As String = String.Format(Format1, Path.GetFileName(filename))
                        File.WriteAllBytes(targetFilename, data)

                        lblAttach.Text = String.Format(Format, Path.GetFileName(filename))


                    End If
                End Using


احتمال في غلط في الكود بارك الله فيكم

شكرا على المساعده

حاليا يعطيني غلط

إقتباس :Index (zero based) must be greater than or equal to zero and less than the size of the argument list.'

هنا

كود :
                       Dim targetFilename As String = String.Format(Format1, Path.GetFileName(filename))