The following sample code will write a "Record" which holds the days of the week into a specified text file: [-] type Weekdays is record [ ] STRING Day1 [ ] STRING Day2 [ ] STRING Day3 [ ] STRING Day4 [ ] STRING Day5 [ ] STRING Day6 [ ] STRING Day7 [ ] [-] testcase RecordToFile () appstate none [ ] [ ] STRING Day1 = "Monday" [ ] STRING Day2 = "Tuesday" [ ] STRING Day3 = "Wednesday" [ ] STRING Day4 = "Thursday" [ ] STRING Day5 = "Friday" [ ] STRING Day6 = "Saturday" [ ] STRING Day7 = "Sunday" [ ] [ ] HFILE hOutput [ ] Weekdays Week1 [ ] [ ] hOutput = FileOpen ("c:\foo.txt", FM_WRITE) [ ] [ ] Week1 = {Day1, Day2, Day3, Day4, Day5, Day6, Day7} [ ] [ ] FileWriteValue (hOutput, Week1) [ ] [ ] FileClose (hOutput) [ ] Old KB# 21537
↧