File Error - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|544\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> File Error
Mon, 18 Aug 2014, 13:53
dna	Hello I wrote the code below and it continues to give me the error 'File does Not Exist' when it actually does physically reside on the drive. What am I doing wrong? AppTitle "PTw":Graphics 600,400,24,2:.AGA CN=0:DU=0:RS=0:GF$=Upper$(Input("N: ")):If GF$="" Then HALT(2): LO$=CurrentDir$():FIN$=LO$+GF$+"_RAW.TXT"::;Print FIN$:HALT(2) Print "FIN$: "+FIN$:FIN2$=LO$+"TESTFILE.TXT":Print "FIN2$: "+FIN2$:For II= Len(FIN$) To 1 Step -1 ;last If Mid$(FIN$,II,1)<>"" RS=RS+1 ElseIf Mid$(FIN$,II,1)="" Exit EndIf ; Next: NTM$=Mid$(FIN$,Len(FIN$)-RS+1):NTM$=Left$(NTM$,Instr(NTM$,"_")-1)+Mid$(NTM$,Instr(NTM$,".")) NTM$=Left$(FIN$,Len(FIN$)-RS)+NTM$:Print "NTM$: "+NTM$:Print FileSize(NTM$):;HALT(1) TFN=OpenFile(NTM$) ;MkF If TFN=0 And FileSize(NTM$)=0 TFN=WriteFile(NTM$):If FileSize(NTM$)>0 CloseFile (TFN) ;MAKE TFN=OpenFile(NTM$):Print NTM$+" CREATED": EndIf ;==== ; TFN=OpenFile(NTM$) ; ; If TFN=0 And FileSize(NTM$)=0 ;After I changed this line to 'If filesize(NTM$)=0 And TFN=0, it crashed --V ; TFN=WriteFile(NTM$):If FileSize(NTM$)>0 CloseFile (TFN) ;< -------- It's stopping here, however ^ ; TFN=OpenFile(NTM$):Print "YES": ; EndIf CR=0; While Not Eof(TFN) ;Red TS$=ReadLine(TFN):CR=CR+1 If TS$=TH$ ;E FFL=1:DU=DU+1 EndIf Wend If FFL=0 WriteLine(TFN,TH$):CloseFile(TFN):AR=AR+1 ; < - -- - - - - ------------------------------- Down here EndIf FFL=0 ;==== EndIf .COUNT Wend .INF Print DU+" F "+(CN-DU)+" S "+AR+" W":CloseFile(OFN):If FileSize(NTM$)>0 Then CloseFile(TFN): Goto AGA Function HALT(P=0) If P=2 Then End ElseIf P=1 Then WaitKey:Return ElseIf P=0 Then WaitKey:End End End Function --v -=-=- DNA
Mon, 18 Aug 2014, 14:11
Jayenkai	That's horrible code, even by my god-awful standards. Use proper full length variable names, and don't cram more than 5,000 commands onto a single line, especially when you're trying to find and fix bugs. Try using FileExist=0 or FileType=0 (iirc) rather than FileSize=0 -=-=- ''Load, Next List!''
Tue, 18 Nov 2014, 05:34
zzoom	Heres an example of your code modified with the readfile function being implemented - not sure if it achieves your goal or not, but it created a file in the root of the drive I ran the code example on.... AppTitle "PTw":Graphics 600,400,24,2: .AGA CN=0:DU=0:RS=0:GF$=Upper$(Input("N: ")):If GF$="" Then HALT(2): LO$=CurrentDir$():FIN$=LO$+GF$+"_RAW.TXT"::;Print FIN$:HALT(2) Print "FIN$: "+FIN$:FIN2$=LO$+"TESTFILE.TXT":Print "FIN2$: "+FIN2$:For II= Len(FIN$) To 1 Step -1 ;last If Mid$(FIN$,II,1)<>"" RS=RS+1 ElseIf Mid$(FIN$,II,1)="" Exit EndIf ; Next: NTM$=Mid$(FIN$,Len(FIN$)-RS+1):NTM$=Left$(NTM$,Instr(NTM$,"_")-1)+Mid$(NTM$,Instr(NTM$,".")) NTM$=Left$(FIN$,Len(FIN$)-RS)+NTM$:Print "NTM$: "+NTM$:Print FileSize(NTM$):;HALT(1) TFN=OpenFile(NTM$) ;MkF If TFN=0 And FileSize(NTM$)=0 Then TFN=WriteFile(NTM$):If FileSize(NTM$)>0 CloseFile (TFN) ;MAKE TFN=OpenFile(NTM$):Print NTM$+" CREATED": EndIf ;alternate check if a filename is there code..... filename= ReadFile(NTM$) If filename <> 0 ;only continue if the file exists While Not Eof (filename) ;keep reading until the end of the file val$ = ReadLine(filename) ;read the full line onlyone=onlyone+1 ;print out the first line of the file for debug If onlyone=1 testfile1$=val$ Print "Contents of testfile are:"+testfile1$ EndIf Wend Else Print "could not open 1st file:" Print NTM$ EndIf ;==== ; TFN=OpenFile(NTM$) ; ; If TFN=0 And FileSize(NTM$)=0 ;After I changed this line to 'If filesize(NTM$)=0 And TFN=0, it crashed --V ; TFN=WriteFile(NTM$):If FileSize(NTM$)>0 CloseFile (TFN) ;< -------- It's stopping here, however ^ ; TFN=OpenFile(NTM$):Print "YES": ; EndIf CR=0; While Not Eof(TFN) ;Red TS$=ReadLine(TFN):CR=CR+1 If TS$=TH$ ;E FFL=1:DU=DU+1 EndIf Wend If FFL=0 WriteLine(TFN,TH$):CloseFile(TFN):AR=AR+1 ; < - -- - - - - ------------------------------- Down here EndIf FFL=0 ;==== ;EndIf ;.COUNT Wend ; Had to comment to stop a MAV .INF Print DU+" F "+(CN-DU)+" S "+AR+" W":CloseFile(OFN):If FileSize(NTM$)>0 Then CloseFile(TFN): Goto AGA Function HALT(P=0) If P=2 Then End ElseIf P=1 Then WaitKey:Return ElseIf P=0 Then WaitKey:End End End Function --v -=-=- Happy coding!