دوست عزیز
فکر میکنم منظورتون اینه که یک عبارت رو از یک فایل متنی فراخوانی کنید و بعد تقسیمش کنید به چند رشته کوچکتر درسته؟
اگه منظورتون رو درست متوجه شده باشم، فکر میکنم بهتره عبارت متنی یک قاعده مشخص برای جداشدن داشته باشه (مثلا تو همون فایل txt که شما ارسال کردید. 10 بار عدد 1، 10 بار عدد 2 و 10 بار عدد 3 تکرار شده. اگه این قاعده در طول رشته ثابت بمونه)
یا اگه قاعده فوق ثابت نیست و ممکنه طول یک زیررشته تغییر کنه. با یک کاراکتر خاص مثل # انتهای هر زیررشته رو مشخص کنید. (مثلا 3333333333#2222222222#1111111111 )
در اینصورت میشه با استفاده از متغیر آرایه ای و توابع رشته ای عبارت شما رو تقسیم کرد به چند زیر رشته و هر زیر رشته رو تو یک EditBox یا هرجای دیگه ای که مد نظرتون هست نمایش داد.
من دو تا کد برای دوتا روشی که بالاتر گفتم پیشنهاد میکنم.
1- اگه طول هر زیررشته مشخصه مثلا 10 بار عدد 1 و 10 بار عدد 2 و 10 بار عدد 3 و الی آخر
کد:
path$='x:\myfile.txt'
str$=StrFromFile(path$,1,1)
strlen=LEN(str$)/10
For i=1 To strlen
substr$[i]=StrCopy(str$,1,10)
str$=StrDel(str$,1,10)
editbox$='EditBox'+CHAR(i)
LoadText("editbox$","substr$[i]")
Next i
2- اگه طول زیر رشته مشخص نباشه و با یک کاراکتر خاص زیر رشته ها رو از هم جدا کرده باشید.
مثلا: '33333#2222222222#1111' = $str
کد:
path$='x:\myfile.txt'
str$=StrFromFile(path$,1,1)
str$=str$+'#'
x=GetArrayNum(str$,#)
For i=1 To x
substr$[i]=GetArrayItem(str$,#,i)
editbox$='EditBox'+CHAR(i)
LoadText("editbox$","substr$[i]")
Next i
موفق باشید