[RegExp] Замена по условию

[Крепыш]

Помогите написать регулярку. Задача: есть строка вида '^(D|\d{1,2}),<...>' Надо заменить на: '<тут_условие>,<...>'
где <тут_условие>:
1) если в найденом буква 'D', то на слово 'Day'
2) если цифры, то оставить цифры

Пример:
'D,совпадение' заменяем на 'Day,замена'
'5,совпадение' заменяем на '5,замена'

 

[joiner]

Крепыш
приведи пример строки и что на что менять, а то на такие "примеры" воображение не срабатывает
можно использовать

StringInStr

 

[Крепыш]

можно использовать

StringInStr

Ну до этого я сам догадался. Но хотелось бы сделать это одним регулярным выражением.

приведи пример строки и что на что менять, а то на такие "примеры" воображение не срабатывает

Ок. В два действия это будет выглядеть так:

$sText = 'D,1230'
If StringRegExp($sText, '^D,(\d{3})') Then
  $sText = StringRegExpReplace($sText, '^(D),(\d{3})0', 'Day,$2')
Else
  $sText = StringRegExpReplace($sText, '^(\d{1,2}),(\d{3})0', '$1,$2')
EndIf

 

[Garrett]

Крепыш [?]

В два действия

В одно.

ConsoleWrite(StringRegExpReplace('D,1230', 'D,(\d+)', 'Day,$1'))
;или так
ConsoleWrite(StringRegExpReplace('D,1230', 'D,(?=\d+)', 'Day,$1'))

 

[Крепыш]

Garrett

1) если в найденом буква 'D', то на слово 'Day'
2) если цифры, то оставить цифры

 

[Garrett]

Крепыш
Вы пробовали пример?

 

[Крепыш]

Крепыш
Вы пробовали пример?

ConsoleWrite(StringRegExpReplace('D,1230', 'D,(?=\d+)', 'Day,$1')) --> '5,1230'

Должно быть: '5,123'

 

[Garrett]

С использованием

StringRegExpReplace

IMHO не получится.

$sData = ''
$aData = StringRegExp('D,1230 5,1230  C,1230 7,1230  ', '(D|\d)?,(?(1)(\d{0,3})0|%#%)', 3)

For $i = 1 To UBound($aData)-1 Step 2
	If Mod($i, 2) And $aData[$i-1] = 'D' Then
		$aData[$i-1] = 'Day'
	EndIf
	$sData &= StringFormat('%s,%s\n', $aData[$i-1], $aData[$i])
Next
ConsoleWrite($sData)