New type of INI
A different kind of INI because I don't like the ini's that are so easy to use!
AI
AI Summary: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Source Code
<PRE>Public Function ini(Header, Filename)
dim strFile, FF
FF = FreeFile ' Finds open loading File#
open Filename for Input as #FF ' Opens File
strFile = input(lof(FF), FF) ' Reads in File
close #FF ' Closes File
strFile = split(strFile, vbcrlf) ' Puts into line form
for x = 0 to uBound(strFile)
if lcase(left(strFile(x),len(Header & "(") = lcase(Header & "(") then
ini = left(mid(Filename,len(Header & "("),len(mid(Filename, len(Header & "(") - 1)
exit x
end if
next x
End Function</PRE>
Original Comments (3)
Recovered from Wayback Machine