Local $text = "626C696E6B80100130027F2C0E43330840290976280B1580100230027F5E0E7A170D7C47137F250A5180100330027F5A147F190E7B4E197F1D0B6180100430027F6A13601B0F3230107F" & _
"220B6A80100530027F67107F1B157F5C197F1A0B0480100630027F5F107F21157F401B7F25127B80100730027977177F1A0F7F421A7F1A0F7B80100830027F580D7F200F593B107F300E" & _
"3D80100930027F7516771A167F54157F24121980100A30027F6F0D781E0E532D0E7F2A0E3080100B30027F54136714137F56267F1B0E6480100C30027F5D116916107F451C7F1F0C5482C" & _
"5B130B43030B230B230B130300339B2"
$text = StringRegExpReplace(StringRegExpReplace(StringRegExpReplace(StringRegExpReplace($text, "(?i)82C5.+", ""), "(?=80100)", @CRLF), "(?<=80100)|(?=3002)|(?<=3002)", " "), _
"(?<=3002)(.+?)(?=.{2}\r\n)", "\1 ")
MsgBox(0, 0, $text)
|