1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
| names = who('local')
for n = size(names,1):-1:1
if part(names(n), 1)=='%'
names(n) = []
continue
end
if length(names(n))>3 & part(names(n), $-2:$)=='lib'
names(n) = []
continue
end
if names(n)=='PWD' | names(n)=='SCI' | names(n)=='SCIHOME' | names(n)=='TMPDIR' | names(n)=='WSCI'
names(n) = []
continue
end
if names(n)=='enull' | names(n)=='evoid' | names(n)=='home' | names(n)=='jnull' | names(n)=='jvoid'
names(n) = []
continue
end
if names(n)=='demolistlock'
names(n) = []
continue
end
end
fd = mopen('test.csv', 'wt')
for n = 1:size(names, 1)-1
mputstr(string(evstr(names(n))) + ', ', fd)
end
mputstr(string(evstr(names($))), fd)
mclose(fd) |
Partager