New type of INI
A different kind of INI because I don't like the
ini's that are so easy to use!
example:
@ Header1, Value1
@ Header2, Value2
@ Header3, Value3
@ Header4, Value4
Rate New type of INI
(6(6 Vote))
Public Function ReadFile(Header$, Filename$)
Dim FF: FF = FreeFile
Dim Data$
Open Filename$ For Binary As #FF
Data$ = Input(LOF(FF), FF)
Close #FF
Dim lines: lines = Split(Data$, vbCrLf)
For i = 0 To UBound(lines)
If UCase(Left(lines(i), Len("@ " & Header & ","))) = UCase("@ " & Header & ",") Then
ReadFile = Mid(lines(i), Len("@ " & Header & ",") + 1)
ReadFile = LTrim(ReadFile)
End If
Next i
End Function
New type of INI Comments
No comments yet — be the first to post one!
Post a Comment