TheGameCreators - CodeBase - Parameter File Input

Return to the CodeBase listing

Category: File

Version: 1.0

Information

Uploaded: 3rd Sep 2003 07:51

Modified: 15th Oct 2003 11:32

Author: BatVink

Summary

Paremeter file input routines

Full Description

This code allows you to easily read values from a parameter file, by parameter name. It includes routines for reading strings, integers and floating values.<br /> <br /> Also included is a debug subroutine to ensure your parameters are being read correctly.<br /> <br /> Instructions for implementation are included in the header of the include file.

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

REMSTART

*****************************************************

** Load Parameters from file                       **

**                                                 **

** You Must include this line in your main prog... **

**                                                 **

**   DIM gasParms(100,2)                           **

**                                                 **

** You can change the value 100 to the number of   **

** parameters you require.  Declaring too many     **

** is better than declaring too few.               **

** If you don't specify a file name it will assume **

** "parameters.ini" as the filename.               **

**                                                 **

** Start by calling LoadParms("").                 **

** This will read the parameter file into the prog.**

**                                                 **

** To retrieve a value, use the relevant function: **

**                                                 **

** x = getParmInt("MyValue")                       **

** x$ = getParmString("MyValue")                   **

** x# = getParmReal("MyValue")                     **

**                                                 **

** PrintParms() will display your                  **

**  parameters on the screen (for debugging)       **

**                                                 **

** An invalid string request will return "~"       **

** An invalid number request will return 999       **

**                                                 **

** The format of the parameters file is:           **

**                                                 **

* Section 1 - Environment

lives=3

playername=Joe Bloggs

TimeLimit=60

* Section 2 - Player details

Speed=100

energy=50

**                                                 **

*****************************************************

REMEND

FUNCTION LoadParms(sFile$)

if sFile$ = "" then sFile$ = "parameters.ini"

x = 0

OPEN TO READ 1, sFile$

WHILE FILE END(1) = 0

READ STRING 1, temp$

if LEFT$(temp$,1) = "'" or LEFT$(temp$,1) = "*" or temp$ = "" THEN GOTO ReadNextParm

for n = 1 to LEN(temp$)

If MID$(temp$,n) = "="

EXIT

ENDIF

next n

IF n < Len(temp$)

x = x + 1

sParm$ = LEFT$(temp$,(n - 1))

sValue$ = Right$(temp$,LEN(temp$) - n)

gasParms$(x,1) = upper$(sParm$)

gasParms$(x,2) = sValue$

REM Print to screen if in debug mode...

if debug(1) = 1

print sParm$ + " = " + sValue$

if debug(2) = 1

wait 150

endif

sync

endif

ENDIF

ReadNextParm:

ENDWHILE

CLOSE FILE 1

ENDFUNCTION

REMSTART

*****************************************************

** Return a String Parameter                       **

*****************************************************

REMEND

FUNCTION GetParmString(sParm$)

sParm$ = upper$(sParm$)

ReturnVal$ = "~"

for n = 1 to 255

REM If out of parameters, return ~

if gasParms$(n,1) = ""

EXITFUNCTION ReturnVal$

endif

REM If found, return value

if gasParms$(n,1) = sParm$

EXITFUNCTION gasParms$(n,2)

endif

next n

ENDFUNCTION ReturnVal$

REMSTART

*****************************************************

** Return an Integer Parameter                     **

*****************************************************

REMEND

FUNCTION GetParmInt(sParm$)

sParm$ = upper$(sParm$)

ReturnVal = 999

for n = 1 to 255

REM If out of parameters, return ~

if gasParms$(n,1) = ""

EXITFUNCTION ReturnVal

endif

REM If found, return value

if gasParms$(n,1) = sParm$

EXITFUNCTION INT(VAL(gasParms$(n,2)))

endif

next n

ENDFUNCTION ReturnVal

REMSTART

*****************************************************

** Return a Real Parameter                         **

*****************************************************

REMEND

FUNCTION GetParmReal(sParm$)

sParm$ = upper$(sParm$)

ReturnVal# = 999.0

for n = 1 to 255

REM If out of parameters, return ~

if gasParms$(n,1) = ""

EXITFUNCTION ReturnVal

endif

REM If found, return value

if gasParms$(n,1) = sParm$

EXITFUNCTION VAL(gasParms$(n,2))

endif

next n

ENDFUNCTION ReturnVal#

REMSTART

*****************************************************

** Return a String Parameter                       **

*****************************************************

REMEND

FUNCTION PrintParms()

clear entry buffer

cls

for n = 1 to 255

if gasParms$(n,1) = ""

print ("End of Parameters at index " + str$(n))

wait 500

suspend for key

EXITFUNCTION ReturnVal$

endif

print str$(n) + " : " + gasParms$(n,1) + " = " + gasParms$(n,2)

next n

print ("End of Parameters Array")

wait 500

suspend for key

ENDFUNCTION ReturnVal$

Download

Please login to download

Comments

No comments yet.

Author Name:	BatVink
CodeBase Entries:	2

CodeBase - Parameter File Input

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments