+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : سؤال عن Split (/showthread.php?tid=39697)
سؤال عن Split - alims - 14-10-21
السلام عليكم شباب عندى سؤال كيفية عرض كلمات معنيه من نص زاى لى فى الصورة دى المرفقات
اريد ان يتم ادخل textbox1 اسم الدوالة و اسم المدينة فقط
و texbox2 رقم خط العرض و الطول مع فاصل بين الرقمين
وهذا الكود المستخدام لعرض البيانات كاملة
كود :
Dim oWebClient As New WebClient()
Dim sMyIp As String = oWebClient.DownloadString("http://ip-api.com/xml/197.52.25.179?fields=status,message,country,countryCode,region,regionName,city,zip,lat,lon,timezone,isp,org,as,query")
MsgBox(sMyIp.ToString)[attachment=27059]
RE: سؤال عن Split - wahmed - 14-10-21
(14-10-21, 11:46 AM)alims كتب : السلام عليكم شباب عندى سؤال كيفية عرض كلمات معنيه من نص زاى لى فى الصورة دى المرفقات
اريد ان يتم ادخل textbox1 اسم الدوالة و اسم المدينة فقط
و texbox2 رقم خط العرض و الطول مع فاصل بين الرقمين
وهذا الكود المستخدام لعرض البيانات كاملة
كود :
Dim oWebClient As New WebClient()
Dim sMyIp As String = oWebClient.DownloadString("http://ip-api.com/xml/197.52.25.179?fields=status,message,country,countryCode,region,regionName,city,zip,lat,lon,timezone,isp,org,as,query")
MsgBox(sMyIp.ToString)
PHP كود :
Dim wc As New Net.WebClient
Dim doc As XDocument = XDocument.Parse(wc.DownloadString("http://ip-api.com/xml/197.52.25.179"))
Dim elm = doc.Element("query")
Dim country = elm.Element("country").Value
Dim city = elm.Element("city").Value
Dim lat = elm.Element("lat").Value
Dim lon = elm.Element("lon").Value
TextBox1.Text = country & "," & city
TextBox2.Text = lat & "," & lon
RE: سؤال عن Split - alims - 14-10-21
شكرا لك اخى wahmed على الرد السريع
RE: سؤال عن Split - alims - 26-10-21
السلام عليكم ورحمة الله وبركاته
حد يعرف موقع افضل من الموقع ده علشان بيفضل كل شوية
http://ip-api.com/xml