A function that runs a command specified as a parameter

[Eugene Lutsenko]

I will try

[Eugene Lutsenko]

I tried to do this:

Code: Select all

MsgBox('INDEX ON PadRight('+aFieldName[ff]+','+aFieldSize[ff]+',".") TO Inp_tmp UNIQUE')
StartFunction('INDEX ON PadRight('+aFieldName[ff]+','+aFieldSize[ff]+',".") TO Inp_tmp UNIQUE')

Got this execution error when ADS is running:

Code: Select all

Function StartFunction(cText)
Local  bBlock := "{|| "+cText +"')}"
Local uResult
bBlock := &(bBlock)     // <<<===####### Error
uResult := eval(bBlock)
return uResult

Jimmy!
The key length limit of 25 did not work

[Auge_Ohr]

hi,

we talk about

Code: Select all

PadR()

which is a xBase Function but you use

Code: Select all

PadRight()

so change it and try again

[Eugene Lutsenko]

I'll try it now. And still there is a parameter in quotes: "."

[Eugene Lutsenko]

I tried it. The same error occurs. probably because of the quotes. Probably we should use the option with parameters

[skiman]

Hi,

You can't use command, you need to use functions!

Command are 'converted' to functions with the include files when compiling. Instead of 'index on' you need to use 'dbcreateindex()'.

[Eugene Lutsenko]

hi!

Code: Select all

StartFunctTXT('DbCreateIndex("Inp_tmp", PadR('+aFieldName[ff]+','+aFieldSize[ff]+',"."), .T. ')

[Auge_Ohr]

hi,

build a String, which is incorrect, before pass to Function

[Eugene Lutsenko]

hi!
Fixed

Code: Select all

                    MsgBox('DbCreateIndex("Inp_tmp", PadR('+aFieldName[ff]+','+aFieldSize[ff]+',"."), .T.)')
                    StartFunctTXT('DbCreateIndex("Inp_tmp", PadR('+aFieldName[ff]+','+aFieldSize[ff]+',"."), .T.)')

Code: Select all

******************************************************************************************
******** Функция, которая запускает команду, заданную в виде текстового параметра
******************************************************************************************
Function StartFunctTXT(cText)
Local  bBlock := "{|| "+cText +"')}"
Local uResult
bBlock := &(bBlock)     // <<<===####### Error
uResult := eval(bBlock)
return uResult
******************************************************************************************