Seite durchsuchen nach:
(powered by FreeFind)
Bemerkung: Manche Browser haben offensichlich Probleme mit CSS. Für die richtige Darstellung dieser Seiten verwenden Sie am besten Firefox, Chrome oder Opera.
Bemerkung: Manche Browser haben offensichlich Probleme mit CSS. Für die richtige Darstellung dieser Seiten verwenden Sie am besten Firefox, Chrome oder Opera.
x = ReadParms( dsnPAR[, ddnPAR] ) [;]
AllocIt
key = value definiert werden.
parm.
eingelesen, und zwar mit dem key als Index:
parm.key = value
Sourcecode
/*=========( Read parameters for a procedure )=========*/
ReadParms: Procedure Expose parm.
Parse Arg dsnPAR, ddnPAR
If dsnPAR = "" Then Do
Say "Parmlib nicht angegeben. Programm beendet"
Exit 3
End
If ddnPAR = "" Then Parse Var dsnPAR . "(" ddnPAR ")" .
dsnPAR = "'" !! Strip( dsnPAR,,"'" ) !! "'"
If dsnPAR <> "" Then rc = AllocIt( dsnPAR, ddnPAR )
If rc = 0 Then Do
rc = Read( ddnPAR )
Say stem.0 "records from file" ddnPAR "read"
parm. = ""
Do i = 1 To stem.0
Parse Var stem.i key "=" value "/*" .
key = Strip( key )
value = Strip( value )
If value <> "" Then Do
parm.key = value
Say key "=" value
End
End
End
Else
Say "Parameter file" dsnPAR "not allocated. RC="rc"."
Return rc
/*** End ReadParms ***/
