الملفات

اللعبة التي تذكرت

• حتى عام 1987، كان إيقاف جهاز الألعاب يحذف كل شيء. كانت كل جلسة تبدأ من الشاشة الأولى؛ كان اللعبة الطويلة تعني فترة ظهيرة طويلة أو لا شيء.
• أسطورة زيلدا جاءت مع بطارية صغيرة داخل الكارتريج تحافظ على بضعة مئات من البايتات حية. للمرة الأولى، كان بإمكان لعبة المنزل الحفظ، واستكمال ما تركته.
• كل سجل عالٍ، وكل مستند، وإعداد حفظته سابقًا موجود لنفس السبب: RAM ينسى عند انقطاع الطاقة، بينما الملف لا يفعل.
• هذا الدرس هو سبب وجود الملفات وكيف تقرأ وتكتب خوارزمية الوصف الزائف ملف نصي، سطرًا تلو الآخر.

لماذا الملفات

• المتغيرات تعيش في RAM وتختفي عند انتهاء البرنامج. ملف على التخزين الثانوي يحافظ على البيانات بين تشغيلات البرنامج: الاستمرارية.
• تسمح الملفات بمخرجات برنامج واحد أن تصبح مدخلات لبرنامج آخر، بحيث يمكن مشاركة البيانات.
• يمكن للملف أن يحتوي على أكثر مما يتسع للذاكرة، ويمكن للبرنامج إعادة التشغيل من حالة محفوظة.

المتغير مفقود في نهاية التشغيل؛ الملف لا يزال موجودًا غدًا

الملفات النصية والأوضاع الثلاثة

• الملف النصي يخزن البيانات كسطور من الأحرف، يقرأها ويكتبها برنامج واحدًا تلو الآخر، من البداية. هذا التسلسل من السطور هو ما يسمح للحلقة بالمرور عليها.
• OPENFILE … FOR READ يقرأ من السطر الأول. FOR WRITE ينشئ ملفًا جديدًا، أو يستبدل ملفًا موجودًا. FOR APPEND يضيف أسطرًا جديدة في النهاية، محتفظًا بما هو موجود.
• افتح قبل الاستخدام، أغلق بعده. الملف له وضع واحد في كل مرة.

قراءة كل سطر

OPENFILE "data.txt" FOR READ
WHILE NOT EOF("data.txt") DO
    READFILE "data.txt", LineString
    OUTPUT LineString
ENDWHILE
CLOSEFILE "data.txt"

• EOF يختبر نهاية الملف. اختبره قبل كل قراءة: القراءة<std نهاية الملف هي خطأ.
• CLOSEFILE مهم: قد تفقد البيانات المخبأة وتُستبعد برامج أخرى عن ملف مُترك مفتوحًا.

كتابة الأسطر

OPENFILE "log.txt" FOR WRITE
FOR i ← 1 TO 100
    WRITEFILE "log.txt", "Event " & NUM_TO_STR(i)
NEXT i
CLOSEFILE "log.txt"

• WRITE يبدأ الملف فارغًا. لإضافة سجل يجب أن يحتفظ بتاريخه، افتحه FOR APPEND بدلاً من ذلك.
• الملف النصي يحتوي على سلاسل نصية: يتم تحويل الرقم مع NUM_TO_STR في طريق الخروج.

مثال محلول: آخر ثلاثة أسطر من ملف

PROCEDURE LastLines(BYVAL FileName : STRING)
    DECLARE LineX, LineY, LineZ : STRING
    LineX ← ""
    LineY ← ""
    LineZ ← ""
    OPENFILE FileName FOR READ
    WHILE NOT EOF(FileName) DO
        LineX ← LineY
        LineY ← LineZ
        READFILE FileName, LineZ
    ENDWHILE
    CLOSEFILE FileName
    OUTPUT LineX
    OUTPUT LineY
    OUTPUT LineZ
ENDPROCEDURE

الحقول في السطر

• يُكتب السجل كـ سطر واحد، حقوله موصولة بـ فاصل أحرف، ويتم تحويل كل رقم أو منطق مع NUM_TO_STR (وقراءة العودة مع STR_TO_NUM، أو بالمقارنة مع "TRUE").
• اختر فاصلاً لا يمكن أن يظهر أبداً في البيانات: الفاصلة أو | للأسماء والأرقام؛ تجنب المسافة إذا كان الاسم قد يحتوي عليها.
• قراءة عكسية: اقرأ السطر، قم بتقسيمه عند الفاصل، حوّل كل حقل إلى نوعه، واحفظه في السجل.

الدمج بفاصل للكتابة؛ والتقسيم والتحويل للقراءة

مثال محلول: حفظ سجل، واستعادته

OPENFILE "scores.txt" FOR APPEND
WRITEFILE "scores.txt", Player.Name & "," & NUM_TO_STR(Player.Score)
CLOSEFILE "scores.txt"

OPENFILE "scores.txt" FOR READ
READFILE "scores.txt", Line
Pos ← POSITION(Line, ",")
Player.Name ← LEFT(Line, Pos - 1)
Player.Score ← STR_TO_NUM(MID(Line, Pos + 1, LENGTH(Line) - Pos))
CLOSEFILE "scores.txt"

الوصول التسلسلي والمباشر

• الملف النصي تسلسلي (متتابع): يُقرأ بالترتيب من البداية، لذا فإن العثور على سطر ما يتطلب قراءة جميع الأسطر التي تسبقه.
• المباشر (عشوائي) ينتقل مباشرة إلى سجل عند موضع محسوب دون قراءة البقية؛ وهو يتطلب سجلات ذات طول ثابت، وهو ما لا يتوفر في الملفات النصية.
• للمنهج الدراسي، تُعد حلقة الملف النصي أعلاه النموذج: فتح، اختبار EOF، قراءة، إغلاق.

علامات ضائعة

لقد فهمت الأمر