Требуется разделить число (от одной цифры до 12) на цифровые тройки пробелами. Сделал так:
Может быть можно решить как-то проще?
Спасибо.
Код:
$n1 = _TabNum0('1')
$n2 = _TabNum0('12')
$n3 = _TabNum0('123')
$n4 = _TabNum0('1234')
$n5 = _TabNum0('12345')
$n6 = _TabNum0('123456')
$n7 = _TabNum0('1234567')
$n8 = _TabNum0('12345678')
$n9 = _TabNum0('123456789')
$n10 = _TabNum0('1234567890')
$n11 = _TabNum0('12345678901')
$n12 = _TabNum0('123456789012')
MsgBox(1, "табулирование цифр", @CRLF & _
"$n1 : " & $n1 & @CRLF & _
"$n2 : " & $n2 & @CRLF & _
"$n3 : " & $n3 & @CRLF & _
"$n4 : " & $n4 & @CRLF & _
"$n5 : " & $n5 & @CRLF & _
"$n6 : " & $n6 & @CRLF & _
"$n7 : " & $n7 & @CRLF & _
"$n8 : " & $n8 & @CRLF & _
"$n9 : " & $n9 & @CRLF & _
"$n10: " & $n10 & @CRLF & _
"$n11: " & $n11 & @CRLF & _
"$n12: " & $n12 & @CRLF & _
@CRLF)
Exit
Func _TabNum0($tn)
$len = StringLen($tn)
If $len > 3 And $len <= 6 Then $tn = StringMid($tn, 1, $len-3) & " " & StringMid($tn, $len-2, 3)
If $len > 6 And $len <= 9 Then $tn = StringMid($tn, 1, $len-6) & " " & StringMid($tn, $len-5, 3) _
& " " & StringMid($tn, $len-2, 3)
If $len > 9 Then $tn = StringMid($tn, 1, $len-9) & " " & StringMid($tn, $len-8, 3) _
& " " & StringMid($tn, $len-5, 3) & " " & StringMid($tn, $len-2, 3)
Return $tn
EndFunc
Может быть можно решить как-то проще?
Спасибо.