15 lines
261 B
Plaintext
15 lines
261 B
Plaintext
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
|
|
|