Data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · cb5bb5e222
commit cb5bb5e222
parent 7387c8f97b
199093 changed files with 3378972 additions and 0 deletions
--- a/Task/Read-a-specific-line-from-a-file/FutureBasic/read-a-specific-line-from-a-file.basic
+++ b/Task/Read-a-specific-line-from-a-file/FutureBasic/read-a-specific-line-from-a-file.basic
@ -0,0 +1,26 @@
+window 1
+
+long     i = 1
+Str255   s, lineSeven
+CFURLRef url
+
+url = openpanel 1, @"Select text file"
+if ( url )
+  open "I", 2, url
+  while ( not eof(2) )
+    line input #2, s
+    if ( i == 7 )
+      lineSeven = s : break
+    end if
+    i++
+  wend
+  close 2
+
+  if ( lineSeven[0] )
+    print lineSeven
+  else
+    print "File did not contain seven lines, or line was empty."
+  end if
+end if
+
+HandleEvents