SHOW:
|
|
- or go back to the newest paste.
| 1 | alias remstamp {
| |
| 2 | var %file $iif($1,$1,$?="Enter the FULL path of the file to remove timetamps from") | |
| 3 | var %new $replace(%file,$right(%file,4),-remstamp $+ $right(%file,4)) | |
| 4 | echo -ac info Removing timestamps from %file -- Creating %new | |
| 5 | var %i 1 | |
| 6 | while (%i <= $lines(%file)) {
| |
| 7 | - | tokenize 93 $read(%file,%i) |
| 7 | + | var %x $read(%file,n,%i) |
| 8 | - | write %new $iif($2,$2-,$1-) |
| 8 | + | write %new $iif($gettok(%x,2-,93) != $null,$gettok(%x,2-,93),%x) |
| 9 | inc %i | |
| 10 | } | |
| 11 | run %new | |
| 12 | - | } |
| 12 | + | } |
| 13 |
