Ang Pascal ay isa sa mga pinakalawak na ginagamit na wika ng programa dahil sa pagiging simple at mahusay na pag-andar nito. Sa pamamagitan ng Pascal, maaari kang gumana sa mga file sa pamamagitan ng paglikha o pagbabago sa kanila gamit ang mga naaangkop na pagpapaandar.
Panuto
Hakbang 1
Upang lumikha ng isang file ng teksto sa Pascal, kinakailangan upang magtakda ng mga variable ng naaangkop na uri, na isusulat sa kaukulang seksyon ng memorya. Upang magawa ito, maaari mong gamitin ang iba't ibang mga pag-andar ng wika. Ang lahat ng data at variable ay nakasulat gamit ang karaniwang pagpapatakbo ng Writeln (tukuyin lamang ang isang karagdagang parameter). Paglikha ng ProgramFile;
var textfile: Text; nametype: String; texttring: String; a, b: integer; Kung saan ang textfile ay isang variable ng uri ng Teksto na naglalaman ng pangalan ng file. Nametype - ang uri ng pag-input ng teksto kung saan itinalaga ang String. Ang Texttring ay isang string ng teksto ng naaangkop na uri. Ang A at b ay mga auxiliary variable na nag-iimbak ng mga integer na bilang na bilang.
Hakbang 2
I-prompt ang gumagamit upang ipasok ang nais na uri ng file na nametype. Kailangan itong maiugnay sa textfile. Writeln mismo ('Mangyaring i-type ang pangalan ng pagta-type ng data');
Readln (nametype);
Magtalaga (textfile, nametype);
Hakbang 3
Buksan ang file upang magsulat ng data at i-prompt ang gumagamit na ipasok muna ang bilang ng mga linya upang isulat, at pagkatapos ang kanilang nilalaman. Ang data ay ilalagay sa mismong dokumento nang paisa-isa. Isulat muli (textfile);
Writeln ('Mag-type ng mga numero ng mga string:');
Readln (b); {variable na nag-iimbak ng bilang ng mga linya}
Writeln ('Mangyaring i-type ang mga string:');
Hakbang 4
Upang magsulat ng isang nakapirming bilang ng mga linya, gumamit ng isang loop, ang unang parameter na dapat na tumutugma sa bilang ng unang linya ng file, sa kasong ito ang bilang 1. para sa isang: = 1 hanggang b gawin
magsimula
Readln (texttring);
Writeln (textfile, texttring); {pagpapaandar ng pagsulat ng file}
wakas;
Hakbang 5
Lumabas sa file at tapusin ang programa gamit ang naaangkop na mga pagpapaandar. Magpakita din ng isang abiso tungkol sa matagumpay na pagrekord. Upang maiwasan ang mga problema sa output, magtakda ng isang pangalawang readln.close (textfile);
Writeln ('Tagumpay');
readln;
Tapusin
Hakbang 6
Matagumpay na nilikha ang file. Compile at i-save ang script sa pamamagitan ng menu ng iyong kapaligiran sa programa.
