دخول

**3booody** · 07-04-13, 10:21 AM

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

كود :

[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, 11:09 AM

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

كود :

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, 11:19 AM

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

**@@أبورائد@@** · 07-04-13, 12:30 PM

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

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, 02:13 PM

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

**just.coder** · 07-04-13, 03:19 PM

abdovip47

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

دخول
إسم المستخدم
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة

المواضيع المحتمل أن تكون متشابهة .
الموضوع :		الكاتب	الردود :	المشاهدات :	آخر رد
	[VB.NET] حل مشكلة الاتصال بقواعد البيانات access	loay775	2	170	25-02-24, 06:29 AM آخر رد: loay775
	سؤال عن عملية حذف سجل من قاعدة البيانات	assuhimi	3	263	11-02-24, 08:43 PM آخر رد: assuhimi
	[VB.NET] منع تكرار البيانات في عند الادخال	مبرمج صغير 1	2	268	24-01-24, 05:18 PM آخر رد: مبرمج صغير 1
	[VB.NET] مساعدة في استدعاء البيانات معينه من form الأول إلى form 2 بدون التعديل	loay775	2	281	18-01-24, 05:04 PM آخر رد: loay775
	[VB.NET] إعادة استدعاء البيانات من قاعدة بيانات اكسس والاهم الصورة	مبرمج صغير 1	1	282	13-01-24, 01:17 PM آخر رد: مبرمج صغير 1
	[كود] اريد كود إرسال البيانات من الفيجوال بيسك إلىPDF	issamsaidd	10	5,866	25-12-23, 06:30 PM آخر رد: الحزين اليماني
	جملة الاتصال بقاعدة البيانات اكسس	محمد خيري	4	372	12-12-23, 03:14 AM آخر رد: محمد خيري
	كود الاتصال بقاعدة البيانات sqlserver	strongriseman	2	425	29-11-23, 09:25 PM آخر رد: العتيق
	[VB.NET] كيفية جعل الدتاجريديد فيو تظهر عندما تكون قاعدة البيانات فارغه	الحزين اليماني	1	376	22-11-23, 05:31 PM آخر رد: justforit
	الحفاظ على خصائص قاعدة البيانات عند النقل	strongriseman	0	283	19-11-23, 12:28 PM آخر رد: strongriseman