One of n lines in a file: Difference between revisions
m
→{{header|Mathematica}}
MaiconSoft (talk | contribs) m (Added Delphi reference to Pascal code) |
|||
Line 1,409:
</lang>
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<lang Mathematica>chooseLine[file_] := Block[{strm = OpenRead[file], n = 1, rec, selected},
rec = selected = Read[strm];
| |||