منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم ورحمه الله

ارجو المساعده ابغى كود يقراء نص ويحوله الى مصفوفه

.....

كود :

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)

تم شرح الكود

.....

يعطيك الف عافيه شكرا جزيلا

بس ممكن شرح للكود

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

خفايا

vbnet

خفايا

خفايا