تابع نوشتن

[hr0694]

سلام
من میخام از دوستان که این کدها رو بصورت یک تابع برام بنویسند تا برای ده تا تکست قرارشون بدم

Text = Replace(Text, "ا", "1")
Text = Replace(Text, "ب", "2")
Text = Replace(Text, "ج", "3")
Text = Replace(Text, "د", "4")

[arenaw]

شما اول باید 10 تا تکست به صورت دسته ای درست کنی (اصطلاحش نمیدونم چی میشه ولی منظورم اینجوریه : Text1(0) Text2(1) .... Text(9)
بعد یه for درست کنی با 10 بار تکرار و جای ایندکس تکست، شمارنده for رو بزاری.. این شکلی:

For i = 0 To 9
text(i) = Replace(text(i), "Ç", "1")
text(i) = Replace(text(i), "È", "2")
text(i) = Replace(text(i), "Ì", "3")
text(i) = Replace(text(i), "Ï", "4")
Next

[hr0694]

اگه میشه کامل برام همه اون چیزی که گفتید رو بنویسید من تازه کار هستم

[arenaw]

Private Function Ripeleys(text As TextBox)
text = Replace(text, "Ç", "1")
text = Replace(text, "È", "2")
text = Replace(text, "Ì", "3")
text = Replace(text, "Ï", "4")
End Function


مثلا اگه میخوای تکست 1 رو تغییر بدی داخل button بنویس :
Ripeleys Text1

اگرم میخوای 10 تاشون تغییر کنن (باید 10 تا تکست آرایه ای همون جور که گفتم بسازی، یعنی یه دونه بساز، بعد از روش کپی کن و دوباره پیست کن و توی پیغامی که میاد Yes رو بزن. همینجوری تا 10 تا بشن) داخل button بنویس:
For i = 0 to 9
Ripeleys Text1(i)
Next