added LSL2 stored procedures
This commit is contained in:
14
LSL2/STPROC/EX_VM_REM.txt
Normal file
14
LSL2/STPROC/EX_VM_REM.txt
Normal file
@ -0,0 +1,14 @@
|
||||
compile function ex_vm_rem( VMArray )
|
||||
|
||||
$insert logical
|
||||
declare function fieldcount
|
||||
|
||||
|
||||
Vcnt = fieldcount( VMArray, @vm )
|
||||
for i = Vcnt to 1 step -1
|
||||
if VMArray<1,i> = '' then
|
||||
VMArray = delete( VMArray, 1, i, 0 )
|
||||
end
|
||||
next i
|
||||
RETURN VMArray
|
||||
|
Reference in New Issue
Block a user