<html>
<head>
<meta content="text/html; charset=ISO-8859-1"
http-equiv="Content-Type">
</head>
<body text="#000000" bgcolor="#FFFFFF">
Obrigado Benilton,<br>
<br>
Mas eu gostaria de utilizar separado em colunas apenas
COLONIA%X e operario_X e não todo o nome do arquivo em uma única
coluna, conforme a sua solução. Segue um CRM que funcione:<br>
<br>
##Criando os arquivos<br>
x1<-rnorm(100)<br>
write.table(x1,
file='Cupim%20Syntermes_COLONIA%201_operario_1_c1_140616.txt',
col.names=FALSE, row.names=FALSE, quote=FALSE)<br>
x2<-rnorm(100)<br>
write.table(x2,
file='Cupim%20Syntermes_COLONIA%201_operario_2_c1_140616.txt',
col.names=FALSE, row.names=FALSE, quote=FALSE)<br>
x3<-rnorm(100)<br>
write.table(x3,
file='Cupim%20Syntermes_COLONIA%201_operario_3_c1_140616.txt',
col.names=FALSE, row.names=FALSE, quote=FALSE)<br>
<br>
<br>
#Lendo os arquivos criados<br>
fileNames <- c(<br>
"Cupim%20Syntermes_COLONIA%201_operario_1_c1_140616.txt",<br>
"Cupim%20Syntermes_COLONIA%201_operario_2_c1_140616.txt",<br>
"Cupim%20Syntermes_COLONIA%201_operario_3_c1_140616.txt")<br>
<br>
#criando arquivo único com nomes dos arquivos e transpondo conteúdo<br>
x = do.call(cbind, lapply(fileNames, read.table, header=TRUE))<br>
names(x) = fileNames<br>
write.table(t(x), file='saida.mod', col.names=FALSE, row.names=TRUE,
quote=FALSE)<br>
<br>
<br>
<br>
<br>
<br>
<br>
<div class="moz-cite-prefix">Em 08/07/2014 14:01, Benilton Carvalho
escreveu:<br>
</div>
<blockquote
cite="mid:CAO-arWPGnh2n5KKdm+Y62_gS+P=xJafoyYGz_rTNs32R1Gp8qw@mail.gmail.com"
type="cite">#-------------------------------------------------------------------------------<br>
### Download a partir de uma lista de links com os arquivos<br>
#-------------------------------------------------------------------------------<br>
#<br>
### Obtenção de links<br>
links <- c(<br>
"<a moz-do-not-send="true"
href="https://www.dropbox.com/s/l5ofrqw01tnfmmv/Cupim%20Syntermes_COLONIA%201_operario_1_c1_140616.dpt"
target="_blank">https://www.dropbox.com/s/l5ofrqw01tnfmmv/Cupim%20Syntermes_COLONIA%201_operario_1_c1_140616.dpt</a>",
<br>
"<a moz-do-not-send="true"
href="https://www.dropbox.com/s/tkxkov16z813oc6/Cupim%20Syntermes_COLONIA%201_operario_2_c1_140616.dpt"
target="_blank">https://www.dropbox.com/s/tkxkov16z813oc6/Cupim%20Syntermes_COLONIA%201_operario_2_c1_140616.dpt</a>",
<br>
"<a moz-do-not-send="true"
href="https://www.dropbox.com/s/hjcmw9qutwwolo0/Cupim%20Syntermes_COLONIA%201_operario_3_c1_140616.dpt"
target="_blank">https://www.dropbox.com/s/hjcmw9qutwwolo0/Cupim%20Syntermes_COLONIA%201_operario_3_c1_140616.dpt</a>")<br>
<br>
tokens <- gsub("^.*/s/","",dirname(links))<br>
fileNames <- basename(links)<br>
newLinks <- file.path("<a moz-do-not-send="true"
href="http://dl.dropbox.com/s" target="_blank">http://dl.dropbox.com/s</a>",
tokens, fileNames); newLinks<br>
<br>
for (a in newLinks) {<br>
tryCatch(download.file(a, dest=basename(a), mode='wb'),<br>
error=function(...) print("Falha no
download!"))}<br>
<br>
### Verificando arquivos baixados corretamente<br>
##############################################################################<br>
fileInfo <- <a moz-do-not-send="true" href="http://file.info"
target="_blank">file.info</a>(fileNames); fileInfo ### observe o
segundo arquivo<br>
files.OK <- fileNames[fileInfo$size>0 & !<a
moz-do-not-send="true" href="http://is.na" target="_blank">is.na</a>(fileInfo$size)];
files.OK<br>
<br>
### Operando </blockquote>
<br>
<pre class="moz-signature" cols="72">--
======================================================================
Alexandre dos Santos
Proteção Florestal
IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso
Campus Cáceres
Caixa Postal 244
Avenida dos Ramires, s/n
Bairro: Distrito Industrial
Cáceres - MT CEP: 78.200-000
Fone: (+55) 65 8132-8112 (TIM) (+55) 65 9686-6970 (VIVO)
<a class="moz-txt-link-abbreviated" href="mailto:e-mails:alexandresantosbr@yahoo.com.br">e-mails:alexandresantosbr@yahoo.com.br</a>
<a class="moz-txt-link-abbreviated" href="mailto:alexandre.santos@cas.ifmt.edu.br">alexandre.santos@cas.ifmt.edu.br</a>
Lattes: <a class="moz-txt-link-freetext" href="http://lattes.cnpq.br/1360403201088680">http://lattes.cnpq.br/1360403201088680</a>
======================================================================
</pre>
</body>
</html>