$filename($getEnv('USERPROFILE')'\Desktop\Mp3tag.Test.RomanNum.Upcase.txt',ANSI)$repeat('=',80) 'Profiling Test for ''''Upcasing Roman Numerals'''' using ''''Regular Expression''''.'$repeat($char(13)$char(10),2)'(c)Detlev Dalitz.20110319.20110320.20150211.20160401' $repeat('=',80) 'Input' 'Lowercase Roman Numerals from 1 to 4000.' 'RN_0001_0010 = '$put(RN_0001_0010,' i ii iii iv v vi vii viii ix x ') 'RN_0011_0020 = '$put(RN_0011_0020,' xi xii xiii xiv xv xvi xvii xviii xix xx ') 'RN_0021_0030 = '$put(RN_0021_0030,' xxi xxii xxiii xxiv xxv xxvi xxvii xxviii xxix xxx ') 'RN_0031_0040 = '$put(RN_0031_0040,' xxxi xxxii xxxiii xxxiv xxxv xxxvi xxxvii xxxviii xxxix xl ') 'RN_0041_0050 = '$put(RN_0041_0050,' xli xlii xliii xliv xlv xlvi xlvii xlviii xlix l ') 'RN_0051_0060 = '$put(RN_0051_0060,' li lii liii liv lv lvi lvii lviii lix lx ') 'RN_0061_0070 = '$put(RN_0061_0070,' lxi lxii lxiii lxiv lxv lxvi lxvii lxviii lxix lxx ') 'RN_0071_0080 = '$put(RN_0071_0080,' lxxi lxxii lxxiii lxxiv lxxv lxxvi lxxvii lxxviii lxxix lxxx ') 'RN_0081_0090 = '$put(RN_0081_0090,' lxxxi lxxxii lxxxiii lxxxiv lxxxv lxxxvi lxxxvii lxxxviii lxxxix xc ') 'RN_0091_0100 = '$put(RN_0091_0100,' xci xcii xciii xciv xcv xcvi xcvii xcviii xcix c ') 'RN_0100_1000 = '$put(RN_0100_1000,' c cc ccc cd d dc dcc dccc cm m ') 'RN_1000_4000 = '$put(RN_1000_4000,' m mm mmm mmmcmxcix -- ') $repeat('=',80) 'Output 1' 'RE_1 = $regexp(%FIELD%,''''\b(?:C{0,3}|C)(?:X{0,3}|X[C])(?:V?I{0,3}|I[VX])\b'''',''''\U$0'''',1)' 'RN_0001_0010 = '$regexp($get(RN_0001_0010),'\b(?:C{0,3}|C)(?:X{0,3}|X[C])(?:V?I{0,3}|I[VX])\b','\U$0',1) 'RN_0011_0020 = '$regexp($get(RN_0011_0020),'\b(?:C{0,3}|C)(?:X{0,3}|X[C])(?:V?I{0,3}|I[VX])\b','\U$0',1) 'RN_0021_0030 = '$regexp($get(RN_0021_0030),'\b(?:C{0,3}|C)(?:X{0,3}|X[C])(?:V?I{0,3}|I[VX])\b','\U$0',1) 'RN_0031_0040 = '$regexp($get(RN_0031_0040),'\b(?:C{0,3}|C)(?:X{0,3}|X[C])(?:V?I{0,3}|I[VX])\b','\U$0',1) 'RN_0041_0050 = '$regexp($get(RN_0041_0050),'\b(?:C{0,3}|C)(?:X{0,3}|X[C])(?:V?I{0,3}|I[VX])\b','\U$0',1) 'RN_0051_0060 = '$regexp($get(RN_0051_0060),'\b(?:C{0,3}|C)(?:X{0,3}|X[C])(?:V?I{0,3}|I[VX])\b','\U$0',1) 'RN_0061_0070 = '$regexp($get(RN_0061_0070),'\b(?:C{0,3}|C)(?:X{0,3}|X[C])(?:V?I{0,3}|I[VX])\b','\U$0',1) 'RN_0071_0080 = '$regexp($get(RN_0071_0080),'\b(?:C{0,3}|C)(?:X{0,3}|X[C])(?:V?I{0,3}|I[VX])\b','\U$0',1) 'RN_0081_0090 = '$regexp($get(RN_0081_0090),'\b(?:C{0,3}|C)(?:X{0,3}|X[C])(?:V?I{0,3}|I[VX])\b','\U$0',1) 'RN_0091_0100 = '$regexp($get(RN_0091_0100),'\b(?:C{0,3}|C)(?:X{0,3}|X[C])(?:V?I{0,3}|I[VX])\b','\U$0',1) 'RN_0100_1000 = '$regexp($get(RN_0100_1000),'\b(?:C{0,3}|C)(?:X{0,3}|X[C])(?:V?I{0,3}|I[VX])\b','\U$0',1) 'RN_1000_4000 = '$regexp($get(RN_1000_4000),'\b(?:C{0,3}|C)(?:X{0,3}|X[C])(?:V?I{0,3}|I[VX])\b','\U$0',1) $repeat('=',80) 'Output 2' 'RE_2 = $regexp(%FIELD%,''''\b(?:L?X{0,3}|XL)(?:V?I{0,3}|I[VX])\b'''',''''\U$0'''',1)' 'RN_0001_0010 = '$regexp($get(RN_0001_0010),'\b(?:L?X{0,3}|XL)(?:V?I{0,3}|I[VX])\b','\U$0',1) 'RN_0011_0020 = '$regexp($get(RN_0011_0020),'\b(?:L?X{0,3}|XL)(?:V?I{0,3}|I[VX])\b','\U$0',1) 'RN_0021_0030 = '$regexp($get(RN_0021_0030),'\b(?:L?X{0,3}|XL)(?:V?I{0,3}|I[VX])\b','\U$0',1) 'RN_0031_0040 = '$regexp($get(RN_0031_0040),'\b(?:L?X{0,3}|XL)(?:V?I{0,3}|I[VX])\b','\U$0',1) 'RN_0041_0050 = '$regexp($get(RN_0041_0050),'\b(?:L?X{0,3}|XL)(?:V?I{0,3}|I[VX])\b','\U$0',1) 'RN_0051_0060 = '$regexp($get(RN_0051_0060),'\b(?:L?X{0,3}|XL)(?:V?I{0,3}|I[VX])\b','\U$0',1) 'RN_0061_0070 = '$regexp($get(RN_0061_0070),'\b(?:L?X{0,3}|XL)(?:V?I{0,3}|I[VX])\b','\U$0',1) 'RN_0071_0080 = '$regexp($get(RN_0071_0080),'\b(?:L?X{0,3}|XL)(?:V?I{0,3}|I[VX])\b','\U$0',1) 'RN_0081_0090 = '$regexp($get(RN_0081_0090),'\b(?:L?X{0,3}|XL)(?:V?I{0,3}|I[VX])\b','\U$0',1) 'RN_0091_0100 = '$regexp($get(RN_0091_0100),'\b(?:L?X{0,3}|XL)(?:V?I{0,3}|I[VX])\b','\U$0',1) 'RN_0100_1000 = '$regexp($get(RN_0100_1000),'\b(?:L?X{0,3}|XL)(?:V?I{0,3}|I[VX])\b','\U$0',1) 'RN_1000_4000 = '$regexp($get(RN_1000_4000),'\b(?:L?X{0,3}|XL)(?:V?I{0,3}|I[VX])\b','\U$0',1) $repeat('=',80) 'Output 3' 'RE_3 = $regexp(%FIELD%,''''\b(?=[MDCLXVI])((M{0,3})((C[DM])|(D?C{0,3}))?((X[LC])|(L?X{0,3})|L)?((I[VX])|(V?(I{0,3}))|V)?)\b'''',''''\U$0'''',1)' 'RN_0001_0010 = '$regexp($get(RN_0001_0010),'\b(?=[MDCLXVI])((M{0,3})((C[DM])|(D?C{0,3}))?((X[LC])|(L?X{0,3})|L)?((I[VX])|(V?(I{0,3}))|V)?)\b','\U$0',1) 'RN_0011_0020 = '$regexp($get(RN_0011_0020),'\b(?=[MDCLXVI])((M{0,3})((C[DM])|(D?C{0,3}))?((X[LC])|(L?X{0,3})|L)?((I[VX])|(V?(I{0,3}))|V)?)\b','\U$0',1) 'RN_0021_0030 = '$regexp($get(RN_0021_0030),'\b(?=[MDCLXVI])((M{0,3})((C[DM])|(D?C{0,3}))?((X[LC])|(L?X{0,3})|L)?((I[VX])|(V?(I{0,3}))|V)?)\b','\U$0',1) 'RN_0031_0040 = '$regexp($get(RN_0031_0040),'\b(?=[MDCLXVI])((M{0,3})((C[DM])|(D?C{0,3}))?((X[LC])|(L?X{0,3})|L)?((I[VX])|(V?(I{0,3}))|V)?)\b','\U$0',1) 'RN_0041_0050 = '$regexp($get(RN_0041_0050),'\b(?=[MDCLXVI])((M{0,3})((C[DM])|(D?C{0,3}))?((X[LC])|(L?X{0,3})|L)?((I[VX])|(V?(I{0,3}))|V)?)\b','\U$0',1) 'RN_0051_0060 = '$regexp($get(RN_0051_0060),'\b(?=[MDCLXVI])((M{0,3})((C[DM])|(D?C{0,3}))?((X[LC])|(L?X{0,3})|L)?((I[VX])|(V?(I{0,3}))|V)?)\b','\U$0',1) 'RN_0061_0070 = '$regexp($get(RN_0061_0070),'\b(?=[MDCLXVI])((M{0,3})((C[DM])|(D?C{0,3}))?((X[LC])|(L?X{0,3})|L)?((I[VX])|(V?(I{0,3}))|V)?)\b','\U$0',1) 'RN_0071_0080 = '$regexp($get(RN_0071_0080),'\b(?=[MDCLXVI])((M{0,3})((C[DM])|(D?C{0,3}))?((X[LC])|(L?X{0,3})|L)?((I[VX])|(V?(I{0,3}))|V)?)\b','\U$0',1) 'RN_0081_0090 = '$regexp($get(RN_0081_0090),'\b(?=[MDCLXVI])((M{0,3})((C[DM])|(D?C{0,3}))?((X[LC])|(L?X{0,3})|L)?((I[VX])|(V?(I{0,3}))|V)?)\b','\U$0',1) 'RN_0091_0100 = '$regexp($get(RN_0091_0100),'\b(?=[MDCLXVI])((M{0,3})((C[DM])|(D?C{0,3}))?((X[LC])|(L?X{0,3})|L)?((I[VX])|(V?(I{0,3}))|V)?)\b','\U$0',1) 'RN_0100_1000 = '$regexp($get(RN_0100_1000),'\b(?=[MDCLXVI])((M{0,3})((C[DM])|(D?C{0,3}))?((X[LC])|(L?X{0,3})|L)?((I[VX])|(V?(I{0,3}))|V)?)\b','\U$0',1) 'RN_1000_4000 = '$regexp($get(RN_1000_4000),'\b(?=[MDCLXVI])((M{0,3})((C[DM])|(D?C{0,3}))?((X[LC])|(L?X{0,3})|L)?((I[VX])|(V?(I{0,3}))|V)?)\b','\U$0',1) $repeat('=',80) 'Output 4 - Simplified version of RE_3 by Victor Kostas 20141119.' 'RE_4 = $regexp(%FIELD%,''''\b(?=[MDCLXVI])(M{0,3})(C[DM]|D?C{0,3})(X[LC]|L?X{0,3})(I[VX]|V?I{0,3})\b'''',''''\U$0'''',1)' 'RN_0001_0010 = '$regexp($get(RN_0001_0010),'\b(?=[MDCLXVI])(M{0,3})(C[DM]|D?C{0,3})(X[LC]|L?X{0,3})(I[VX]|V?I{0,3})\b','\U$0',1) 'RN_0011_0020 = '$regexp($get(RN_0011_0020),'\b(?=[MDCLXVI])(M{0,3})(C[DM]|D?C{0,3})(X[LC]|L?X{0,3})(I[VX]|V?I{0,3})\b','\U$0',1) 'RN_0021_0030 = '$regexp($get(RN_0021_0030),'\b(?=[MDCLXVI])(M{0,3})(C[DM]|D?C{0,3})(X[LC]|L?X{0,3})(I[VX]|V?I{0,3})\b','\U$0',1) 'RN_0031_0040 = '$regexp($get(RN_0031_0040),'\b(?=[MDCLXVI])(M{0,3})(C[DM]|D?C{0,3})(X[LC]|L?X{0,3})(I[VX]|V?I{0,3})\b','\U$0',1) 'RN_0041_0050 = '$regexp($get(RN_0041_0050),'\b(?=[MDCLXVI])(M{0,3})(C[DM]|D?C{0,3})(X[LC]|L?X{0,3})(I[VX]|V?I{0,3})\b','\U$0',1) 'RN_0051_0060 = '$regexp($get(RN_0051_0060),'\b(?=[MDCLXVI])(M{0,3})(C[DM]|D?C{0,3})(X[LC]|L?X{0,3})(I[VX]|V?I{0,3})\b','\U$0',1) 'RN_0061_0070 = '$regexp($get(RN_0061_0070),'\b(?=[MDCLXVI])(M{0,3})(C[DM]|D?C{0,3})(X[LC]|L?X{0,3})(I[VX]|V?I{0,3})\b','\U$0',1) 'RN_0071_0080 = '$regexp($get(RN_0071_0080),'\b(?=[MDCLXVI])(M{0,3})(C[DM]|D?C{0,3})(X[LC]|L?X{0,3})(I[VX]|V?I{0,3})\b','\U$0',1) 'RN_0081_0090 = '$regexp($get(RN_0081_0090),'\b(?=[MDCLXVI])(M{0,3})(C[DM]|D?C{0,3})(X[LC]|L?X{0,3})(I[VX]|V?I{0,3})\b','\U$0',1) 'RN_0091_0100 = '$regexp($get(RN_0091_0100),'\b(?=[MDCLXVI])(M{0,3})(C[DM]|D?C{0,3})(X[LC]|L?X{0,3})(I[VX]|V?I{0,3})\b','\U$0',1) 'RN_0100_1000 = '$regexp($get(RN_0100_1000),'\b(?=[MDCLXVI])(M{0,3})(C[DM]|D?C{0,3})(X[LC]|L?X{0,3})(I[VX]|V?I{0,3})\b','\U$0',1) 'RN_1000_4000 = '$regexp($get(RN_1000_4000),'\b(?=[MDCLXVI])(M{0,3})(C[DM]|D?C{0,3})(X[LC]|L?X{0,3})(I[VX]|V?I{0,3})\b','\U$0',1) $repeat('=',80) 'Output 5 - Simple version by zoofield 20110610.' 'Capitalize Roman Numerals up to 399. (trimmed down from 3999 to reduce false positives) - see also "http://bit.ly/lZdZsj"' 'RE_6 = $regexp(%FIELD%,''''(?