Escrevendo em arquivo texto

Discussão sobre a biblioteca Fivewin - O Clipper para Windows.

Moderador: Moderadores

Mário Isa
Usuário Nível 4
Usuário Nível 4
Mensagens: 907
Registrado em: 07 Jul 2004 13:54
Localização: Ilha Solteira-sp

Escrevendo em arquivo texto

Mensagem por Mário Isa »

alÔ Colegas:
Tentei fazer este programa:
set printer to local.bat
set device to printer
@ 0,0 say 'start iexplore http://www.ig.com.br'
set devi to scre
set printer to
winexec(local)

Mas na hora de executar o say ele não reconhece.
Alguém tem alguma dica?
Obrigado
Avatar do usuário
kiko
Usuário Nível 3
Usuário Nível 3
Mensagens: 145
Registrado em: 08 Jul 2004 15:24
Localização: Cianorte

Mensagem por kiko »

o seu SET DEVICE esta como PRINT
entaum, eh igual no clipper...
ao inves de

Código: Selecionar todos

@ 00,00 SAY "OLA MUNDO"
é

Código: Selecionar todos

@ PROW()+00,00 SAY "OLA MUNDO"
eh isso ai
Avatar do usuário
Clipper
Colaborador
Colaborador
Mensagens: 1334
Registrado em: 23 Ago 2004 00:04
Localização: Recife/PE

Mensagem por Clipper »

Prezado Mario

Neste caso não faz diferença alguma o uso da função PROW() já que ele está direcionando para um arquivo, tanto faz 00,00 ou prow()+00,00.

Não seria mais fácil fazer assim ?

MEMOWRIT("LOCAL.BAT","start iexplore http://www.ig.com.br")

Até logo.

Marcelo
Programador que é programador, quando tá de folga vai inventar função nova, fazer testes, ou seja... se divertir
Cobra 210 - Drive de 8" 1.024 KB - 64 KB RAM - Impressora de Linha Cobra - Visicalc - Fortran - Dialog - Sistema Operacional SP/M (é sp/m mesmo - era o cp/m da cobra)
Avatar do usuário
rochinha
Administrador
Administrador
Mensagens: 4664
Registrado em: 18 Ago 2003 20:43
Localização: São Paulo - Brasil
Contato:

Mensagem por rochinha »

Amiguinho

Faça assim:

...
vARQ := FCreate( "LOCAL.BAT" )
vCMD := "start iexplore http://www.ig.com.br" + Chr( 13 ) + Chr( 10 )
FWrite( vARQ, @vCMD, Len( vCMD ) )
FClose( vARQ )
WinExec("LOCAL.BAT")
...

Ou use esta função

function QueroIrPara( site )
WinExec( "start " + site )
return .t.

@braços :?)
Responder