Печать

[MockeR [?]]

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

Например:

Код: AutoIt [Выделить]

$Number = '14.12(56)'

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

[gregaz [?]]

Код: AutoIt [Выделить]

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

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

 

[MockeR [?]]

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

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

[gregaz [?]]

MockeR  [?]

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

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

Код: AutoIt [Выделить]

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

 

:

[MockeR [?]]

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

[SyDr [?]]

На форуме принято помечать тему решенной после получения ответа на свой вопрос!
Вверху или внизу темы нажмите на ссылку такого вида:
Тема не решена

[Garrett [?]]

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

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

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

MockeR  [?]

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

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



Добавлено: Ноябрь 16, 2011, 00:38:24SyDr, пожалуйста, перенесите тему.

[madmasles [?]]

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

Код: AutoIt [Выделить]

#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  [?]

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

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