17-06-13, 04:41 PM
17-06-13, 04:56 PM
السلام عليكم ورحمة الله وبركاته
إن صدق حدسي فإن هذا هدفك (وهو لبارامتر بخصوص تطوير الأدوات)
PHP كود :
Dim Lines() As String
Lines = Me.TextBox1.Text.Split(vbNewLine)
MsgBox(Lines.Length)
السلام عليكم ورحمة الله وبركاته
17-06-13, 05:12 PM
وعليكم السلام ورحمة الله وبركاته
ههههه
لا والله ليس هذا المقصود
تطوير الادوات لسه بدرى عليه
انا وجدت الكود المطلوب فى مشاركة فى موضوع هنا الان
[h=1]الموضوع: إضافة فيئات الى مصفوفه الرجاء المساعده[/h]
الكود
و للإضافة
كود:
ReDim Preserve strArr(strArr.Length) strArr(strArr.Length - 1) = "ItemToAdd"
ههههه
لا والله ليس هذا المقصود
تطوير الادوات لسه بدرى عليه
انا وجدت الكود المطلوب فى مشاركة فى موضوع هنا الان
[h=1]الموضوع: إضافة فيئات الى مصفوفه الرجاء المساعده[/h]
الكود
و للإضافة
كود:
ReDim Preserve strArr(strArr.Length) strArr(strArr.Length - 1) = "ItemToAdd"
17-06-13, 05:40 PM
السلام عليكم ورحمة الله وبركاته
ما رأيك لو تستخدم Dim Lines As New System.Text.StringBuilder
السلام عليكم ورحمة الله وبركاته
17-06-13, 05:48 PM
لا اعرفها ولم اتعامل معها من قبل ياريت توضيح بسيط ليها حبيبى ابو اياب
17-06-13, 08:58 PM
ali.alfoly كتب :وعليكم السلام ورحمة الله وبركاتهاعتقد ان هذا موضوعي
ههههه
لا والله ليس هذا المقصود
تطوير الادوات لسه بدرى عليه
انا وجدت الكود المطلوب فى مشاركة فى موضوع هنا الان
[h=1]الموضوع: إضافة فيئات الى مصفوفه الرجاء المساعده[/h]
الكود
و للإضافة
كود:
ReDim Preserve strArr(strArr.Length) strArr(strArr.Length - 1) = "ItemToAdd"
اخي اكو عدة طرق في انشاء مصفوفات نصيه لكن انته تريد ادراج بداخل المصفوفات من المستحيل ادارج مصفوفه من لاشيء يعني مثلآ
Dim list As New List(Of String)
list.Insert(2, "3booody")
طبعآ راح يطلع لك خطأ والسبب لايوجد أي مصفوفه لو كان عندك 3 مصفوفات ما راح يطلع عندك الخطأ
وتستطيع العمل مثل ما قال ابو رائد او مصفوفات
Dim list As New ArrayList
او
Dim list As New List(Of String)
والمزيد والله اعلم , واضافة العناصر الى المصفوفه والترتيب يبدأ من الصفر.
17-06-13, 09:23 PM
جزاك الله خيرا فعلا كلامك صحيح وانا لما بحب اعلن عن مصفوفه دائما اعلن عن قيما فارغه فارغة لها فى نفس السطر
Dim List() As String = {}
Dim List() As String = {}