Fa خواندن فایل متنی به صورت خط به خط

سلام به تمام عاشقای مولتی مدیا :
یه کمک فوری می خوام ، تو آمپاسم ، یه فایل متنی دارم تو درایو c خط به خط می خوام نوشته ها رو بخونم تو آرایه ذخیره کنم .این جوریه:
علی
محمد
رضا
تقی
نقی
.........
ممنون مشم کمکم کنید
:idea::clap::oops:
 

محمدمهدی

Well-Known Member
جناب همتی مطمئن هستید که در انجمن و اینترنت جستجو کردید؟ یا راهنمای خود ام ام بی یا کتاب جامع فارسیش رو خوندید؟ یا حتی به نمونه مثال های خود برنامه در پوشه ی Program Files\Multimedia Builder498\Samples یه نگاهی انداختید؟
به نظرم میرسه با کوچکترین اقدام در موارد بالا خودتون به راحتی به جواب میرسیدید. چون این طور سوال ها هزاران بار تکرار میشه و پاسخ دادن به اونها ...

سر نخ می دم خدمتتون چون مسئله ی بسیار ساده ای هست.
در مورد جستجو نگاه کنید : (با اولین جستجو فارسی در انجمن اینها یافت شد)
http://forum.majidonline.com/threads/213336-خواندن-از-فایل-متنی
http://forum.majidonline.com/threads/162156-سوال-در-مورد-فايل-متني
http://forum.majidonline.com/threads/162277-كار-با-فايل-متنى
http://forum.majidonline.com/threads/174751-()StrFromFile-خواندن-از-فایل
http://forum.majidonline.com/threads/172549-ذخیره-تنظیمات-برنامه-در-فایل-متنی
http://forum.majidonline.com/threads/173213-آموزش-ساده-ی-استفاده-از-آرایه-ها
و...

در مورد راهنما : (برگرفته شده از راهنمای خود ام ام بی)

کد:
StrFromFile(FileName$, FromLine, NumOfLines)
 
Description
This will load the entire file FileName$ (or just single line) to string variable. FromLine is the number of line from which will be file loaded and NumOfLines is a number of lines that will be loaded. If NumOfLines=-1, it will load entire file.  If NumOfLines=-1 and FromLine>0 then it will load rest of file from the line determined by FromLine
 
Code Examples
 file$='c:\temp\test.txt'
fromline= 1
numoflines=10
ReturnStr$=StrFromFile(file$,fromline,numoflines)
**Returns first 10 lines from test.txt

نمونه مثال هم که توی صفحات قبلی که لینک دادم فراوون بود اما :
Program Files\Multimedia Builder498\Samples\loadtext.mbd

و توضیح فارسیش اینکه با استفاده از تابع NOL تعداد خطوط یک فایل رو می فهمیم و بعد درون یک حلقه (For) با ابتدای 1 و انتهای عدد NOL، از تابع StrFromFile استفاده می کنیم و دونه دونه خطوط رو با عبارتی شبیه این "String$" داخل آرایمون میریزیم. البته این کار رو با دستور دیگه ای مثل SongListLoad و استفاده از متغیر مخصوص اون یعنی <List> هم میشه انجام داد که مثالش توی همون مثال های ام ام بی هست. (مستقلا مثال نساختم چون هم نمونه مثال هست و هم تلاش خودتون باعث درک بهتر میشه.)

برای ادامشم اجازه بدید من لقمه رو نجوم که دهنی نشه ...
موفق باشید.
 
سلام بچه ها ممنون
جوابو پیدا کردم برای شما هم میزارم شــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــاید بدردتون خود :wink:

SongListLoad("d:\ok.txt","")
For m=0 To 5
LoadText("nameitem","<List>m+1")
name$[m]=name_item$
Next m


:green:
 

محمدمهدی

Well-Known Member
آفرین به شما. فقط لازم نیست m+1 بشه اگر حلقه ی شما صحیح باشه. یعنی این :
کد:
SongListLoad("d:\ok.txt","")
For m=1 To 5
LoadText("nameitem","<List>m")
name$[m]=name_item$
Next m
 

جدیدترین ارسال ها

بالا