topic-33441

jbrita

Posts: 537

Joined: Mon Jan 16, 2006 03:42 PM

ARCHVIO TXT
Posted: Fri Jan 06, 2017 01:14 PM

amigo tengo este codigo

cArchivoTxt :=memoread("C:\SYSTEMA\PTO_CORSSA\salida.txt")
If Empty(cArchivoTxt)
MsgAlert("Archivo Vacio","Atencion" )

ElseIf !File(cArchivoTxt)
MsgAlert("Archivo no se Encuentra","Atencion" )

EndIf

y siempre me sale archivo no se encuentra

saludos

jbrita

Posts: 537

Joined: Mon Jan 16, 2006 03:42 PM

Re: ARCHVIO TXT
Posted: Fri Jan 06, 2017 01:24 PM

alguna ayuda es urgente el problema

saludos

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: ARCHVIO TXT
Posted: Fri Jan 06, 2017 01:29 PM

Code (fw): Select all Collapse

#Include "FiveWin.ch"

function Main()

   local cResult, cMuestra, oPrn, oFont, nLin, nLinha, nQtde

   BEGIN SEQUENCE

      cResult := MemoRead( "TESTE.TXT" )

      cMuestra := ALLTRIM( cResult )

      PRINTER oPrn NAME "Erros do Programa" PREVIEW MODAL

      DEFINE FONT oFont NAME "COURIER NEW" SIZE 0, -10 OF oPrn

      oPrn:SetPage(9)    // A4
      oPrn:SetPortrait() // Vertical

      PAGE // solo ejemplo - USE BEGIN... END..

         nLin:=1

         FOR nLinha = 1 TO MLCOUNT( cMuestra, 100 )

            oPrn:CmSay( nLin := nLin +.4, 1.5, MEMOLINE( cMuestra, 100, nLinha), oFont )

            IF nLin > 25

               nLin = 1

               ENDPAGE

               PAGE

            ENDIF

         NEXT

         ENDPAGE

      ENDPRINT

      oFont:End()

   END SEQUENCE

   ? LEN( cResult )

   nQtde := LEN( cResult )

   IF nQtde == 1384

      MsgAlert( cResult )

   ELSE

      MsgAlert( "Fallo en cResult" )

   ENDIF

return nil

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

vilian

Posts: 1067

Joined: Wed Nov 09, 2005 02:17 AM

Re: ARCHVIO TXT
Posted: Fri Jan 06, 2017 01:40 PM

I think it's happening because you are using a long name in the path (\PTO_CORSSA). Try change to this:

cArchivoTxt := memoread(Lfn2Sfn("C:\SYSTEMA\PTO_CORSSA\salida.txt"))

Sds,
Vilian F. Arraes
vilian@vfatec.com.br
Belém-Pa-Brazil

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: ARCHVIO TXT
Posted: Fri Jan 06, 2017 01:58 PM

Very good Vilian,

Code (fw): Select all Collapse

// FiveWin long filenames management.

#include "FiveWin.ch"

//----------------------------------------------------------------------------//

function Main()

   local hFile   := LCreat( "This is a long filename file.txt" )
   local cBuffer := "FiveWin long filenames management"

   FWrite( hFile, @cBuffer, Len( cBuffer ) )

   LClose( hFile )

   // LongFileName to ShortFileName. The file must exists !!!
   MsgInfo( LFN2SFN( "This is a long filename file.txt" ) )

return nil

//----------------------------------------------------------------------------//

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: ARCHVIO TXT
Posted: Fri Jan 06, 2017 02:57 PM

jbrita wrote:amigo tengo este codigo

cArchivoTxt :=memoread("C:\SYSTEMA\PTO_CORSSA\salida.txt")
If Empty(cArchivoTxt)
MsgAlert("Archivo Vacio","Atencion" )

ElseIf !File(cArchivoTxt)
MsgAlert("Archivo no se Encuentra","Atencion" )

EndIf

y siempre me sale archivo no se encuentra

saludos

Quizás asi te funcione

Code (fw): Select all Collapse

cMyFile   := "C:\SYSTEMA\PTO_CORSSA\salida.txt"
cArchivoTxt :=memoread( cMyFile )
If Empty(cArchivoTxt)
           MsgAlert("Archivo Vacio","Atencion" )

ElseIf !File( cMyFile )
      MsgAlert("Archivo no se Encuentra","Atencion" )

EndIf

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

xmanuel

Posts: 817

Joined: Sun Jun 15, 2008 07:47 PM

Re: ARCHVIO TXT
Posted: Fri Jan 06, 2017 07:51 PM

Es pequeñito pero mal diseñado desde el principio
Cabia a esto:

Code (fw): Select all Collapse

    cMyFile := "C:\SYSTEMA\PTO_CORSSA\salida.txt"
    
    If File( cMyFile )
         cArchivoTxt := memoread( cMyFile )
        If Empty(cArchivoTxt)
               MsgAlert("Archivo Vacio","Atencion" )
        endif
    Else
          MsgAlert("Archivo no se Encuentra","Atencion" )
    EndIf

______________________________________________________________________________

Sevilla - Andalucía

FiveTech Support Forums

Continue the discussion