تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
أستخراج نص من موقع ويب
#1
السلام عليكم : جزاك الله خيراً أنا اعمل على مشروع ولكن توقفت عند نقطة محددة وهي أستخراج خطوط العرض و الطول من ألايبي لدي هذا الموقع ولكن لم أعرف كيف أستخرج منه النص أتمنى لو أن أحدكم يساعدني بكود لاستخراج خط العرض و الطول من هذا الموقع وشكراً لكم 

رابط الموقع المطلوب :https://ipaddress.my/111.22.24.44

واذا كان هناك موقع اخر لا مشكلة فقط اريد كود يستخرج خط العرض و الطول
الْحَمْدُ لِلَّهِ حَمْدًا كَثِيرًا طَيِّبًا مُبَارَكًا فِيهِ

رَبِّي أَرْزُقْنِي مُسْتَقْبَلاً أَجَمَلَ مِمَّا تَمَنَّيْتُ

وَاَجْعَل لِي فِيْ هَذِهِ الدُّنْيَا - أُنَاساً يَدْعُونَ لِي بَعْدَ أَنْ أَغِيْب

حسابي في تلكرام

الرد
تم الشكر بواسطة: ابو انس
#2
(06-05-22, 12:18 AM)aldery كتب : السلام عليكم : جزاك الله خيراً أنا اعمل على مشروع ولكن توقفت عند نقطة محددة وهي أستخراج خطوط العرض و الطول من ألايبي لدي هذا الموقع ولكن لم أعرف كيف أستخرج منه النص أتمنى لو أن أحدكم يساعدني بكود لاستخراج خط العرض و الطول من هذا الموقع وشكراً لكم 

رابط الموقع المطلوب :https://ipaddress.my/111.22.24.44

واذا كان هناك موقع اخر لا مشكلة فقط اريد كود يستخرج خط العرض و الطول

و عليكم السلام
تفضل
كود :
       Try : Net.ServicePointManager.CheckCertificateRevocationList = False : Net.ServicePointManager.DefaultConnectionLimit = 300 : Net.ServicePointManager.UseNagleAlgorithm = False : Net.ServicePointManager.Expect100Continue = False : Net.ServicePointManager.SecurityProtocol = 3072
           Dim Encoding As New System.Text.UTF8Encoding
           Dim AJ As Net.HttpWebRequest = DirectCast(Net.WebRequest.Create("https://ipaddress.my/111.22.24.44"), Net.HttpWebRequest)
           With AJ
               .Method = "GET"
               .Proxy = Nothing
               .UserAgent = "Mozilla/5.0 (Windows NT 6.1; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/100.0.4896.127 Safari/537.36"
           End With
           Dim Response As Net.HttpWebResponse = DirectCast(AJ.GetResponse, Net.HttpWebResponse)
           Dim reader As New IO.StreamReader(Response.GetResponseStream) : Dim text As String = reader.ReadToEnd : reader.Dispose() : reader.Close() : Response.Dispose() : Response.Close()
           Dim Latitude As String = System.Text.RegularExpressions.Regex.Match(text, "<td>Latitude:<\/td>\s<td>(.*?)<\/td>").Groups(1).Value
           Dim Longitude As String = System.Text.RegularExpressions.Regex.Match(text, "<td>Longitude:<\/td>\s<td>(.*?)<\/td>").Groups(1).Value

           MsgBox(Longitude)

       Catch ex As System.Net.WebException : Dim AJJ As String = New IO.StreamReader(ex.Response.GetResponseStream()).ReadToEnd() : MsgBox("Error : " & AJJ) : End Try
الرد
تم الشكر بواسطة: aldery , سعود , ابو انس , ابو انس , ابو روضة
#3
(06-05-22, 02:13 AM)trakktour كتب :
(06-05-22, 12:18 AM)aldery كتب : السلام عليكم : جزاك الله خيراً أنا اعمل على مشروع ولكن توقفت عند نقطة محددة وهي أستخراج خطوط العرض و الطول من ألايبي لدي هذا الموقع ولكن لم أعرف كيف أستخرج منه النص أتمنى لو أن أحدكم يساعدني بكود لاستخراج خط العرض و الطول من هذا الموقع وشكراً لكم 

رابط الموقع المطلوب :https://ipaddress.my/111.22.24.44

