Fa مشکل در LoadText

[booyebaran]

سلام دوستان.من یه مشکل در LoadText دارم که شاید بشه حلش کرد.
کد زیر رو ببینید.

File$ = 'C:\Text.txt' 
NumOfLines = NOL(File$) 
For i=1 To NumOfLines 
  Line$ = StrFromFile(File$,i,1) 
  Object$ = 'EditBox' + CHAR(i) 
  LoadText("Object$","STRING:Line$") 
Next i

این مثال برای فایل چهار خطی، چهارتا EditBox با نامهای EditBox1 تا EditBox4 است

مشکل من اینه به فرض اینکه ما نخایم خط 3 رو به EditBox3 بده و بیاد خط 3 رو به EditBox4 بده باید چیکار کرد؟

 

[nevercom]

اجازه بدید خط به خط براتون کد رو توضیح بدم:

1. آدرس فایل متنی رو در متغیر $File ذخیره میکنیم
2. تعداد خط های فایل متنی رو بگیر و در متغیر NumOfLines ذخیره کن
3. شروع یک حلقه که از یک شروع میشه و به تعداد خطوط موجود در فایل متنی (عدد ذخیره شده در NumOfLines) خاتمه پیدا میکنه.
4. محتوای خط شماره i ام از فایل متنی رو بخان و در متغیر $Line ذخیره کن
5. مقدار متغیر عددی i رو به کاراکتر (رشته) تبدیل کن و با رشته ی EditBox ترکیبش کن و نتیجه رو در متغیری بنام $Object ذخیره کن (خروجی: برای خط اول: EditBox1 - خط دوم: EditBox2....)
6. محتوای خط شماره ی i (متغیر $Line) رو در شئ بانام $Object نمایش بده
7. پایان بلاک حلقه

نامگذاری برای اسم شئ در خط پنجم قرار گرفته که بر اساس شماره ی خط هست (متغیر i) و دلیل انجام اینکار هم ساده تر شدن کد هست.
راه های دیگه ای هم وجود داره، مثلاً با استفاده از دستور شرطی (if) برای هر خط یک شئ رو جهت نمایش محتوا تعیین کنید.
یا از یک آرایه برای اسم اشیاء استفاده کنید....


به هرحال این موضوع یک مشکل و ایراد محسوب نمیشه، فقط سیستم نامگذاری رو عوض کنید

 

[Shahim]

همونطور که گفته شد یک شرط بنداز داخلش که اگر i=3 باشه هیچ کاری نکنه یعنی دستوری توش ننویس و در غیر اینصورت که همون 1 و 2 و 4 هست همین دستوری که توی کدت گذاشتی رو بگذار