Read INI
Opens a INI-file and Get the value of ex: "Screensaver=" without using any system calls!!!
AI
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.
ソースコード
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
オリジナルのコメント (3)
Wayback Machineから復元