واذا كان هناك موقع اخر لا مشكلة فقط اريد كود يستخرج خط العرض و الطول

و عليكم السلام
تفضل
كود :
       Try : Net.ServicePointManager.CheckCertificateRevocationList = False : Net.ServicePointManager.DefaultConnectionLimit = 300 : Net.ServicePointManager.UseNagleAlgorithm = False : Net.ServicePointManager.Expect100Continue = False : Net.ServicePointManager.SecurityProtocol = 3072
           Dim Encoding As New System.Text.UTF8Encoding
           Dim AJ As Net.HttpWebRequest = DirectCast(Net.WebRequest.Create("https://ipaddress.my/111.22.24.44"), Net.HttpWebRequest)
           With AJ
               .Method = "GET"
               .Proxy = Nothing
               .UserAgent = "Mozilla/5.0 (Windows NT 6.1; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/100.0.4896.127 Safari/537.36"
           End With
           Dim Response As Net.HttpWebResponse = DirectCast(AJ.GetResponse, Net.HttpWebResponse)
           Dim reader As New IO.StreamReader(Response.GetResponseStream) : Dim text As String = reader.ReadToEnd : reader.Dispose() : reader.Close() : Response.Dispose() : Response.Close()
           Dim Latitude As String = System.Text.RegularExpressions.Regex.Match(text, "<td>Latitude:<\/td>\s<td>(.*?)<\/td>").Groups(1).Value
           Dim Longitude As String = System.Text.RegularExpressions.Regex.Match(text, "<td>Longitude:<\/td>\s<td>(.*?)<\/td>").Groups(1).Value

           MsgBox(Longitude)

       Catch ex As System.Net.WebException : Dim AJJ As String = New IO.StreamReader(ex.Response.GetResponseStream()).ReadToEnd() : MsgBox("Error : " & AJJ) : End Try
مشكور أخي الكريم جزاك الله خيراً
الْحَمْدُ لِلَّهِ حَمْدًا كَثِيرًا طَيِّبًا مُبَارَكًا فِيهِ

رَبِّي أَرْزُقْنِي مُسْتَقْبَلاً أَجَمَلَ مِمَّا تَمَنَّيْتُ

وَاَجْعَل لِي فِيْ هَذِهِ الدُّنْيَا - أُنَاساً يَدْعُونَ لِي بَعْدَ أَنْ أَغِيْب

حسابي في تلكرام

الرد
تم الشكر بواسطة: ابو انس


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Big Grin [VB.NET] ادخال بيانات الى موقع الكترونى بـ VB.NET thecaser 0 219 30-04-22, 01:43 AM
آخر رد: thecaser
  جلب صورة موجودة في موقع sascoxat 3 434 04-03-22, 11:13 PM
آخر رد: ميدو الفنان
  مطلوب كود ايجاد موقع مؤشر الكتابة ابو انس 14 1,175 18-12-21, 09:29 PM
آخر رد: ابو انس
  مشكلة اللغة العربية فى قاعدة البيانات SQL فى موقع SMARTERASP.NET mmaalmesry 5 675 10-11-21, 03:10 AM
آخر رد: Jounior_P
  كيفية جلب بيانات جدول داخل موقع إلى الداتاجريدفيو باستخدام مكتبة cefsharp bahnay0 0 575 12-08-21, 01:49 AM
آخر رد: bahnay0
  [كود] مطلوب كود يسحب معلومات بسيطة من موقع كورة مثلا؟ خالد يعقوب 1 645 25-07-21, 04:22 PM
آخر رد: aldery
Information عمل برنامج لأوقات الصلاة لجميع المدن مستخرجة من موقع معين b4getws 6 1,727 22-07-21, 03:35 AM
آخر رد: b4getws
  استخراج نصوص من موقع aldery 2 658 14-07-21, 03:23 PM
آخر رد: aldery
  [كود] البحث عن موقع ملف (طلب مستعجل) zazasami 3 620 28-06-21, 11:37 PM
آخر رد: zazasami
  الرجاء من رواد البرمجة في المنتدي بخصوص استعاء بيانات من موقع لتكست بوكس نور الهدى الهدى 2 1,224 16-06-21, 09:08 PM
آخر رد: نور الهدى الهدى

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم