مقادیر تکست باکس های ایندکس دار

[samiasoft]

سلام دوستان


من حدود 100 تا تکست باکس ایندکس دار دارم.
میخواستم که مقادیر داخل این تکست باکس ها همشون داخل یک تکست باکس به نمایش در بیاییند.

برای همین باید اینطور بنویسم؟ آیا راه دیگری نداره؟

TEXT2=Text2(1).Text & Text2(2).Text &.....Text2(100).Text

[vbhamed]

سلام
Dim s$, i%
For i = 1 To 100
s = s & Text1(i)
Next
text2 = s

[setroyd]

اگر 10000 تا هم باشه با تعیین مقدار UBOUND میشه مقدار آخر رو فهمید و تا همونجا طی کرد .


Private Sub Form_Load()
For a = Text1.lBound To Text1.uBound
b = b & Text1(a)
Next
Text2.Text = b
End Sub

[samiasoft]

ممنون از شما دوستان عزیز

یه مشکل دیگری هم داشتم اینکه به همین صورت ایندکس دار اگر 4 تا تکست باکس داشته باشیم میخواستم کلیه حالت هایی که میشه حروف های در هم رو کنار هم قرار داد رو داخل مثلا یک لیست باکس به نمایش دربیارم.
مثلا : داخل مقادیر تکست باکس ها بدین صورت باشه :
Text1(1).Text = "s"
Text1(2).Text = "a"
Text1(3).Text = "m"
Text1(4).Text = "i"

بنا به قضیه جایگشت بود فک کنم تو ریاضیات چون 4 حروف داریم پس کلیه حالاتی که میشه برای این نوشت میشه 4*3*2*1 = 24
حال میخواستم این به 24 حالت داخل لیست باکس باشه :

sami
saim
smia
smai
.......

[vbhamed]

سلام

با استفاده از 4 تا حلقه For تو در تو که هر حلقه روی یک حرف حرکت می‌کنه، می‌تونید بنویسید و اگر تعداد متغیر باشه باید با استفاده از توابع بازگشتی انجام بدید

[samiasoft]

برای توابع بازگشتی در این مورد یه مثالی میزنید. ممنون

[samiasoft]

سلام

با استفاده از 4 تا حلقه For تو در تو که هر حلقه روی یک حرف حرکت می‌کنه، می‌تونید بنویسید و اگر تعداد متغیر باشه باید با استفاده از توابع بازگشتی انجام بدید

قبلنا یه سورسی در پست شماره 2 تاپیک زیز قرار داده بودید.
http://barnamenevis.org/showthread.php?430524-%D8%B3%D8%A7%D8%AE%D8%AA-%DB%8C%DA%A9-%DA%A9%D9%84%D9%85%D9%87-%D8%A8%D8%A7-%D8%AD%D8%B1%D9%88%D9%81-%DA%A9%D9%88%DA%86%DA%A9-%D9%88-%D8%A8%D8%B2%D8%B1%DA%AF&p=1925914&viewfull=1#post1925914

این سورس همونی بود که من به دنبالش میگشتم اما متاسفانه تا 8 حرف محدود شده. آیا نمیشه کاری کرد که محدودیتی در تعداد حروف نباشه؟


همچنین یه سورس دیگری رو پیدا کردم که تا 7 حرف محدود هست.(سورس ضمیمه شده.)

[vbhamed]

سلام
می‌تونید همون رو گسترش بدید ولی این همه ترکیب زمان زیادی میبره و حافظه زیادی هم می‌خواد و چند Level بالاتر که برید دیگه نمیشه به راحتی حتی دیتا رو ذخیره کرد و فضای هارد دیسک کم میاد
مثلا در حالتی که 14 حرف باشه 14! * 14 بایت فضا نیاز دارید یعنی حدود 1.2 ترابایت و اگر فقط یک حرف دیگه اضافه بشه یعنی 15 حرف، اونموقع حدود 20 ترابایت فضا احتیاج دارید و برای 16 حرف 334 ترابایت !
حتی اگر نخواین ذخیره هم کنید، باز هم تولید و چک کردن این همه عدد به زمان بسیار زیادی احتیاج داره