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

كود :
[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))

أي تحديد النص الموجود بين الجزئين السابقين لكن سؤالي هل يوجد طريقه اسرع وافضل لتحديد الجزء السابق؟
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله وبركاته
أخي الكريم
تفضل هذا الكود
كود :
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

بالتوفيق
الرد }}}}
تم الشكر بواسطة:
#3
مشكور بارك الله بيك جاري التجربه وان شاء الله تكون اسرع
الرد }}}}
تم الشكر بواسطة:
#4

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



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

بالتوفيق




بارك الله فيك





السلام عليكم ورحمة الله وبركاته
 
 
@@@ سامحوني، منقطع نهائياً @@@

 
الرد }}}}
تم الشكر بواسطة:
#5
النمبز وحبايب النمبز :d
الرد }}}}
تم الشكر بواسطة:
#6
صح Big Grin
http://aboood-nimbuzz.blogspot.com/
الرد }}}}
تم الشكر بواسطة:
#7
abdovip47

هذا انا لو بدك مساعدة
الرد }}}}
تم الشكر بواسطة:
#8
تسلم اخوي ماتقصر اتذكر انته اقدم شخص كنت تبرمج كنت استخدم برامجك
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] حفظ تاريخ معين بقاعدة البيانات توفي العراقي 4 93 اليوم, 01:11 AM
آخر رد: adel27
  ما هو كود حفظ البيانات من الداتا جريد فيو إلى قاعدة البيانات kofa 0 31 05-12-16, 07:53 PM
آخر رد: kofa
  تغيير قاعدة البيانات الى .bak زيد زينوبي 3 54 03-12-16, 07:07 PM
آخر رد: ابراهيم النعيمي
  [سؤال] ايهما افضل في قواعد البيانات للتميم برنامج sal.softip 2 45 03-12-16, 06:59 PM
آخر رد: sal.softip
  قاعدة البيانات لا تدعم اللغة العربية ؟؟؟؟؟؟ صبري زينوبي 13 208 03-12-16, 04:47 PM
آخر رد: صبري زينوبي
  تغيير قاعدة البيانات من اكسس الى sql hglogtd 2 105 26-11-16, 03:03 AM
آخر رد: hglogtd
  [سؤال] ايهما افضل من جهة امن البيانات thevirus 2 89 24-11-16, 12:14 PM
آخر رد: thevirus
  [كود] الحذف من قاعدة البيانات بواسطة كلمة سر المبرمج العبقري 5 124 23-11-16, 05:21 PM
آخر رد: hglogtd
  [VB.NET] الاتصال بقاعدة البيانات في التقارير (الكريستال ريبورت) thevirus 2 81 23-11-16, 11:05 AM
آخر رد: thevirus
  مساعدة في عرض البيانات في التقرير haiderkh 1 75 21-11-16, 11:24 PM
آخر رد: السرور

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


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