Code archives/Algorithms/String parsing functions

;Parse$()
Parse$(message$, item, seperator$)

string$ = "blah,lol,beep"
x$ = Parse$(string$, 2, ",")
;x$ will be "lol"

LoadFont("Arial,20,1,0,0")
GetParam(file_path$, param$)
;======
;file content:
blah = 1
lol = 2
beep = 3

win_mode = GetParam("Gfx.ini", "Windowmode")
Graphics 1024, 768, 32, win_mode

Function Parse$(msg$, item, sep$ = ",")
Repeat
	fas = Instr(msg$, sep$, fas + 1)
	count = count + 1
Until fas = 0 Or count = item
If fas = 0 And item > 0 Then Return
spos = fas + 1
epos = Instr(msg$ + sep$, sep$, fas + 1)
Return Mid(msg$, spos, epos - spos)
End Function

Function GetParam$(path$, p$)
file = ReadFile(path$)
While Not Eof(file)
	l$ = Replace(ReadLine(file), " ", "")
	If GUI_Parse(l$, 0, "=") = p$ Then
		txt$ = GUI_Parse(l$, 1, "=")
		txt$ = Replace(txt$, Chr(34), "")
		txt$ = Replace(txt$, "~", " ")
		Exit
	EndIf
Wend
CloseFile file
If txt$ = "" Then RuntimeError "GUI_GetParam$() failed."
Return txt$
End Function

Function LoadFont(fnt$)
Return LoadFont(GUI_Parse(fnt$, 0), GUI_Parse(fnt$, 1), GUI_Parse(fnt$, 2), GUI_Parse(fnt$, 3), GUI_Parse(fnt$, 4))
End Function