- 350 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/09/16(土) 22:11:04 ID:8E/92ik/0]
- >>349
{@If(
@RegexMatch(@Body('',1), /<HTML/i),
@Progn(
@Set('x',@Body('',1)),
@Set('x',@RegexReplace($x, /<BR>|<DIV[^>]*>/i, '¶', @True())),
@Set('x',@RegexReplace($x, /<P[^>]*>/i, '¶¶', @True())),
@Set('x',@RegexReplace($x, /\r|\n/, '', @True())),
@Set('x',@RegexReplace($x, /<HEAD>.*<\/HEAD>/i, '', @True())),
@Set('x',@RegexReplace($x, /<HR[^>]*>/i, '¶∬¶', @True())),
@Set('x',@RegexReplace($x, /<[^>]*>/, '', @True())),
@Set('x',@RegexReplace($x, /¶[\s|¶]+¶/, '¶¶', @True())),
@Set('x',@RegexReplace($x, /\s+¶/, '¶', @True())),
@Set('x',@RegexReplace($x, /¶¶¶+/, '¶¶', @True())),
@Set('x',@RegexReplace($x, /¶/, '\n', @True())),
@If(@RegexMatch($x, /&#\d{{2,6}};/),
@Set('x',@Script('result.value =arguments(0).replace(/&#(\\d{{2,6}})\;/g,function($0,$1){{return(String.fromCharCode($1));}})','JScript',$x)),
@True()
),
@Concat($x)
),
@Body(@Profile('', 'Global', 'Quote', '> '), 1)
)
}
|
 |
