source:
trunk/procs/new_filename.pro
@
8
Last change on this file since 8 was 2, checked in by post_it, 17 years ago | |
---|---|
File size: 297 bytes |
Line | |
---|---|
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.