Thanks, exactly what I needed!


>Hi Marten
>
>You could use the two functions below. GetValue() retrieves a value of an option, while SetValue() replaces the value.
>Hope this helps,
>Daniel
>
>*-- Retrieve a value from a string
>FUNCTION GetValue
>
>LPARAMETER tcString, tcOption
>
>*-- lcStr = "DRIVER={Microsoft Access Driver (*.mdb)};Dbq=c:\temp\bidon.mdb;Uid=Admin;Pwd=;"
>
>*-- examples:
>*-- GtValue(lcStr, "DBQ") = "c:\temp\bidon.mdb"
>*-- GtValue(lcStr, "Uid") = "Admin"
>
>#DEFINE ccStartChar "="
>#DEFINE ccEndChar ";"
>
>*-- add start character to tcOption if omitted
>tcOption = IIF(RIGHT(ALLTRIM(tcOption),1) = ccStartChar, tcOption, tcOption+ccStartChar)
>
>lnStartPos = ATC(tcOption, tcString)
>lnLen = ATC(ccEndChar, SUBSTR(tcString, lnStartPos)) - LEN(tcOption) -1
>
>IF lnStartPos > 0
> lcRetVal = SUBSTR(tcString, lnStartPos+LEN(tcOption), lnLen)
>ELSE
> lcRetVal = .NULL.
>ENDIF
>
>RETURN lcRetVal
>
>FUNCTION SetValue
>
>LPARAMETER tcString, tcOption, tcValue
>
>*-- lcStr = "DRIVER={Microsoft Access Driver (*.mdb)};Dbq=c:\temp\bidon.mdb;Uid=Admin;Pwd=;"
>
>*-- examples:
>*-- SetValue(lcStr, "DBQ", "c:\MyDir\My.mdb") = "DRIVER={Microsoft Access Driver (*.mdb)};Dbq=c:\MyDir\My.mdb;Uid=Admin;Pwd=;"
>*-- SetValue(lcStr, "PWD", "MyPassword") = "DRIVER={Microsoft Access Driver (*.mdb)};Dbq=c:\temp\bidon.mdb;Uid=Admin;Pwd=MyPassword;"
>
>
>#DEFINE ccStartChar "="
>#DEFINE ccEndChar ";"
>
>*-- add start character to tcOption if omitted
>tcOption = IIF(RIGHT(ALLTRIM(tcOption),1) = ccStartChar, tcOption, tcOption+ccStartChar)
>
>lnStartPos = ATC(tcOption, tcString)
>
>lcCurrentOption = GtValue(tcString, tcOption)
>
>IF lnStartPos > 0
> lcRetVal = STUFF(tcString, lnStartPos+LEN(tcOption), LEN(lcCurrentOption), tcValue)
>ELSE
> lcRetVal = .NULL.
>ENDIF
>
>RETURN lcRetVal