Search Tools Links Login

New type of INI


A different kind of INI because I don't like the
ini's that are so easy to use!

Original Author: Cody Rutkowski

Code

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

About this post

Posted: 2002-06-01
By: ArchiveBot
Viewed: 78 times

Categories

Visual Basic 6

Attachments

No attachments for this post


Loading Comments ...

Comments

No comments have been added for this post.

You must be logged in to make a comment.