+- QB64 Phoenix Edition (https://staging.qb64phoenix.com)
+-- Forum: QB64 Rising (https://staging.qb64phoenix.com/forumdisplay.php?fid=1)
+--- Forum: Code and Stuff (https://staging.qb64phoenix.com/forumdisplay.php?fid=3)
+---- Forum: Programs (https://staging.qb64phoenix.com/forumdisplay.php?fid=7)
+---- Thread: Command Line INI Editor (/showthread.php?tid=487)
Command Line INI Editor - AtomicSlaughter - 05-24-2022
OK my ini include has been modified to work from the command line.
the usage format is
-add -f filename -s section -k key -d data
-del -f filename, -s section -k key
-delsec -f filename, -s section
-read -f filename, -s section -k key
-readsection -f filename, -s section
Code: (Select All)
$Console:Only
Type Sections
lineNum As Integer
section As String
End Type
If Command$ <> "" Then
test$ = Command$(1)
For i = 2 To _CommandCount Step 2
Select Case Command$(i)
Case "-f"
FileName$ = Command$(i + 1)
Case "-s"
IniSection$ = Command$(i + 1)
Case "-d"
INIData$ = Command$(i + 1)
Case "-k"
INIKey$ = Command$(i + 1)
End Select
Next
Select Case test$
Case "-add": AddINI FileName$, IniSection$, INIKey$, INIData$: System
Case "-del": DelINI FileName$, IniSection$, INIKey$: System
Case "-delsec": DelSec FileName$, IniSection$: System
Case "-read": Print ReadINI(FileName$, IniSection$, INIKey$): System
Case "-readsection": ReadINISec FileName$, IniSection$: System
End Select
System
Else
Input "Command >", test$
Select Case test$
Case "add"
Input "Filename >", FileName$
Input "Section >", IniSection$
Input "Key >", INIKey$
Input "Data >", INIData$
AddINI FileName$, IniSection$, INIKey$, INIData$: System
Case "del"
Input "Filename >", FileName$
Input "Section >", IniSection$
Input "Key >", INIKey$
DelINI FileName$, IniSection$, INIKey$: System
Case "delsec"
Input "Filename >", FileName$
Input "Section >", IniSection$
DelSec FileName$, IniSection$
Case "read"
Input "Filename >", FileName$
Input "Section >", IniSection$
Input "Key >", INIKey$
Print ReadINI(FileName$, IniSection$, INIKey$): System: System
End Select
End If
Sub LoadINIFile (FileName As String, iniData() As String, iniSections() As Sections)
ReDim As String iniData(0)
ReDim As Sections iniSections(0)
If _FileExists(FileName) Then
file = FreeFile
Open FileName For Binary As #file
If LOF(file) = 0 Then Exit Sub
Do
Line Input #file, iniData(UBound(iniData))
If InStr(iniData(UBound(iniData)), "[") > 0 Then
iniSections(UBound(iniSections)).section = iniData(UBound(iniData))
iniSections(UBound(iniSections)).lineNum = x
ReDim _Preserve As Sections iniSections(UBound(iniSections) + 1)
End If
ReDim _Preserve iniData(UBound(iniData) + 1)
x = x + 1
Loop Until EOF(file)
Close
End If
iniSections(UBound(iniSections)).section = "End of File"
iniSections(UBound(iniSections)).lineNum = x
End Sub
Sub CheckSection (sec() As Sections, check As String, out1 As Single, out2 As Single, Ret As String)
For i = 0 To UBound(sec)
If LCase$(sec(i).section) = "[" + LCase$(check) + "]" Then
out1 = sec(i).lineNum + 1
out2 = sec(i + 1).lineNum - 1
Exit Sub
End If
Next
Ret = "New Section"
End Sub
Function ReadINI$ (FileName As String, Section As String, INIKey As String)
Dim sec(0) As Sections: Dim ini(0) As String
Dim As Single start, finish
LoadINIFile FileName, ini(), sec()
If Section <> "" Then
CheckSection sec(), Section, start, finish, ret$
For i = start To finish
If Left$(LCase$(ini(i)), InStr(ini(i), "=") - 1) = LCase$(INIKey) Then
ReadINI = Right$(ini(i), (Len(ini(i)) - InStr(ini(i), "=")))
End If
Next
Else
Do
If Left$(LCase$(ini(i)), InStr(ini(i), "=") - 1) = LCase$(INIKey) Then
ReadINI = Right$(ini(i), (Len(ini(i)) - InStr(ini(i), "=")))
End If
i = i + 1
Loop Until ini(i) = ""
End If
End Function
Sub DelINI (FileName As String, Section As String, INIKey As String)
Dim sec(0) As Sections: Dim ini(0) As String
Dim As Single start, finish
LoadINIFile FileName, ini(), sec()
If Section <> "" Then
CheckSection sec(), Section, start, finish, ret$
For i = start To finish
If Left$(LCase$(ini(i)), InStr(ini(i), "=") - 1) = LCase$(INIKey) Then
ReDim temp(UBound(ini) - 1) As String
For a = 0 To (i - 1)
temp(a) = ini(a)
Next
For a = i To UBound(temp)
temp(a) = ini(a + 1)
Next
End If
Next
Else
Do
If Left$(LCase$(ini(i)), InStr(ini(i), "=") - 1) = LCase$(INIKey) Then
ReDim temp(UBound(ini) - 1) As String
For a = 0 To i - 1
temp(a) = ini(a)
Next
For a = x To UBound(ini)
temp(x) = ini(x + 1)
Next
End If
i = i + 1
Loop Until ini(i) = ""
End If
Do
If temp(UBound(temp)) = "" Then ReDim _Preserve temp(UBound(temp) - 1)
Loop Until temp(UBound(temp)) <> ""
f = FreeFile
Open FileName For Output As #f
For i = 0 To UBound(temp)
Print #f, temp(i)
Next
Close
End Sub
Sub DelSec (FileName As String, Section As String)
Dim sec(0) As Sections: Dim ini(0) As String
Dim As Single start, finish
LoadINIFile FileName, ini(), sec()
CheckSection sec(), Section, start, finish, ret$
ReDim Temp(UBound(ini)) As String
For i = 0 To start
Temp(i) = ini(i)
Next
For i = finish To UBound(ini)
Temp(i - finish) = ini(i)
Next
Do
If Temp(UBound(Temp)) = "" Then ReDim _Preserve Temp(UBound(Temp) - 1)
Loop Until Temp(UBound(Temp)) <> ""
f = FreeFile
Open FileName For Output As #f
For i = 0 To UBound(Temp)
Print #f, Temp(i)
Next
Close
End Sub
Sub AddINI (FileName As String, Section As String, INIKey As String, INIData As String)
Dim sec(0) As Sections: Dim ini(0) As String
Dim As Single start, finish
LoadINIFile FileName, ini(), sec()
CheckSection sec(), Section, start, finish, ret$
ReDim temp(UBound(ini) + 1) As String
If ret$ = "New Section" Then
ReDim temp(UBound(ini) + 3)
temp(0) = "[" + Section + "]"
temp(1) = INIKey + "=" + INIData
temp(2) = ""
For i = 3 To UBound(ini)
temp(i) = ini(i - 3)
Next
Else
If Section <> "" Then
For i = 0 To start
temp(i) = ini(i)
Next
temp(start) = INIKey + "=" + INIData
For i = start + 1 To UBound(ini)
temp(i) = ini(i - 1)
Next
Else
temp(0) = INIKey + "=" + INIData
For i = 1 To UBound(ini)
temp(i) = ini(i - 1)
Next
End If
End If
Do
If temp(UBound(temp)) = "" Then ReDim _Preserve temp(UBound(temp) - 1)
Loop Until temp(UBound(temp)) <> ""
ff = FreeFile
Open FileName For Output As #ff
For i = 0 To UBound(temp)
Print #ff, temp(i)
Next
Close
End Sub
Sub ReadINISec (FileName As String, Section As String)
Cls
Dim sec(0) As Sections: Dim ini(0) As String
Dim As Single start, finish
LoadINIFile FileName, ini(), sec()
CheckSection sec(), Section, start, finish, ret$
x = start: y = finish
Print ini(start - 1)
For i = x To y
Print ">> ", ini(i)
Next
End Sub