النتائج 1 إلى 3 من 3

الموضوع: سؤال في الفيجوال بيسك ( نقل نص إلى Array)

  1. #1
    عضو نشيط
    تاريخ التسجيل
    Mar 2000
    المشاركات
    158


    السلام عليكم

    أرجو منكم المساعدة ياشباب ...

    أريد أن أضع نصا كاملا من عدة حروف وكلمات في مصفوفة(Array) ....

    وبمعنى آخر ..مربع النص text1.text ، يوجد به عدة كلمات وحروف ، أريد أن أضع هذا النص في مصفوفة(Array) ، بحيث يكون كل حرف في خانة من تلك المصفوفة ...

    كيف يمكنني أن أفعل هذا إذا كنت أعلم العدد الأقصى للحروف الممكن إدخالها ؟؟؟؟؟

    شكرا لتعاونكم






    أبوغوش غير متواجد حالياً


  2. #2
    عضو فعال جدا
    تاريخ التسجيل
    Dec 2000
    المشاركات
    3,009

    بسم الله الرحمن الرحيم



    أخي الكريم ، هل الحروف التي في مربع النص ثابتة أم متغيرة في عددها ، وكم هو الحد الأعلى الذي تصل إليه؟





    HardWare غير متواجد حالياً

  3. #3
    عضو نشيط
    تاريخ التسجيل
    Apr 2001
    المشاركات
    177


    مصفوفة الكلمات
    كود:
     Dim Words As Variant
     Words = Split(Text1.Text, Space(1))
    مصفوفة الحروف
    كود:
     Dim Words() As Variant
     Dim n As Long
        For n = 1 To Len(Text1.Text)
            ReDim Preserve Words(n - 1)
            Words(n - 1) = Mid(Text1.Text, n, 1)
        Next






    Mr.ASP غير متواجد حالياً





ضوابط المشاركة

  • لا تستطيع إضافة مواضيع جديدة
  • لا تستطيع الرد على المواضيع
  • لا تستطيع إرفاق ملفات
  • لا تستطيع تعديل مشاركاتك
  •  

أضف موقعك هنا| اخبار السيارات | حراج | شقق للايجار في الكويت | بيوت للبيع في الكويت | دليل الكويت العقاري | مقروء | شركة كشف تسربات المياه | شركة عزل اسطح بالرياض | عزل فوم بالرياض| عزل اسطح بالرياض | كشف تسربات المياة بالرياض | شركة عزل اسطح بالرياض