[Математика] Разделение дроба на части

[MockeR]

Добрый вечер)
Есть десятичная дробь. Нужно из него с помощью регулярных выражений извлечь целую часть, дробную и период.

Например:

$Number = '14.12(56)'

$Int = 14
$Fract = 12
$Per = 56

 

[gregaz]

#Include<Array.au3>
$sText = "14.12(56)"

;$sPatern = "(\d*)[.)(]"
$sPatern = "(\d*)[)(.]?"
$aResult = StringRegExp( $sText, $sPatern, 3 )
_ArrayDisplay($aResult, ' Test Result ')

 

[MockeR]

Спасибо, работает

Но есть одно "но", если нет периода, то возвращает только целую часть :-X

 

[gregaz]

MockeR [?]

Но есть одно "но", если нет периода, то возвращает только целую часть

Измени шаблон на

$sPatern = "(\d*)[)(.]?"

:

 

[MockeR]

Вот теперь отлично работает!
Огромное спасибо=)

 

[SyDr]

{TopicSolvedInfo}

 

[Garrett]

Супер название!

Разделение дроба на части

Бедный, бедный "дроба" :(

MockeR [?]

Нужно из него с помощью регулярных выражений извлечь целую часть, дробную и период.

Ну, когда уже, наконец, научимся правильно формулировать вопросы и выбирать разделы?
Регулярные выражения и прочее



Добавлено:

Сообщение автоматически объединено: 16 Ноя 2011

SyDr, пожалуйста, перенесите тему. :thanks:

 

[madmasles]

У меня этот бедный дроба и так делится.

#include <Array.au3>

Dim $aText[4] = ['14.12(56)', '14.12', '14', '14,12+-15(44)']
;$sPattern = '(\d+)'
$sPattern = '\d+'
For $i = 0 To 3
	$aResult = StringRegExp($aText[$i], $sPattern, 3)
	If @error Then ContinueLoop
	_ArrayDisplay($aResult, $aText[$i])
Next

 

[gregaz]

madmasles [?]

У меня этот бедный дроба

и так делится

Действительно, зачем лишние телодвижения.