06/10/31 22:56:31 jFrWTnT90
>>620
まだ、完全ではないけど、最新のもの。
{@If(
@RegexMatch(@Body('',1), /<HTML/i),
@Progn(
@Set('x',@Body('',1)),
@While(
@RegexMatch($x,/<PRE>((?:.|\n)+?\n(?:.|\n)+?)<\/PRE>/i),
@Progn(
@Set('dum',$_1),
@Set('x',@RegexReplace($dum,/\n/,'<BR>',@True())),
@RegexReplace($x,/<PRE>((?:.|\n)+?\n(?:.|\n)+?)<\/PRE>/i,$dum),
)
),
@Set('x',@RegexReplace($x, /<DIV[^>]*>(?!\n)/i, '¶', @True())),
@Set('x',@RegexReplace($x, /<DIV[^>]*>/i, '', @True())),
@Set('x',@RegexReplace($x, /\n/, ' ', @True())),
@If(@RegexMatch($x,/<BODY/i),
@Progn(
@Set('x',@RegexReplace($x, /(.*<BODY.*?>)(.*)/i, '$2', @True())),
@Set('x',@RegexReplace($x, /(<\/BODY>.*)(<\/BODY>)/i, '$2', @True()))
),
@Set('x',@Concat($x,'\n</BODY></HTML>'))
),
@Set('x',@RegexReplace($x, /<BR>/i, '¶', @True())),
@Set('x',@RegexReplace($x, /(<P[^>]*margin-bottom:1[0-9][^>]*>(?:(?!<\/P>).)*<\/P>)/i, '$0¶', @True())),
@Set('x',@RegexReplace($x, /<P[^>]*class=mso[^>]*>/i, '¶', @True())),
@Set('x',@RegexReplace($x, /<P[^>]*>/i, '¶¶', @True())),