Anonymous user
Read a specific line from a file: Difference between revisions
Read a specific line from a file (view source)
Revision as of 19:51, 14 December 2011
, 12 years ago→{{header|Python}}: Added PureBasic
m (→{{header|Pascal}}: works with FreePascal added) |
(→{{header|Python}}: Added PureBasic) |
||
Line 531:
assert linelist != [], 'Not 7 lines in file'
line = linelist[0]</lang>
=={{header|PureBasic}}==
<lang purebasic>Structure lineLastRead
lineRead.i
line.s
EndStructure
Procedure readNthLine(file, n, *results.lineLastRead)
*results\lineRead = 0
While *results\lineRead < n And Not Eof(file)
*results\line = ReadString(file)
*results\lineRead + 1
Wend
If *results\lineRead = n
ProcedureReturn 1
EndIf
EndProcedure
Define filename.s = OpenFileRequester("Choose file to read a line from", "*.*", "All files (*.*)|*.*", 0)
If filename
Define file = ReadFile(#PB_Any, filename)
If file
Define fileReadResults.lineLastRead, lineToRead = 7
If readNthLine(file, lineToRead, fileReadResults)
MessageRequester("Results", fileReadResults\line)
Else
MessageRequester("Error", "There are less than " + Str(lineToRead) + " lines in file.")
EndIf
CloseFile(file)
Else
MessageRequester("Error", "Couldn't open file " + filename + ".")
EndIf
EndIf </lang>
=={{header|Ruby}}==
|