Getting rid of empty properties.

This is a bit of Pilotscript that use all over the place because I read in a file with a lot of rows with some properties left empty, or because I accidentally add undefined properties, etc.

This is a quick and dirty way to get rid of those empty properties:

#current_props := rpropertynames(''); 
for #i in 1 .. numvalues(#current_props)
loop
    if property(#current_props[#i]) eq '' then
       remove(#current_props[#i]);
    end if;
end loop;