السلام عليكم ورحمة الله
استفساري عن كود بعد دخولي الى الموقع يقوم بالبحث عن كلمه معينه ومن ثم يقوم بتنزيل ملف
الكود الي عندي يقوم بادخالي الى الصفحه
بعد دخول الصفحه اريد ابحث في الhtml عن كلمت
اذا حصلت الكلمه
يقوم بانزال لي الملف
AP1BP541212.adi
للعلم اسم الملف يتغير كل مرة اقوم بالدخول
AP1BP541212
الكود الي عندي كان شغال لا اعرف ما حصل في الان
هذا الكود بعد دخولي للموقع هو يقوم بالبحث عن الكلمه ومن ثم سحب الملف
احتمال في غلط في الكود بارك الله فيكم
شكرا على المساعده
حاليا يعطيني غلط
هنا
استفساري عن كود بعد دخولي الى الموقع يقوم بالبحث عن كلمه معينه ومن ثم يقوم بتنزيل ملف
الكود الي عندي يقوم بادخالي الى الصفحه
بعد دخول الصفحه اريد ابحث في ال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))