• Home
 · 
• Files/File Controls/Input/Output
 · 
• New type of INI

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

• 1
• 2
• 3
• 4
• 5

(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