求个正则 高难度的

[qiuss2]

<!--m:{ $Row=10 $table=Channel $Where=[FatherID]=0 }-->
<a href="[m:curl]">[m:cname]</a>
<!--m-->

变成 (关键在 如果 上方<!--m 是m 下方的 listname = "m")


<qlist listname="m" row="10" $table="Channel" $Where="[FatherID]=0" >
<a href="[m:curl]">[m:cname]</a>
</qlist>

再举个例子

<!--list:{ $Row=10 $table=Channel $Where=[FatherID]=0 }-->
<a href="[list:curl]">[list:cname]</a>
<!--list-->

变成


<qlist listname="list" row="10" $table="Channel" $Where="[FatherID]=0" >
<a href="[list:curl]">[list:cname]</a>
</qlist>


===============================

如果多层，这个很有挑战性 ，不知道正则行不行 如果行 给多加分


<!--channel:{ $row=10 $table=channel }-->
<a href="[channel:curl]">[channel:cname]</a>

<!--artlist:{ $row=6 $cid=[channel:childids] $order=[order] desc,[id] desc }-->
<a href="[artlist:aurl]">[artlist:title]</a>
<!--artlist-->

<!--channel-->

转为

<qlist listname="channel" row="10" table="channel" }-->
<a href="[channel:curl]">[channel:cname]</a>

<qlist listname="artlist" row="6" cid="[channel:childids]" order="[order] desc,[id] desc" }-->
<a href="[artlist:aurl]">[artlist:title]</a>
</qlist>

</qlist>

[xuzuning]

$s =<<< 'TXT'
<!--m:{ $Row=10 $table=Channel $Where=[FatherID]=0 }-->
<a href="[m:curl]">[m:cname]</a>
<!--m--> 

<!--list:{ $Row=10 $table=Channel $Where=[FatherID]=0 }-->
<a href="[list:curl]">[list:cname]</a>
<!--list--> 

<!--channel:{ $row=10 $table=channel  }-->
<a href="[channel:curl]">[channel:cname]</a>

<!--artlist:{ $row=6 $cid=[channel:childids] $order=[order] desc,[id] desc }-->
<a href="[artlist:aurl]">[artlist:title]</a>
<!--artlist-->
 
<!--channel-->
TXT;

$p = array(
  '/<!--(\w+):{ \$Row=(\d+)(.+)}-->/i',
  '/<!--\w+-->/',
);
$r = array(
  '<qlist listname="$1"  row="$2"$3>',
  '</qlist>',
);
echo preg_replace($p, $r, $s);

<qlist listname="m"  row="10" $table=Channel $Where=[FatherID]=0 >
<a href="[m:curl]">[m:cname]</a>
</qlist> 

<qlist listname="list"  row="10" $table=Channel $Where=[FatherID]=0 >
<a href="[list:curl]">[list:cname]</a>
</qlist> 

<qlist listname="channel"  row="10" $table=channel  >
<a href="[channel:curl]">[channel:cname]</a>

<qlist listname="artlist"  row="6" $cid=[channel:childids] $order=[order] desc,[id] desc >
<a href="[artlist:aurl]">[artlist:title]</a>
</qlist>
 
</qlist>