<html>
<head>
<meta content="text/html; charset=windows-1252"
http-equiv="Content-Type">
</head>
<body bgcolor="#FFFFFF" text="#000000">
Oi Mauro, <br>
<br>
O problema e' que o codigo contempla apenas um digito... corrigindo
contemplar tres digitos. Saliento que o co'digo e' rustico, talvez
nao funcione para outras situacoes...<br>
<br>
a <- readLines("dados.txt")<br>
id.a <- which(substr(a,1,2)=='A.')<br>
nch <- nchar(a)<br>
tab <- sapply(0:6, function(j) <br>
as.integer(gsub('.', '', substring(a[id.a+j], nch[id.a+j]-2),
fix=T)))<br>
dimnames(tab) <- list(a[id.a-1], LETTERS[1:7])<br>
tab<br>
<br>
aT+,<br>
Elias.<br>
<br>
<div class="moz-cite-prefix">On 27/08/14 14:24, Mauro Sznelwar
wrote:<br>
</div>
<blockquote cite="mid:DE7CD910127646F587C4C7711A2E4557@MauroPC"
type="cite">
<meta content="text/html; charset=windows-1252"
http-equiv="Content-Type">
<div dir="ltr">
<div style="FONT-SIZE: 12pt; FONT-FAMILY: 'Calibri'; COLOR:
#000000">
<div> </div>
<div style="FONT-SIZE: small; FONT-FAMILY: 'Calibri';
FONT-WEIGHT: normal; COLOR: #000000; FONT-STYLE: normal;
TEXT-DECORATION: none; DISPLAY: inline">
<div style="FONT: 10pt tahoma">
<div><font color="#9b00d3" face="Arial" size="3">Eu rodei
este código, deu certo quanto ao formato pedido, mas
não colocou o número 13, apareceu 3 no seu lugar. Qual
o motivo?</font></div>
</div>
<div> </div>
</div>
<div style="FONT-SIZE: small; FONT-FAMILY: 'Calibri';
FONT-WEIGHT: normal; COLOR: #000000; FONT-STYLE: normal;
TEXT-DECORATION: none; DISPLAY: inline">solucao
"rustica"...suponha que seu arquivo e' "dados.txt" <br>
<br>
a <- readLines("dados.txt")<br>
id.a <- which(substr(a,1,2)=='A.')<br>
nch <- nchar(a)<br>
tab <- sapply(0:6, function(j) <br>
as.integer(substring(a[id.a+j], nch[id.a+j])))<br>
dimnames(tab) <- list(a[id.a-1], LETTERS[1:7])<br>
tab<br>
<br>
aT+,<br>
Elias.<br>
<br>
<div class="moz-cite-prefix">On 27/08/14 05:26, jose gomes
de souza filho Gomes wrote:<br>
</div>
<blockquote
cite="mid:CAH=UPSHAvpTi6NnQ1xPeEnypWPF5FRpBKeF6m2yrjziFdU8NXw@mail.gmail.com"
type="cite">
<div dir="ltr">
<div>
<div>
<div>Boa Noite,<br>
<br>
Tenho o seguinte banco de dados em txt( em anexo):
<br>
<br>
JOSÉ<br>
A................................. 2<br>
B.....................................0<br>
C...................................0<br>
D.................................... 6<br>
E.......................0<br>
F............................. 1<br>
G................................ 13<br>
MARIA<br>
A................................. 3<br>
B.....................................0<br>
C...................................0<br>
D.................................... 1<br>
E.......................0<br>
F............................. 1<br>
G................................ 6<br>
PEDRO<br>
A.................................0<br>
B.....................................<br>
C...................................0<br>
D...................................0<br>
E.......................0<br>
F.............................0<br>
G................................ 3<br>
<br>
Gostaria que ficasse assim:<br>
Nome A B C D E G F<br>
JOSÉ 2 0 0 6 0 1 13<br>
MARIA 3 0 0 1 0 1 6<br>
PEDRO 0 0 0 0 0 0 3<br>
<br>
</div>
Como fazer isso?<br>
<br>
<br>
</div>
Att,<br>
</div>
Gomes</div>
<br>
<fieldset class="mimeAttachmentHeader"></fieldset>
<br>
<pre wrap="">_______________________________________________
R-br mailing list
<a moz-do-not-send="true" class="moz-txt-link-abbreviated" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a>
<a moz-do-not-send="true" class="moz-txt-link-freetext" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a>
Leia o guia de postagem (<a moz-do-not-send="true" class="moz-txt-link-freetext" href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.</pre>
</blockquote>
<br>
<p>
</p>
<hr>
_______________________________________________<br>
R-br mailing list<br>
<a class="moz-txt-link-abbreviated" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a class="moz-txt-link-freetext" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a class="moz-txt-link-freetext" href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e
forneça código mínimo reproduzível.</div>
</div>
</div>
<br>
<fieldset class="mimeAttachmentHeader"></fieldset>
<br>
<pre wrap="">_______________________________________________
R-br mailing list
<a class="moz-txt-link-abbreviated" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a>
<a class="moz-txt-link-freetext" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a>
Leia o guia de postagem (<a class="moz-txt-link-freetext" href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.</pre>
</blockquote>
<br>
</body>
</html>