ARCHVIO TXT

[jbrita]

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]

alguna ayuda es urgente el problema

saludos

[karinha]

Code: Select all  Expand view

#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
 



[vilian]

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"))

[karinha]

Very good Vilian,

Code: Select all  Expand view

// 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

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



[cnavarro]

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: Select all  Expand view

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


 

[xmanuel]

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

Code: Select all  Expand view

    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