تقييم الموضوع :
  • 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
بس ممكن شرح للكود
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيف قراءه المحتوى maha1 2 65 19-11-16, 12:16 AM
آخر رد: maha1
  السلام عليكم اكمالا لموضوع قراءه وتحويل الحروف الموجودة بالصور الى نصوص 3 305 22-09-15, 09:31 PM
آخر رد: سعود

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


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