<div>Ola Thomas,</div> <div> </div> <div>Onde vc ta lendo a linha do arquivo e inserindo na variavel $linha, preciso pegar cada linha do arquivo aberto e colocar na variavel, no pascal tem a funçao Readln(F,linha), neste codigo que me passou onde isto é feito e o qual o significado do parametro <A>?</div> <div> </div> <div>Valeu,</div> <div> </div> <div>Fabio<BR><BR><B><I>Thomas Britis <thomas@tcnet.com.br></I></B> escreveu:</div> <BLOCKQUOTE class=replbq style="PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #1010ff 2px solid">open (F, "arquivo") # Onde "arquivo" é o arquivo que deve ser lido.<BR>while ($linha = <A> <A>) { # Le cada linha colocando na variavel $linha<BR>system ("$linha"); # Faz uma chamada de sistema a partir da variavel $linha<BR>}<BR>close (F); # Fecha o arquivo "arquivo"<BR><BR>fabio nery wrote:<BR>> Ola Ivo,<BR>> <BR>> E mais ou menos isso, olha o codigo em pascal :<BR>> <BR>>
//inicio-codigo<BR>> Begin<BR>> <BR>> Assign(file,NomeAuto);<BR>> Reset(file); //abre o arquivo para leitura;<BR>> While not eof(file) do begin //enquanto nao for o final do arquivo<BR>> Readln(file,linha); //le do arquivo e desce uma linha. O conteúdo <BR>> lido é transferido para a variável linha<BR>> <BR>> //aqui deve chamar o comando do DOS e passar o parametro linha<BR>> //comando a ser passado ; cscript c:\windows\system32\prnmngr.vbs <BR>> -ac -p linha<BR>> End;<BR>> Closefile(f);<BR>> End.<BR>> <BR>> //fim-codigo<BR>> <BR>> <BR>> Valeu,<BR>> <BR>> Fabio<BR>> <BR>> */Ivo Peixinho <IVOCARV@CAIS.RNP.BR>/* escreveu:<BR>> <BR>> <BR>> <BR>> Nao sei se e' exatamente o que voce quer, mas:<BR>> <BR>> open(ARQ,"/caminho/do/arquivo");<BR>> <BR>> while() {<BR>> <BR>> system("/caminho/comando/ms-dos $_");<BR>> }<BR>> <BR>> Ou se voce quer armazenar o resultado, voce pode
trocar o system por:<BR>> <BR>> @resut=`/caminho/comando/ms-dos $_`;<BR>> <BR>> Ivo.<BR>> <BR>> On Tue, 4 Jul 2006, fabio nery wrote:<BR>> <BR>> > Ola a todos,<BR>> ><BR>> > Gostaria de uma ajuda do grupo com um problema que estou tendo,<BR>> quero ler um arquivo e guardar cada linha lida em uma variavel e<BR>> depois chamar um comando ms-dos e passar esta variavel como<BR>> parametro para o comando ms-dos, tem como fazer isto em perl? Espero<BR>> sinceramente que possam me ajudar.<BR>> ><BR>> > Obrigado a todos,<BR>> ><BR>> > Fabio<BR>> ><BR>> ><BR>> > ---------------------------------<BR>> > Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o<BR>> discador agora!_______________________________________________<BR>> Cascavel-pm mailing list<BR>> Cascavel-pm@pm.org<BR>> http://mail.pm.org/mailman/listinfo/cascavel-pm<BR>> <BR>> <BR>>
------------------------------------------------------------------------<BR>> Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu <BR>> celular. Registre seu aparelho agora! <BR>> <HTTP: mailalertas br.mobile.yahoo.com *http: mobile_alerts tagline br mail us.rd.yahoo.com /><BR>> <BR>> <BR>> <BR>> ------------------------------------------------------------------------<BR>> <BR>> _______________________________________________<BR>> Cascavel-pm mailing list<BR>> Cascavel-pm@pm.org<BR>> http://mail.pm.org/mailman/listinfo/cascavel-pm<BR><BR>-- <BR>Thomas Storino Britis<BR>TCNet Informatica e Telecomunicacoes LTDA<BR>_______________________________________________<BR>Cascavel-pm mailing list<BR>Cascavel-pm@pm.org<BR>http://mail.pm.org/mailman/listinfo/cascavel-pm<BR></BLOCKQUOTE><BR></A><p> 
<hr size=1>
Yahoo! Search<br>
Música para ver e ouvir: <a href="http://us.rd.yahoo.com/mail/br/tagline/search/video/*http://br.search.yahoo.com/search/video?p=james+blunt&ei=UTF-8&cv=g&x=wrt&vm=r&fr=intl-mail-br-b">You're Beautiful, do James Blunt</a>