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

نسخة كاملة : طلب كود توزيع text بطريقة خاصة
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم
؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
أهلا بك أختي الكريمة , أرجو المعذرة على التأخر بالرد , يرجى لو توضحي أكثر المطلوب , وإن شاء الله خير .
السلام عليكم شكرا لك اخي الكريم
كانت فكرة البرنامج ان يكون توزيع الحروف كالتالي
ان يكون الصف الاول كالتالي
aaaa ,aaba,aaca,aada,aaea
والسطر الثاني
aaba,aabb,aadc,aabd,aabe
وهكذا الا السطر الخامس,وياحبذا لو عملنا حلقة تكراريه بإنشاء مصفوفة لذلك
وبدون استخدام الاسكي
أهلا أختي الكريمه ، على حسب فهمي الأحرف المستخدمه هي abcde وتريدين توزيعها الآليه التي وضحتيها في ردك الأخير بحيث يكون عدد الأسطر الناتجه هو خمسة أسطر إذا سيكون الكود بهذا الشكل :

كود :
Dim Chars As String
Dim I As Integer
Dim H As Integer

Chars = "abcde"

Dim ResultLines(1 To Len(Chars) ) As String

For I = 1 To Len(Chars)
      For H = 1 To Len(Chars)
             ResultLines(I) = ResultLines(I) & "aa" & Mid(Chars,I,1) & Mid(Chars,H,1) & ","
      Next
      ResultLines(I) = Left(ResultLines(I),Len(ResultLines(I)) - 1)
      MsgBox "Line" & I & "=" & ResultLines(I)
Next

ملاحظه : تستطيعين زيادة عدد الأحرف في المتغير Chars بالعدد الذي تريدينه وسيكون عدد الأسطر الناتجه بعددها .
شكرا لك استاذنا الكريم
لو اردنا ان يكون الظهور في مصفوفة بدل msgbox كيف سيكون ذلك
أهلا أختي الكريمه الأصيله , النتيجة هي توضع في مصفوفه نصيه بإسم ResultLines ولكن أنا أظهر المسج بوكس لكي تشاهدي النتيجة أو عناصر المصفوفه , عموما عدلت تعديل بسيط على الكود كا فيه خطأ بسيط لأنه لم أجربه على الفيجول , ووضعته في مثال .

PHP كود :
Dim Chars As String
Dim ResultLines
() As String
Dim I 
As Integer
Dim H 
As Integer

Chars 
"abcde"

ReDim ResultLines(1 To Len(Chars)) As String

For 1 To Len(Chars)
 
   For H 1 To Len(Chars)
 
       ResultLines(I) = ResultLines(I) & "aa" Mid(CharsI1) & Mid(CharsH1) & ","
 
   Next
    ResultLines
(I) = Left(ResultLines(I), Len(ResultLines(I)) - 1)
 
   MsgBox ResultLines(I)
Next 
(07-12-15, 02:07 AM)Ahmed_Mansoor كتب : [ -> ]أهلا أختي الكريمه الأصيله , النتيجة هي توضع في مصفوفه نصيه بإسم ResultLines ولكن أنا أظهر المسج بوكس لكي تشاهدي النتيجة أو عناصر المصفوفه , عموما عدلت تعديل بسيط على الكود كا فيه خطأ بسيط لأنه لم أجربه على الفيجول , ووضعته في مثال .

PHP كود :
Dim Chars As String
Dim ResultLines
() As String
Dim I 
As Integer
Dim H 
As Integer

Chars 
"abcde"

ReDim ResultLines(1 To Len(Chars)) As String

For 1 To Len(Chars)
 
   For H 1 To Len(Chars)
 
       ResultLines(I) = ResultLines(I) & "aa" Mid(CharsI1) & Mid(CharsH1) & ","
 
   Next
    ResultLines
(I) = Left(ResultLines(I), Len(ResultLines(I)) - 1)
 
   MsgBox ResultLines(I)
Next 
شكرا لك استاذنا الغالي