PC Toledo

Código: Selecionar todos

@echo off
if [%1] == [] goto fim

:: Parametros
::=============================
:: 1 - host ftp
:: 2 - usuario
:: 3 - senha
:: 4 - pasta remota
:: 5 - pasta local
:: 6 - arquivo a ser excluído

set allusersprofile=
set appdata=
set commonprogramfiles=
set homepath=
set number_of_processors=
set os2libpath=
set processor_architecture=
set processor_identifier=
set processor_level=
set processor_revision=
set programfiles=
set userprofile=
set userdomain=

:: Cria o arquivo de script
::=============================
echo open %1           > exclui.ftp
echo user %2 %3       >> exclui.ftp
echo binary           >> exclui.ftp
echo prompt           >> exclui.ftp
echo cd %4            >> exclui.ftp
echo lcd %5           >> exclui.ftp
echo delete %6        >> exclui.ftp
echo bye              >> exclui.ftp


:: Executa o script no FTP
::=============================
set l1=--------------------
set l2=********************

echo %l2%%l2%%l2%%l2%>> exclui.log
echo.|date           >> exclui.log
echo.|time           >> exclui.log
echo %l1%%l1%%l1%%l1%>> exclui.log
ftp -s:exclui.ftp -n >> exclui.log
echo %l1%%l1%%l1%%l1%>> exclui.log
echo.                >> exclui.log
echo.                >> exclui.log

set l1=
set l2=


:: Exclui o arquivo de script
::=============================
del exclui.ftp
:fim

Código: Selecionar todos

echo delete %6        >> exclui.ftp

Código: Selecionar todos

#include "hbmemory.ch"

PROCEDURE Main()

   LOCAL pH1, pH2, pH3, pH4
   LOCAL n := 0
   LOCAL aSign := { "|", "/", "-", "\" }
   LOCAL nPrev := Seconds()

   CLS
   ? "   Time:        Memory used:                          Milliseconds elapsed:"
   ?
   ? "Can you see it ??? :) Press any key or wait 30 seconds"
   ?
   ?
   @ 10, 2 SAY "Memory before Test() call " + hb_ntos( Memory( HB_MEM_USED ) )
   Test()
   @ 11, 2 SAY "Memory after Test() and before collecting " + hb_ntos( Memory( HB_MEM_USED ) )
   hb_gcAll()
   @ 12, 2 SAY "Memory after collecting " + hb_ntos( Memory( HB_MEM_USED ) )
   pH1 := hb_idleAdd( {||                             hb_DispOutAt( 0,  1, Time() ) } )
   pH2 := hb_idleAdd( {|| Test(),                     hb_DispOutAt( 0, 21, Memory( HB_MEM_USED ) ) } )
   pH3 := hb_idleAdd( {|| iif( n == 4, n := 1, n++ ), hb_DispOutAt( 0, 41, aSign[ n ] ) } )
   pH4 := hb_idleAdd( {||                             hb_DispOutAt( 0, 61, 1000 * ( Seconds() - nPrev ) ), nPrev := Seconds() } )

   ? ValType( pH1 ), pH1, ValType( pH2 ), pH2, ValType( pH3 ), pH3, ValType( pH4 ), pH4

   Inkey( 30 )
   IF ! Empty( pH3 )
      @ 14, 2 SAY "Delete task 3: " + hb_ValToStr( pH3 )
      hb_idleDel( pH3 )
   ENDIF
   IF ! Empty( pH2 )
      @ 15, 2 SAY "Delete task 2: " + hb_ValToStr( pH2 )
      hb_idleDel( pH2 )
   ENDIF
   IF ! Empty( pH1 )
      @ 16, 2 SAY "Delete task 1: " + hb_ValToStr( pH1 )
      hb_idleDel( pH1 )
   ENDIF
   IF ! Empty( pH4 )
      @ 17, 2 SAY "Delete task 4: " + hb_ValToStr( pH4 )
      hb_idleDel( pH4 )
   ENDIF

   @ 18, 2 SAY "Memory after idle states " + hb_ntos( Memory( HB_MEM_USED ) )
   hb_gcAll()
   @ 19, 2 SAY "Memory after collecting " + hb_ntos( Memory( HB_MEM_USED ) )

   RETURN

STATIC PROCEDURE Test()

   LOCAL a, b, c
   LOCAL cb

   a := Array( 3 )
   b := Array( 3 )
   c := Array( 3 )
   a[ 1 ] := a
   a[ 2 ] := b
   a[ 3 ] := c
   b[ 1 ] := a
   b[ 2 ] := b
   b[ 3 ] := c
   c[ 1 ] := a
   c[ 2 ] := b
   c[ 3 ] := c

   cb := {| x | x := cb }
   Eval( cb )

   RETURN

Código: Selecionar todos

REQUEST HB_IOTCP

PROCEDURE Main( cAddr )

   LOCAL hFile, cData, cSend, cEOL, nLen

   IF Empty( cAddr )
      cAddr := "tcp:localhost:2941"
   ENDIF

   If empty( hFile := hb_vfCreate('c:\teste\teste.txt') )
      ? "open:", cAddr
   ELSE
      cEOL := e"\r\n"

      cSend := "TESTE DE GRAVAÇÃO" + cEOL
      nLen := hb_vfWrite( hFile, cSend,, 1000 )
      ? ">>", StrTran( hb_BLeft( cSend, nLen ), cEOL, cEOL + ">> " )
      IF nLen != hb_BLen( cSend )
         ? "WRITE ERROR:", FError()
      ENDIF
      hb_vfClose( hFile )
      ? "closed, error:", FError()
   ENDIF
   ?
   WAIT

   RETURN

Static function hb_vfCreate( cFile, nModeAttr )

      local nNewAttr := hb_defaultValue( nModeAttr, 0 )

      nNewAttr := hb_bitAnd( nNewAttr, 0xFFFFFFFC )
      nNewAttr := hb_bitOr( nNewAttr, FO_READWRITE )
      nNewAttr := hb_bitOr( nNewAttr, FO_CREAT )

Return hb_vfOpen( cFile, nNewAttr )

Código: Selecionar todos

              pH1 := hb_idleAdd( {|| __run("excltod " + ftps + " " + usftp + " " + snhftp + " " + ptftp+"copypen/agenda . " + arqexcl) } )
?hb_idleState(pH1)

Código: Selecionar todos

C:\fontes\xyz>gcc --version
gcc (tdm-2) 4.8.1
Copyright (C) 2013 Free Software Foundation, Inc.
This is free software; see the source for copying conditions.  There is NO
warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.