المساعدة في فصل String

Dim name As String = "Haitham,2005"
        Dim temp As String
        temp = name.Substring(0, 7)
        Console.WriteLine("name: " & temp)

الخانة الأولى: startindex = 0

الخانة الثانية: length = 7

الرقم 0 هو المكان الذي سوف تبدأ منه عملية الفصل و الرقم 7 هو عدد الحروف التي ستفصلها و في هذه الحالة هي طول الإسم هيثم , لاحظ أننا كتبنا 0 و لم نكتب 1 لأن المتغير من النوع string يعتبر كمصفوفة تبدء من الصفر لذا إذا كان طولها 10 يكون الإندكس(index) لآخر حرف هو 9 و ليس 10

حسنا إذا أردنا مثلا فصل الـ 2005 سيكون الكود كالتالي

temp = name.substring(8,4)

أرجو أن أكون قد و ضحت لك و عموما التجربة سوف توضح لك أكثر

أعتقد الأحسن انك تستعمل split(',') وفى الحالة دى هيرجعلك فى صورة array

string Name="Haitham,2005";
string[]parts=Name.Split(',');

كدة عندك الاسم موجود فى متغيرين

parts[0]
parts[1]

ردود رائعة فعلاً :rolleyes:

شباب أنتو عن أي لغة بتتكلموا ..؟؟

شباب الفيجول لا يقبل هذا الكود

Dim name As String = "Haitham,2005"

يضعه بلون أحمر

هل عندي مشكلة في الفيجول أو ناقص حاجة

بسم الله الرحمن الرحيم

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

جميع الحلول التي قدمت صحيحة ، غير أن هناك خطأ بسيط وهو أن هذا القسم هو " منتدى مبرمجي لغة Microsoft Visual Basic " والحلول التي قدمت إحداها بلغة فيجوال بيسك .نت VB.Net ، والأخرى بلغة سي شارب .نت C#.Net .

الحل بلغة فيجوال بيسك 6 باستخدام الدالة Split:

Dim Text As String
Text = "Haitham,2005"
       Dim Parts() As String
       Parts() = Split(Text, ",")
       MsgBox Parts(0)

إذا قمت بتطبيق المثال السابق سيعرض لك البرنامج رسالة تحتوي النص "Haitham"

هذا هو الحل باختصار ،،

-----------------------------------------

اقتباس

شباب الفيجول لا يقبل هذا الكود

Dim name As String = "Haitham,2005"

يضعه بلون أحمر

هل عندي مشكلة في الفيجول أو ناقص حاجة ؟

أخي العزيز :: أبو زيد ::

هذا الكود يخص لغة VB.Net ولا يعمل على VB6

وصلى الله وسلم على نبينا محمد وعلى آله وصحبه أجميعن

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

المبرمج أحمد كتب:

بسم الله الرحمن الرحيم

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

جميع الحلول التي قدمت صحيحة ، غير أن هناك خطأ بسيط وهو أن هذا القسم هو " منتدى مبرمجي لغة Microsoft Visual Basic " والحلول التي قدمت إحداها بلغة فيجوال بيسك .نت VB.Net ، والأخرى بلغة سي شارب .نت C#.Net .

الحل بلغة فيجوال بيسك 6 باستخدام الدالة Split:

Dim Text As String
Text = "Haitham,2005"
       Dim Parts() As String
       Parts() = Split(Text, ",")
       MsgBox Parts(0)

إذا قمت بتطبيق المثال السابق سيعرض لك البرنامج رسالة تحتوي النص "Haitham"

هذا هو الحل باختصار ،،

-----------------------------------------

أخي العزيز :: أبو زيد ::

هذا الكود يخص لغة VB.Net ولا يعمل على VB6

وصلى الله وسلم على نبينا محمد وعلى آله وصحبه أجميعن

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

←

حمدا لله انك معنا اخي احمد ، ولولا تنبيهك لهذه النقطه لكنت قد جننت !!! فكانت الاكواد غريبه نوعا ما !!

على العموم حصل خير B)

الاخوة : karim_tarek ، haosman ، ghost2010 ،المبرمج أحمد، النبهاني

شكرا جزيلا لتجاوبكم معي

وجميع الحلول رائعة

اشكركم جميعا لكن انا حليت المشطلة بطريقة اني اخذ الString حرف حرف واذا وصلت الى "," انتقل الى ما بعد الفاصة

مرة اخرى شكرا للجميع

اذا اخي العزيز ضع كودك هنا حتى يستفيد منه باقي الاعضاء الذين يبحثون عن اجابات مشابهه ولنزيد غنى المكتبه البرمجيه العربية في هذا الموقع لتكون مرجعا للجميع وتضم الفائده ..

السلام عليكم

ابشر اخي النبهاني

For ii = 1 To Len(tex(lin))
vStr = Mid(tex(lin), ii, 1)
If vStr = "," Or vStr = "" Then
vh=""
else
vh = vh & vStr
endif

اتمنى ان يكون مفهوما