以下のような、入れ子になっているtableタグが存在しているとして。

Question

フジカケ

12

12もっと見る

60pt

コンピュータ

以下のような、入れ子になっているtableタグが存在しているとして。

<table>
<tr><td>...</td></tr>
<tr><td><table>...</table><td></tr>
</table>

この入れ子がいくつになってもマッチする正規表現を教えてください。

自分が試しに書いてみたのはこれですが、２番目以降の</table>タグが残ってしまうようです。
/<table.*?>.*?(:?<table.*?>.*?<\/table>)*.*?<\/table>/ms

回答の条件

URL必須
1人2回まで

登録：2007/03/05 15:06:23
終了：2007/03/05 16:58:16

※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。

コメントはまだありません

fjkktkys’s Bad know how Diary 2007-03-05 15:08:56

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

リクエスト送信済

回答リクエストを送信したユーザーはいません

kn1967 · Answer 1 · 2007-03-05T16:32:51+09:00

例としては３重までネストさせてますが４重でも５重でも正規表現部分はそのままです。

$a = "<body><table><tr><td><table><tr><td><table>...</table></td></tr></table></td></tr><tr><td><table>...</table><td></tr></table></body>";
$a =~ /(<table(.*|<table[^<table]*<\/table>)<\/table>)/ig;
print $1;

上記を動かした結果として

<table><tr><td><table><tr><td><table>...</table></td></tr></table></td></tr><tr><td><table>...</table><td></tr></table>

が得られます。

以上とりあえずActivePerl v5.8.8で作ってみました（元データに改行コードは含まないものとしています）。

処理系が異なる場合は動かないかもしれません（Perl、PHP、JAVA、VBScriptなどなど、、、正規表現には微妙に違いがあります）ので適宜改造いただくか、もしくはお使いの処理系とバージョンを私への返答に含んでいただければ、その方面が得意な方が回答を寄せてくださると思います。

http://downloads.activestate.com/ActivePerl/Windows/5.8/

以下のような、入れ子になっているtableタグが存在しているとして。

回答（1件）

kn196729153012007/03/05 16:32:51

コメント（0件)

この質問への反応（ブックマークコメント）

トラックバック