<div dir="ltr"><div>Assim serve?</div><div><br></div>test <- scan("savedrecs.txt", sep = "\n", what = "")<div><div>matrix(test[grep("^AU|^DT|^PY|^VL|^BP", test)], ncol = 5, byrow = TRUE)</div>
</div><div class="gmail_extra"><br><br><div class="gmail_quote">2014-05-22 17:48 GMT-03:00 Roney Fraga Souza <span dir="ltr"><<a href="mailto:roneyfraga@gmail.com" target="_blank">roneyfraga@gmail.com</a>></span>:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div style="word-wrap:break-word">Caros,<div><br></div><div>Tenho o seguinte arquivo:</div><div><a href="https://gist.github.com/roneyfraga/ca682b6193c75e7be4bf" target="_blank">https://gist.github.com/roneyfraga/ca682b6193c75e7be4bf</a></div>
<div><br></div><div>Quero manter apenas as linhas que começam com AU, DT, PY, VL e BP no arquivo. O resultado seria:</div><div><br></div><div><pre>AU Lin, TH
DT Article
PY 2012
VL 116
BP 314</pre><pre>AU Brodeur-Campbell, M
DT Article
PY 2012
VL 116
BP 320</pre><pre><br></pre><div><pre><div><div><div><div>Agora preciso que a cada 4 linhas estas sejam transpostas, de modo que ficaria assim:</div></div></div><div><br></div><div>
<table cellspacing="0" cols="5" border="0">
<colgroup width="187"></colgroup>
<colgroup width="88"></colgroup>
<colgroup width="78"></colgroup>
<colgroup width="67"></colgroup>
<colgroup width="91"></colgroup>
<tbody><tr>
<td style="border-top:1px solid #000000;border-bottom:1px solid #000000;border-left:1px solid #000000;border-right:1px solid #000000" height="21" align="LEFT"><font face="Menlo-Regular" size="1">V1</font></td>
<td style="border-top:1px solid #000000;border-bottom:1px solid #000000;border-left:1px solid #000000;border-right:1px solid #000000" align="LEFT"><font face="Menlo-Regular" size="1">V2</font></td>
<td style="border-top:1px solid #000000;border-bottom:1px solid #000000;border-left:1px solid #000000;border-right:1px solid #000000" align="LEFT"><font face="Menlo-Regular" size="1">V3</font></td>
<td style="border-top:1px solid #000000;border-bottom:1px solid #000000;border-left:1px solid #000000;border-right:1px solid #000000" align="LEFT"><font face="Menlo-Regular" size="1">V4</font></td>
<td style="border-top:1px solid #000000;border-bottom:1px solid #000000;border-left:1px solid #000000;border-right:1px solid #000000" align="LEFT"><font face="Menlo-Regular" size="1">V5</font></td>
</tr>
<tr>
<td style="border-top:1px solid #000000;border-bottom:1px solid #000000;border-left:1px solid #000000;border-right:1px solid #000000" height="21" align="LEFT"><font face="Menlo-Regular" size="1">AU Lin, TH</font></td>
<td style="border-top:1px solid #000000;border-bottom:1px solid #000000;border-left:1px solid #000000;border-right:1px solid #000000" align="LEFT"><font face="Menlo-Regular" size="1">DT Article</font></td>
<td style="border-top:1px solid #000000;border-bottom:1px solid #000000;border-left:1px solid #000000;border-right:1px solid #000000" align="LEFT"><font face="Menlo-Regular" size="1">PY 2012</font></td>
<td style="border-top:1px solid #000000;border-bottom:1px solid #000000;border-left:1px solid #000000;border-right:1px solid #000000" align="LEFT"><font face="Menlo-Regular" size="1">VL 116</font></td>
<td style="border-top:1px solid #000000;border-bottom:1px solid #000000;border-left:1px solid #000000;border-right:1px solid #000000" align="LEFT"><font face="Menlo-Regular" size="1">BP 314</font></td>
</tr>
<tr>
<td style="border-top:1px solid #000000;border-bottom:1px solid #000000;border-left:1px solid #000000;border-right:1px solid #000000" height="21" align="LEFT"><font face="Menlo-Regular" size="1">AU Brodeur-Campbell, M</font></td>
<td style="border-top:1px solid #000000;border-bottom:1px solid #000000;border-left:1px solid #000000;border-right:1px solid #000000" align="LEFT"><font face="Menlo-Regular" size="1">DT Article</font></td>
<td style="border-top:1px solid #000000;border-bottom:1px solid #000000;border-left:1px solid #000000;border-right:1px solid #000000" align="LEFT"><font face="Menlo-Regular" size="1">PY 2012</font></td>
<td style="border-top:1px solid #000000;border-bottom:1px solid #000000;border-left:1px solid #000000;border-right:1px solid #000000" align="LEFT"><font face="Menlo-Regular" size="1">VL 116</font></td>
<td style="border-top:1px solid #000000;border-bottom:1px solid #000000;border-left:1px solid #000000;border-right:1px solid #000000" align="LEFT"><font face="Menlo-Regular" size="1">BP 320</font></td>
</tr>
</tbody></table>
Qualquer sugestão será bem vinda?</div><div><br></div><div>Atenciosamente,</div><div>Roney
</div></div></pre></div></div></div><br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br></div></div>