Create / read .ini file

BlitzMax Forums/BlitzMax Programming/Create / read .ini file

ftbass

(Posted 2005) [#1]

Here's a library I wrote that allows to create / read .ini files.

'####################################################'
'												'
' Bibliotheque iniFileMax v0.1						'
' Gestion des fichiers .ini						'
' Ecrit par Julien COIGNET	(ftbass)					'
' msn : breddabasse@...						'
' email : juliencoignet@...					'
'												'
'####################################################'

'#####################'
'					'
' Version francaise 	'
'					'
'#####################'


' Fonction de creation du fichier
'----------------------------------
Function iniCreerFichier(id:String)

Local fileout

	' Creation du fichier
	fileout = WriteFile(Upper(id)) 
	' Close the file 
	CloseStream(fileout) 

End Function

' Fonction de creation d'une section
'--------------------------------------
Function iniCreerSection(idFile:String, idSection:String)

Local fileout
Local SectionExiste = False
Local Ligne:String

	' Si le fichier n'existe pas, on le cree, et on ecrit le nom de la section
	If FileType(Upper(idFile)) = 0 Then 
		iniCreerFichier(Upper(idFile))
		fileout = OpenFile(Upper(idFile))
		WriteLine(fileout, "[" + Upper(idSection) + "]")
		CloseFile(fileout)
'		Return True
	Else 
		' Si le fichier existe, on le lit
		If FileType(Upper(idFile)) = 1 Then
			fileout = OpenFile(Upper(idFile))
			While Not Eof(fileout)

				Ligne = ReadLine(fileout)

				If  (Ligne = "[" + Upper(idSection) + "]") Then
					SectionExiste = True
				End If
				
			Wend 
			' Si la section n'y est pas, on l'y insere
			If SectionExiste = False Then
			
				SeekStream fileout, StreamSize(fileout)
			
				WriteLine(fileout, "")
				WriteLine(fileout, "[" + Upper(idSection) + "]")
'				Return True
'			Else
'				Return False
			End If
			CloseFile(fileout)
		End If 
	End If	
	
End Function

' Fonction qui determine si une ligne represente une section
Function iniEstUneSection(Chaine:String)
	If (Left(Chaine, 1) = "[") And (Right(Chaine, 1) = "]") Then
		Return True
	Else
		Return False
	End If
End Function

' Fonction qui determine si une section existe
Function iniSectionExiste(idFile:String, idSection:String)

Local filein
Local Resultat = False
Local Ligne:String

	filein = OpenFile(idFile)

	While (Not Eof(filein)) And Resultat = False
		Ligne = ReadLine(filein)
		If Ligne = ("[" + Upper(idSection) + "]") Then
			Resultat = True
		End If
	Wend
	
	CloseFile(filein)
	
	Return Resultat

End Function

' Fonction qui renvoie le nom de la section (sans les crochets)
Function iniNomSection:String(Chaine:String)

Local Resultat:String

	Return Left(Right(Chaine, Len(Chaine ) - 1), Len(Chaine) - 2)

End Function

' Fonction qui ecrit une variable de Type Float dans une section
Function iniCreerVariableFloat(idFile:String, idSection:String, idVar:String, valVar:Float)

Local fileout
Local Ligne:String
Local SectionExiste = False

	' Si le fichier n'existe pas, on le cree, et on ecrit le nom de la section
	If FileType(Upper(idFile)) = 0 Then
		iniCreerSection(idFile, idSection)
		fileout = OpenFile(Upper(idFile))
		While Not Eof(fileout)
			Ligne = ReadLine(fileout)
		Wend
		WriteLine(fileout, idVar + " = " + valVar)
		CloseStream(fileout)
	Else 
		' Si le fichier existe, on le lit
		If FileType(Upper(idFile)) = 1 Then
			fileout = OpenFile(Upper(idFile))
			Ligne = ReadLine(fileout)
			While (Not(Eof(fileout))) 'Or (Ligne = ("[" + Upper(idSection) + "]")))
				Ligne = ReadLine(fileout)
			Wend
			
			SeekStream fileout, StreamSize(fileout)

			WriteLine(fileout, idVar + " = " + valVar)

			CloseStream(fileout)
		End If
	End If
	
End Function

' Fonction qui ecrit une variable de Type Integer dans une section
Function iniCreerVariableInt(idFile:String, idSection:String, idVar:String, valVar:Int)

Local fileout
Local Ligne:String
Local SectionExiste = False

	' Si le fichier n'existe pas, on le cree, et on ecrit le nom de la section
	If FileType(Upper(idFile)) = 0 Then
		iniCreerSection(idFile, idSection)
		fileout = OpenFile(Upper(idFile))
		While Not Eof(fileout)
			Ligne = ReadLine(fileout)
		Wend
		WriteLine(fileout, idVar + " = " + valVar)
		CloseFile(fileout)
	Else 
		' Si le fichier existe, on le lit
		If FileType(Upper(idFile)) = 1 Then
			fileout = OpenFile(Upper(idFile))
			Ligne = ReadLine(fileout)
			While (Not(Eof(fileout))) 'Or (Ligne = ("[" + Upper(idSection) + "]")))
				Ligne = ReadLine(fileout)
			Wend

			SeekStream fileout, StreamSize(fileout)

			WriteLine(fileout, idVar + " = " + valVar)

			CloseFile(fileout)
		End If
	End If
	
End Function

' Fonction qui ecrit une variable de Type String dans une section
Function iniCreerVariableStr(idFile:String, idSection:String, idVar:String, valVar:String)

Local fileout
Local Ligne:String
Local SectionExiste = False

	' Si le fichier n'existe pas, on le cree, et on ecrit le nom de la section
	If FileType(Upper(idFile)) = 0 Then
		iniCreerSection(idFile, idSection)
		fileout = OpenFile(Upper(idFile))
		While Not Eof(fileout)
			Ligne = ReadLine(fileout)
		Wend
		WriteLine(fileout, idVar + " = " + valVar)
		CloseFile(fileout)
	Else 
		' Si le fichier existe, on le lit
		If FileType(Upper(idFile)) = 1 Then
			fileout = OpenFile(Upper(idFile))
			Ligne = ReadLine(fileout)
			While (Not(Eof(fileout))) 'Or (Ligne = ("[" + Upper(idSection) + "]")))
				Ligne = ReadLine(fileout)
			Wend

			SeekStream fileout, StreamSize(fileout)

			WriteLine(fileout, idVar + " = " + valVar)

			CloseFile(fileout)
		End If
	End If
	
End Function

' Fonction qui lit une variable de Type Float dans une section
Function iniLireVariableFloat:Float(idFile:String, idSection:String, idVar:String)

Local filein
Local Ligne:String
Local Resultat:Float

	filein = ReadFile(Upper(idFile))
	Ligne = ReadLine(filein)
	
	While Not Eof(filein) And Ligne <> "[" + Upper(idSection) + "]"
		ligne = ReadLine(filein)
	Wend
	
	While Not Eof(filein) And (Left(Ligne, Len(idVar)) <> idVar)
		Ligne = ReadLine(filein)
	Wend

	Resultat = Float(Right(Ligne, (Len(Ligne) - (Len(idVar) + 3))))
	
	CloseFile(filein)
	Return Resultat
	
End Function

' Fonction qui lit une variable de Type Integer dans une section
Function iniLireVariableInt:Int(idFile:String, idSection:String, idVar:String)

Local filein
Local Ligne:String
Local Resultat:Int

	filein = ReadFile(Upper(idFile))
	Ligne = ReadLine(filein)
	
	While Not Eof(filein) And Ligne <> "[" + Upper(idSection) + "]"
		Ligne = ReadLine(filein)
	Wend

	While Not Eof(filein) And (Left(Ligne, Len(idVar)) <> idVar)
		Ligne = ReadLine(filein)
	Wend

	Resultat = Int(Right(Ligne, (Len(Ligne) - (Len(idVar) + 3))))
	
	CloseFile(filein)
	Return Resultat
	
End Function

' Fonction qui lit une variable de Type String dans une section
Function iniLireVariableStr:String(idFile:String, idSection:String, idVar:String)

Local filein
Local Ligne:String
Local Resultat:String
Local i:Int = 0
	
	filein = ReadFile(Upper(idFile))
	Ligne = ReadLine(filein)
	
	While Not Eof(filein) And Ligne <> "[" + Upper(idSection) + "]"
		ligne = ReadLine(filein)
	Wend

	While Not(Eof(filein) Or (Left(Ligne, Len(idVar)) = idVar))
		Ligne = ReadLine(filein)
	Wend

	Resultat = Right(Ligne, (Len(Ligne) - (Len(idVar) + 3)))
	
	CloseFile(filein)
	Return Resultat
	
End Function


'#####################'
'					'
' Version anglaise	'
'					'
'#####################'

Function iniCreateFile(id:String)
	iniCreerFichier(id:String)
End Function

Function iniCreateSection(idFile:String, idSection:String)
	iniCreerSection(idFile:String, idSection:String)
End Function

Function iniIsSection(Chaine:String)
	Return(iniEstUneSection(Chaine:String))
End Function

Function iniSectionExist(idFile:String, idSection:String)
	Return(iniSectionExiste(idFile:String, idSection:String))
End Function

Function iniSectionName:String(Chaine:String)
	Return(iniNomSection:String(Chaine:String))
End Function

Function iniCreateVarFloat(idFile:String, idSection:String, idVar:String, valVar:Float)
	iniCreerVariableFloat(idFile:String, idSection:String, idVar:String, valVar:Float)
End Function

Function iniCreateVarInt(idFile:String, idSection:String, idVar:String, valVar:Int)
	iniCreerVariableInt(idFile:String, idSection:String, idVar:String, valVar:Int)
End Function

Function iniCreateVarStr(idFile:String, idSection:String, idVar:String, valVar:String)
	iniCreerVariableStr(idFile:String, idSection:String, idVar:String, valVar:String)
End Function

Function iniGetVarFloat:Float(idFile:String, idSection:String, idVar:String)
	Return(iniLireVariableFloat:Float(idFile:String, idSection:String, idVar:String))
End Function

Function iniGetVarInt:Int(idFile:String, idSection:String, idVar:String)
	Return(iniLireVariableInt:Int(idFile:String, idSection:String, idVar:String))
End Function

Function iniGetVarStr:String(idFile:String, idSection:String, idVar:String)
	Return(iniLireVariableStr:String(idFile:String, idSection:String, idVar:String))
End Function

and a little example to see how it works :

Include "iniFileMax.bmx"


If FileType("OUT.INI") = 0 Then
	iniCreerFichier("out.ini")

	iniCreerSection("out.ini", "SECTION 1")

	iniCreerVariableStr("out.ini", "SECTION 1", "Mot", "test 1")
	iniCreerVariableFloat("out.ini", "SECTION 1", "Valeurf", .15)
	iniCreerVariableInt("out.ini", "SECTION 1", "Valeuri", 15)

	iniCreerSection("out.ini", "SECTION 2")
	iniCreerVariableStr("out.ini", "SECTION 2", "Mot", "test 2")
	iniCreerVariableFloat("out.ini", "SECTION 2", "Valeurf", .30)
	iniCreerVariableInt("out.ini", "SECTION 2", "Valeuri", 30)
	
	iniCreerSection("out.ini", "SECTION 3")
	iniCreerVariableStr("out.ini", "SECTION 3", "Mot", "test 3")
	iniCreerVariableFloat("out.ini", "SECTION 3", "Valeurf", .45)
	iniCreerVariableInt("out.ini", "SECTION 3", "Valeuri", 45)
End If


Print iniLireVariableStr("out.ini", "SECTION 2", "Mot")
Print iniLireVariableFloat("out.ini", "SECTION 2", "Valeurf")
Print iniLireVariableInt("out.ini", "SECTION 2", "Valeuri")

You can use it for whatever you want.
PLease share your improvement, and let me know if you use it in some of your prods :)

see ya

ps: thx to PowerPC603 for his magic line ;)

K@li	(Posted 2007) [#2]

dead ?

dommage

assari

(Posted 2007) [#3]

There are other ini modules you can try
http://www.blitzmax.com/Community/posts.php?topic=70840
or
http://blitzhelp.net/blitzhelp.php?mode=showupload&id=1