منو اصلی

درگاه ورود کاربران
لینک سایت های مفید
تقویم
<    «  بهمن 1390  »    >
شيدسچپج
1234567
891011121314
15161718192021
22232425262728
2930 
آرشیو
امار سایت
آمار مطالب:
  يک ساعت پيش: 0
  امروز: 0
  اين ماه: 7
  مجموع مطالب: 398
  کل نظرات: 309



آمار بازديد:
  بازديد امروز: 3909
  بازديد ديروز: 3512
  مجموع بازديدها: 2495419



آمار کاربران:
  يک ساعت پيش: 0
  امروز: 9
  اين ماه: 347
  مجموع کابران: 7265
  بن شدگان: 2

آخرين عضو:


javad_gh1370

 


کاربران آنلاین:asd1363

رباطها آنلاین: Crawl Bot, Google Bot

در حال حاضر 1 کاربر, 2 رباط, 4 میهمان و در مجموع 7 نفر در سایت حضور دارند.
همکاران سایت

--------------------
نظرسنجی

دوست دارید نرم افزار رو روی چه سیستم عاملی اجرا کنید ؟

Xp
Vista
Seven
Apple
Windows android
تازه های سایت
بخش های پربازدید
اطلاعات سایت
حمایت  فارسی دی بی

 

http://www.farsidb.com/farsidb.gif

برای حمایت از فارسی دی بی کد بالا را در سایت و یا وبلاگ خود قرار دهید با تشکر

رتبه و اطلاعات سایت   

   http://www.farsidb.com/alex.jpg

 

فرق دستور Input و Line Input در فايل ترتيبي

دستور Input
دستور Input اطلاعات فيلد يك فايل رو به طور كامل مي خونه. يعني اگر ما فيلدهايي رو در يك فايل ترتيبي تعيين كرده باشيم و بهشون مقداري رو داده باشيم، تمامي مقادير اونها رو درون متغيري كه از قبل جلوي دستور Input نوشتيم به ترتيب ميريزه:

Input #FileNumber, FirstVaraible, SecondVaraible, ....

مثلاً كد زير اطلاعات فيلد FirstName ، LastName و Telephone رو از فايل Student.txt مي خونه و هر مقداري كه درونش باشه رو در متغيرهاي FName ، LName و Tel مي ريزه.:


Open "C:\Student.txt" For Input As #FileNumber
Input #FileNumber, FName, LName, Tel
Close #FileNumber

دستور Line Input
اين دستور براي خواندن يك سطر از فايل ترتيبي به كار مي ره. يعني مثلاً اگر در سطر پنجم يك فايلي نام و نام خانوادگي و شماره دانش آموزي به ترتيب نوشته بود اونها رو به صورت رشته مي خونه و درون يك متغير از نوع رشته (String) ميريزه. يعني اينجا ديگه براش فرقي نمي كنه كه چند تا فيلد يا ركورد داريم مهم اين هستش كه اطلاعات رو بخونه و در متغير اصلي قرار بده.


Line Input #FileNumber, StringVaraible

FileNumber: شماره فايل
StringVaraible: متغيري از نوع String
حالا اينجا يك بحثي مطرح ميشه: شايد من برنامه نويس مي خوام بوسيله دستور Line Input تمامي اطلاعات فايل رو بخونم در صورتي كه من اين اجازه رو ندارم! چون كه گفتيم Line Input اطلاعات يك سطر از فايل ترتيبي رو مي خونه. حالا چاره چيه؟
اين هستش كه ما در يك حلقه نامعين به همراه دستور EOF اطلاعات رو بخونيم و اطلاعات جديد رو به اطلاعات قبلي پيوند بديم يا بهم بچسبونيم.
كد زير اطلاعات فايل Help.txt رو بوسيله يه حلقه مي خونه:



FileNumber = FreeFile
Open "C:\Help.txt" For Input As #FileNumber
While Not EOF(FileNumber)
Line Input #FileNumber, strInput
strOutput = strOutput & strInput
Wend
Close #FileNumber
Print strOutput

بازدیدها: 214

http://www.farsidb.com/forum.gif


شماره نظر: 1 | نويسنده: Popugaiwm | [ايميل] | تاريخ ارسال: 12/12/1390 - 01:23
| نام کامل: -- | تاريخ عضويت: 11.12.1390 | کشور: --

تعداد مطالب: 0
تعداد نظرات: 11

фото блог волочковой http://visaua.ru блог опенышевой
блог канделаки http://nkcs.ru блог канделаки
бьюти блоги http://ctich.ru банк блог
   

شماره نظر: 2 | نويسنده: veneamin1984 | [ايميل] | تاريخ ارسال: 10/02/1391 - 11:17
| نام کامل: -- | تاريخ عضويت: 12.01.1391 | کشور: --

تعداد مطالب: 0
تعداد نظرات: 32
   

اطلاعات
 
براي ارسال نظر، بايد در سايت عضو شويد.

 
 

پشتیبانی شده توسط سرور باران