Posted to tcl by dandyn at Sun Nov 12 21:55:22 GMT 2023view pretty

proc check:unit {views} {


        if {1000000 > $views} {

                if {99999 >= $views && $views >= 10000} {set views [regsub (..) $views {\1 }]}
                if {100000 <= $views && $views < 1000000} {set views [regsub (...) $views {\1 }]}

        } else {

                if {1000000 <= $views && $views <= 9999999} {
                        set views "[string index $views 0] mn"

                } elseif {10000000 <= $views && $views <= 99999999} {
                        set views "[string range $views 0 1] mn"

                } elseif {100000000 <= $views && $views <= 999999999} {
                        set views "[string range $views 0 2] mn"

                } elseif {1000000000 <= $views} {
                        set views "[string index $views 0] md"
                }
        }

        return "$views"
}