source:
trunk/procs/new_filename.pro
@
13
| Last change on this file since 13 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.
