Advertisement
2002C Files/ File Controls/ Input/ Output #10174

Read INI

Opens a INI-file and Get the value of ex: "Screensaver=" without using any system calls!!!

AI

Tóm tắt bởi AI: 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.

Mã nguồn
original-source
Function ReadINI(keyname As String, filename As String) As String
Open filename For Input Access Read As 1
Do Until EOF(1)
  Line Input #1, stemp
    ipos = InStr(stemp, keyname & "=")
    If ipos Then
      strinnick = strinnick + stemp
      ifound = True
      Allofit$ = strinnick
      wow$ = Mid(Allofit$, Len(keyname) + 2)
      GetINI = wow$
      Close 1
      Exit Function
    End If
Loop
  Close 1
End Function
'Written by: Dan Einarsson
Bình luận gốc (3)
Được khôi phục từ Wayback Machine