الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مساعدة split

بدأه ابراهيم مراد في 20 مارس 2014 · 2 رد · 320 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

| 212.55.11.58:1080 | vpn                                                    | socks    |

انا محتاج اخذ الاى بى  فقط من textbox1  

الى textbox2

وعمل فلتر فى textbox3

للى socks 

وعرضه فى textbox4

ارجو المساعده فى مثال حتى

#2
   

            Dim words As String = RichTextBox1.Text

            Dim split As String() = words.Split(New [Char]() {" "c, ","c, "."c, ":"c, "|", "vpn", "socks", CChar(vbTab)})

 

            For Each s As String In split

                If s.Trim() <> "" Then

                    ListBox1.Items.Add(s)

                End If

            Next s

مافى حدا عبرنا انا اريد الاى بى فقط ومسح اى كلام ورموز 

#3 
Function mystr(iplongstr As string) as System.Net.IpAdress

Dim ResStr As String = ""
for i = 0 to iplongstr.Length -1
if (iplongstr(i) == 46) || ((iplongstr(i)  > 47) && (iplongstr(i) > 58)) then
ResStr  = ResStr  + iplongstr(i)
End If
Dim myip As System.Net.IpAdress
Try
myip  = System.Net.IPAddress.Parse(ResStr)
Catch
mystr = "Error"
End Function

هذه الدالة من برمجتي اخي العزيز 

تقوم بالمرور على محارف السلسلة النصية المدخلة وتتحقق إذا كان المحرف الحالي رقمي او "." اضفه إلى السلسلة النصية المعرفة ResStr وإلا تجاهله ببساطة

وبعد الانتهاء من الحلقة تقوم بعمل كاست للسلة النصية الناتجة إلى IPAdress وإذا لم يحصل اي استثناء إذاً عملية التخلص من الزوائد انتهت بنجاح فترجع لك اوبجتك من النوع IPAdress مباشرة من دون عناء

بالتوفيق ان شاء الله

تم تعديل هذه المشاركة بواسطة Install في 20 مارس 2014 في 07:03

{ وَيَوْمَ تَقُومُ السَّاعَةُ يُقْسِمُ الْمُجْرِمُونَ مَا لَبِثُوا غَيْرَ سَاعَةٍ ۚ كَذَٰلِكَ كَانُوا يُؤْفَكُونَ () وَقَالَ الَّذِينَ أُوتُوا الْعِلْمَ وَالْإِيمَانَ لَقَدْ لَبِثْتُمْ فِي كِتَابِ اللَّهِ إِلَىٰ يَوْمِ الْبَعْثِ ۖ فَهَٰذَا يَوْمُ الْبَعْثِ وَلَٰكِنَّكُمْ كُنْتُمْ لَا تَعْلَمُونَ } الروم 55-56

مواضيع مشابهة