22-09-14, 11:52 AM
22-09-14, 12:52 PM
.....
تم شرح الكود
.....
كود :
Dim txt = "منتدى فيجوال بيسك لكل العرب"
' تعيين متغير لوضع النتيجة للنتيجة
Dim s() As String
' استبدال فاصل الأسطر إن وجد بمسافة واحدة ليكون نصاً متصلاً
txt = txt.Replace(vbNewLine, Space(1))
' حذف المسافات التي في البداية والنهاية إن وجدت
txt = txt.Trim
' تقسيم النص بلالة المسافة بشكل افتراضي
s = txt.Split
' جمع ما سبق بسطر واحد من باب الاختصار
''s = txt.Replace(vbNewLine, Space(1)).Trim.Split
MsgBox(s.Length)
تم شرح الكود
.....
25-09-14, 01:35 PM
يعطيك الف عافيه شكرا جزيلا
25-09-14, 01:36 PM
بس ممكن شرح للكود