منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

كود :

[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))

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

السلام عليكم ورحمة الله وبركاته
أخي الكريم
تفضل هذا الكود

كود :

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

بالتوفيق

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

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

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

بالتوفيق

بارك الله فيك

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

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

abdovip47

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

3booody

sooriaty03

3booody

@@أبورائد@@

just.coder

just.coder