كيف أتحكم بمحتوى المصفوفة

واضح أنك تقصد مصفوفة متغيرات.

جرب الكود التالى :

Option Explicit
Option Compare Text

Dim aString() As String, i As Integer

Private Sub cmdFillArray_Click()
ReDim aString(2)
For i = 0 To UBound(aString) - 1
	aString(i) = i
Next
aString(UBound(aString)) = "Goon"
End Sub

Private Sub getItem_Click()
For i = 0 To UBound(aString)
	If aString(i) = "goon" Then Exit For
Next
MsgBox i
End Sub

تقريبا نفس كود ااخ محمد سيد مع اضافة بسيطة فقط

Dim arr(3)

arr(0) = "mostafa"
arr(1) = "goon"
arr(2) = "loooon"






For i = 0 To UBound(arr) - 1
If arr(i) = "goon" Then
arr(i) = "Not Goon"

End If
Next

شكراً شكراً

يا لي من أحمق كيف ما فكرت فيها

شكراً شكراً والله انكم رائعين

أخ أخ أخ أخ

أنا ما طرحت السؤال بشكل جيد وأنا افهمت ما قدمتوه خطأ (ليس هذا الذي اريده)

أنا عندي المصفوفة هكذا

x(0) =text1.text

x(1)=text2.text

for i=lbound(x) to ubound(x)

if x(i( = "goon" then

x(i)="not goon"

next

هذا أنا أعرفه % ولكن

اريد أن تتغير التكست التي تحتوي على "goon" إلى " ليس goon"

أرجو المساعدة

Option Explicit
Option Compare Text

Dim aString() As String, i As Integer, CTL As Control

Private Sub cmdFillArray_Click()
ReDim aString(2)
For i = 0 To UBound(aString) - 1
	aString(i) = i
Next
aString(UBound(aString)) = "Goon"
End Sub

Private Sub getItem_Click()
For i = 0 To UBound(aString)
	If aString(i) = "goon" Then Exit For
Next

For Each CTL In Me
	If (TypeOf CTL Is TextBox) Then
		If CTL.Text = "goon" Then CTL.Text = "not goon"
	End If
Next
End Sub

الله يعطيك العافية اخ محمد

بارك الله فيكم يا شباب

شكراً والله يا أخ محمد استفدت اكثير (حسب ما قال الأخ mostafazidani ان اسمك الأستاذ محمد)

بس لو سمحت عايز أضيف سؤال

* في الكود الذي قدمته يقوم بتغيير التكست التي تحتوي على "GOON" إلى "ليس GOON"

فلو كنت أريد أن أغير تكست أخرى تساوي جزئ من المصفوفة

يعني مثلاً:

A(1) هي التي احتوت على "GOON" ,وهي تساوي TEXT2

فيقوم الكود بتغيير A(0) إلى "ليس GOON" والتي تساوي TEXT1

ثم يضع "ليس GOON" في TEXT1 وليس TEXT2

أرجو أن تكون قد افهمت قصدي

أي أن كل الكود سيكون عن طريق المصفوفة ولن يحتوي على كلمة TEXT على ما أظن

اقتباس

أرجو أن تكون قد افهمت قصدي

لأ :wacko: :wacko: :wacko:

لا أخي

أنا فتحت تقريباً سؤال جديد حيث أني أريد فيه تغيير مثلاً A(2) إلى "ليس GOON" إذاكانت أي جزئ من المصفوفة يحتوي على "GOOn"

أما في السؤال الأول فقد أجبتني عليه بالكود الذي وضعته وهو تغيير نفس التكست التي تحتوي على "GOON" إلى "ليس GOON"

وقصدت بأرجو أن تكون قد فهمت قصدي بالسؤال الثاني وليس الأول

المعنى أنا أريد أن تضعلي كود يغير أحد أجزاء المصفوفة التي جميع أجزائها تساوي تكست1 و تكست2 ......

ثم يغير التكست التي تساوي أحد أجزائ المصفوفة إلى قيمة معينة أنا أضعها

أما بالنسبة لكودك فهو صحيح مئة بالمئة ولكن ماذا لو أردت تطبيقه على هذا الكود

DIM X(2) AS STRING

X(0)=TEXT1.TEXT

X(1) =TEXT2.TEXT

X(2)=TEXT3.TEXT

IF TEXT4.TEXT="D" THEN

X(0)=TEXT1.TEXT

X(1) =TEXT3.TEXT

X(2)=TEXT2.TEXT

END IF

IF TEXT4.TEXT="S" THEN

X(0)=TEXT3.TEXT

X(1) =TEXT1.TEXT

X(2)=TEXT2.TEXT

END IF

إلى عدد كبير من الشروط ...............................

A(1)="F"

الآن هنا لو في كود يقوم بوضع "F" في التكست التي تساويها A(1)

بحيث أن A(1) غير ثابتة قد تكون TEXT1.TEXT أو TEXT2.TEXT

أستطيع فعلها ولكن الأمر يحتاج إلى العديد من الأكواد النظر إلى كل الشروط والأخذ بحسابها

ان شاء الله يكون كلامي صحيح و بدها تفكير لأني ورائي أمر وعلي أن أذهب بسرعة سلاممممممممممممممممممممممممممممممم.

طب ما ترفق المشروع أسهل , أو حتى الجزء ده كامل.

و مين قال لك أن لدي مشروع :lol:

أخي أنا لا أملك أي مشروع حالياً ولكن عندي تهيأ لمشروع فقط وقد أنفذه بعد شهر بعد سنة...

وان لم أحصل على إجابة الآن فسأعرفها لاحقاً لأني لست محتاجه الآن

وسأضعها هنا في هذا الموضوع

a(0)=text1.text

a(0)="goon"

تصبح >>>>> text1.text="goon"

شكراً على مساعدتك لي

جزاك الله خيراً