I made this script a while ago. it rewrites number to the scientific notation (like 5,43*10^5).
The language is AutoIt3
$in1 = InputBox("Input","Enter a number you want to rewrite","Enter number")
$out1 = $in1
$out2 = 0
$repeat = True
While $repeat
$repeat = False
If $out1==0 Then
MsgBox(0,"error","can't be 0")
Elseif $out1>=10 Then
$out1 = $out1/10
$out2 = $out2+1
$repeat = True
Elseif $out1<=1 Then
$out1 = $out1*10
$out2 = $out2-1
$repeat = True
Else
MsgBox(0, "New number", $out1 & "*10^" & $out2)
EndIf
WEnd