[решено] Добавление запятых в текст

[решено] Добавление запятых в текст

-TRM-

Старожил

Сообщения: 352
Благодарности: 44

Добрый день !
Есть набор цифр :
5C003F003F005C00530054004F0052004100470045002300520065006D006F007600610062006C0065004D00650064006900 61002300370026003100350039003800330062003900300026003000260052004D0023007B00350033006600350036003300 300064002D0062003600620066002D0031003100640030002D0039003400660032002D003000300061003000630039003100 650066006200380062007D00

а нужно сделать в таком виде (через каждых 2 символа - запятая) :
5C,00,3F,00,3F,00,5C,00,53,00,54,00,4F,00,52,00,41,00,47,00,45,00,23,00,52,00,65,00,6D,00,6F,00,76,0 0,61,00,62,00,6C,00,65,00,4D,00,65,00,64,00,69,00,61,00,23,00,37,00,26,00,31,00,35,00,39,00,38,00,33 ,00,62,00,39,00,30,00,26,00,30,00,26,00,52,00,4D,00,23,00,7B,00,35,00,33,00,66,00,35,00,36,00,33,00, 30,00,64,00,2D,00,62,00,36,00,62,00,66,00,2D,00,31,00,31,00,64,00,30,00,2D,00,39,00,34,00,66,00,32,0 0,2D,00,30,00,30,00,61,00,30,00,63,00,39,00,31,00,65,00,66,00,62,00,38,00,62,00,7D,00

Можете подсказать функцию? Заранее благодарю.

Отправлено: 15:52, 10-12-2014

madmasles

Ветеран

Сообщения: 812
Благодарности: 353

Профиль | Отправить PM | Цитировать

-TRM-,
Попробуйте сделать примерно так.

Код:

$sStr = '5C003F003F005C00530054004F0052004100470045002300520065006D006F007600610062006C0065004D00650064006900'
ConsoleWrite(StringRegExpReplace($sStr, '(?<=.{2})(?=(.{2})+\z)', ',') & @LF)

Или так.

Код:

$sStr = '5C003F003F005C00530054004F00520041004700450023005200 65006D006F007600610062006C0 065004D00650064006900'
ConsoleWrite(StringRegExpReplace(StringStripWS($sStr, 8), '(?<=.{2})(?=(.{2})+\z)', ',') & @LF)