منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
استقبال البيانات من السيرفر - نسخة قابلة للطباعة

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

استقبال البيانات من السيرفر - 3booody - 07-04-13

السلام عليكم ورحمة الله وبركاته اخوان انا استخدم عند استقبالي بيانات من السيرفر مثلآ اجت رساله معينه تجيني على شكل كود وانا احدد الجزء الي اريد يظهر بالتكست بهالطريقه

كود :
[color=#0000FF]If CBool[/color](InStr(dat, [color=#0000FF][COLOR="#FF0000"]"<message xmlns='jabber:client' from='"[/color][/COLOR])) [color=#0000FF]Then[/color]
n = [color=#0000FF]CStr[/color](InStr(LCase$(dat), [color=#FF0000]"<body>"[/color]))
                x = [color=#0000FF]CStr[/color](InStr(LCase$(dat), [color=#FF0000]"</body>"[/color]))
                msg = Mid(dat, [color=#0000FF]CInt[/color]([color=#0000FF]CDbl[/color](n) + 6),[color=#0000FF] CInt[/color]([color=#0000FF]CDbl[/color](x) - [color=#0000FF]CDbl[/color](n) - 6))

أي تحديد النص الموجود بين الجزئين السابقين لكن سؤالي هل يوجد طريقه اسرع وافضل لتحديد الجزء السابق؟

استقبال البيانات من السيرفر - sooriaty03 - 07-04-13

السلام عليكم ورحمة الله وبركاته
أخي الكريم
تفضل هذا الكود
كود :
If dat.Contains("<message xmlns='jabber:client' from='") = True Then
            Dim Start As Integer = dat.ToLower.IndexOf("<body>") + 6
            msg = dat.Substring(Start, dat.ToLower.IndexOf("</body>") - Start)
        End If

بالتوفيق

استقبال البيانات من السيرفر - 3booody - 07-04-13

مشكور بارك الله بيك جاري التجربه وان شاء الله تكون اسرع

استقبال البيانات من السيرفر - @@أبورائد@@ - 07-04-13


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



sooriaty03 كتب :السلام عليكم ورحمة الله وبركاته
أخي الكريم
تفضل هذا الكود
كود :
If dat.Contains("<message xmlns='jabber:client' from='") = True Then
            Dim Start As Integer = dat.ToLower.IndexOf("<body>") + 6
            msg = dat.Substring(Start, dat.ToLower.IndexOf("</body>") - Start)
        End If

بالتوفيق




بارك الله فيك





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

استقبال البيانات من السيرفر - just.coder - 07-04-13

النمبز وحبايب النمبز :d

استقبال البيانات من السيرفر - just.coder - 07-04-13

abdovip47

هذا انا لو بدك مساعدة