วันนี้มาว่ากันด้วยพื้นฐานการเขียนโปรแกรม เพื่อ อ่าน หรือ เขียน TEXT file กัน

 สิ่งแรกที่จะต้องรู้ก็คือคำสั่ง  Fileopen
ขออ้างอิงจาก HELP  

FileOpen ( filename {, filemode {, fileaccess {, filelock {, writemode
    { encoding }}}}} )

มาดุตัวอย่างการใช้งาน
integer li_FileNum
    li_FileNum = FileOpen("c:\textdemo.TXT", LineMode! , Read! , Shared! , Replace!)
อธิบาย เพิ่มเติม
          จะต้องประกาศตัวแปรมารับค่าก่อน เพราะเมื่อ Openfile แล้ว PB จะอ้างอิง file จากค่าตัวแปรที่มารับคำสั่ง Fileopen   และใช้ตัวแปรนี้แทนไปตลอดโดยไม่ต้องอ้างถึงชื่อ file อีก
        LineMode!   =  สำหรับการอ่านข้อมูลมาทีละบรรทัด

การอ่านข้อมูล
             จะใช้คำสั่ง fileread ในการอ่านข้อมูล   จาก help   FileRead ( file#, variable )
โดยที่  fileread  เป็น function  แล้วจะคืนค่าจำนวน byte ที่อ่านได้   หากอ่านค่าไม่ได้จะส่งค่า -100  กลับออกมา
ดังนั้นหากต้องการ read ทีละบรรทัดทั้ง file   จะให้ LOOP เข้ามาช่วยดังตัวอย่าง
 string ls_data
 DO UNTIL   FileRead(li_FileNum, ls_data)   < 0 
 \\นำ ls_data ไปใช้งาน 
 LOOP

การเขียนข้อมูล  
           การเขียนข้อมูลจะใช้คำสั่ง FileWrite ( file#, variable )
       ตัวอย่างการเขียน
      FileWrite(li_export, '===== '  + ls_address)
*  ทั่งนี้ ตอกแรกใช้งาน fileopen จะต้องเป็นแบบ write mode  ดังตัวอย่าง
li_file_alarm = FileOpen( gs_dir +   "\Meter_alrm.log",      LineMode! , Write!, LockWrite!, Append!)

การปิด file
        หลังจากที่มีการอ่านหรือเขียน file เรียบร้อยแล้ว จะต้องมีการปิด file ด้วยคำสั่ง  FileClose ( file# )
       ดังตัวอย่าง
        FileClose(li_FileNum)

ในทางปฏิบัติ ชุดคำสั่งนี้ จะมีประโยชน์ สำหรับเทคนิคการเขียนโปรแกรม เพื่อทำการ IMPORT หรือ EXPORT data  ไปเป็น TEXT file