File IO

[Patrice Terrier]

FOpen the basic version keyword was first introduced by Ethan Winer (Crescent Software) in 1991.
It was modeled closely onto C, and since that time i have always used it, even in PB and now in C++
same for FPut, FGet, FClose, etc.
I found this syntax much easier than the verbose PB's 
OPEN "text.txt" FOR INPUT As FP1

[Charles Pegge]

One of the flaws in Basic has been to conflate verbosity with user-friendliness. If we can trim off these embellishments and,  instead use regular syntax, Basic will be a fitter language

[JRS]

Great to see you back on the OxygenBasic forum again Patrice!

I found this syntax much easier than the verbose PB's
OPEN "text.txt" FOR INPUT As FP1

It doesn't get much simpler than this.

Code: Script BASIC

1. filestr = LoadString("text.txt")
2.  

[Patrice Terrier]

My point is, as long as there is an existing API, why not using the same name than the original, there is no need to re-invent the wheel or using a convoluted syntax to encapsulate the core function.

FOpen has been there for me, since the PDS time...

[Mike Lobanovsky]

Patrice,

LoadString() is an existing API. It comes OOTB right from Windows SDK rather than C/C++ RTL.

[Patrice Terrier]

LoadString and FOpen are two distincts animals that do not serve the same purpose.

[JRS]

True but we were discussing verbose.

[Charles Pegge]

Loading and saving whole files are essentially 3-step processes, but I think it's still useful to have them as one-liners, since this will meet the majority of file i/o needs.

Code: [Select]

uses corewin

function LoadFile(string name, any*data, int e)
===============================================
sys f
f=fopen name,"r"    'open for reading
e=fread @data,1,e,f 'load data
fclose f            'close file
return e
end function


function SaveFile(string name, any*data, int e)
===============================================
sys f
f=fopen name,"w"      'open for writing
e=fwrite @data,1,e,f  'save data
fclose f              'close file
return e
end function

'TEST
=====
float v[100],w[100]
for i=1 to 100 : v[i]=i*1.5 : next
SaveFile "t.bin",v,bytesof v
LoadFile "t.bin",w,bytesof v
print w[51] '76.5