source:
trunk/procs/new_filename.pro
@
68
Last change on this file since 68 was 2, checked in by post_it, 17 years ago | |
---|---|
File size: 297 bytes |
Rev | Line | |
---|---|---|
[2] | 1 | FUNCTION new_filename, file_in, oldgrid, newgrid |
2 | ||
3 | @common | |
4 | @com_eg | |
5 | ||
6 | ||
7 | ; | |
8 | ; change grid_oldgrid by grid_newgrid | |
9 | ; | |
10 | ||
11 | file_nam = strmid(file_in, 0,strpos(file_in, 'grid_')+5 ) | |
12 | file_out = file_nam+newgrid+strmid(file_in, strpos(file_in, 'grid_')+6, strlen(file_in)-1) | |
13 | ||
14 | return, file_out | |
15 | ||
16 | END |
Note: See TracBrowser
for help on using the repository browser.