Отображение частоты дискретизации в kHz и MHz

[postED]

Скрипт приводит отображение частоты дискретизации в более удобный вид. Решил не использовать математические операции (деление в фубаре реализовано не лучшим образом), а только функции обработки строк.

Примеры

11025 Hz -> 11.025 kHz
22050 Hz -> 22.05 kHz
44100 Hz -> 44.1 kHz
48000 Hz -> 48 kHz
176400 Hz -> 176.4 kHz
192000 Hz -> 192 kHz
352800 Hz -> 352.8 kHz
2822400 Hz -> 2.8224 MHz
5644800 Hz -> 5.6448 MHz
6144000 Hz -> 6.144 MHz

Код: Выделить всё

$ifgreater($len(%samplerate%),6,$left(%samplerate%,$sub($len(%samplerate%),6))$puts(frac,$right($left(%samplerate%,$sub($len(%samplerate%),2)),4))$ifequal($stricmp($get(frac),0000),1,,$ifequal($stricmp($right($get(frac),3),000),1,.$left($get(frac),1),$ifequal($stricmp($right($get(frac),2),00),1,.$left($get(frac),2),$ifequal($stricmp($right($get(frac),1),0),1,.$left($get(frac),3),.$get(frac))))) MHz,$left(%samplerate%,$sub($len(%samplerate%),3))$puts(frac,$right(%samplerate%,3))$ifequal($stricmp($get(frac),000),1,,$ifequal($stricmp($right($get(frac),2),00),1,.$left($get(frac),1),$ifequal($stricmp($right($get(frac),1),0),1,.$left($get(frac),2),.$get(frac)))) kHz)