تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود قراءه نص
#1
السلام عليكم ورحمه الله

ارجو المساعده ابغى كود يقراء نص ويحوله الى مصفوفه
الرد }}}
تم الشكر بواسطة:
#2
.....

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


تم شرح الكود

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



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


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