PureBoard

Code: Alles auswählen

Procedure FileLength(filenr,filename$)
  
  If ReadFile(filenr,filename$) 
    While Eof(filenr)=0
      ReadString()
      filelen+1
    Wend
    CloseFile(filenr)
  Else 
    ErrorMessage("Read",filename$)
  EndIf
  ProcedureReturn filelen
  
EndProcedure



Procedure CompareFiles(filenr_old,filename_old$,filenr_new,filename_new$,filenr_out,filename_out$)

  filelen_old=FileLength(filenr_old,filename_old$)
  filelen_new=FileLength(filenr_new,filename_new$)
  
  Dim File_old.s(filelen_old-1)
  If ReadFile(filenr_old,filename_old$)
    counter=0
    While Eof(filenr_old)=0  
      input_old$=Trim(ReadString())
      File_old(counter)=input_old$
      counter+1
    Wend
    CloseFile(filenr_old)
  Else
    ErrorMessage("Read",filename_old$) 
  EndIf
   
  Dim File_new.s(filelen_new-1)
  If ReadFile(filenr_new,filename_new$)
    counter=0
    While Eof(filenr_new)=0  
      input_new$=Trim(ReadString())
      File_new(counter)=input_new$
      counter+1
    Wend
    CloseFile(filenr_new)
  Else
    ErrorMessage("Read",filename_new$) 
  EndIf

  If CreateFile(filenr_out,filename_out$) 
    counter=0
    i=0
    While i < filelen_new
      a$=File_new(i)
      k=0
      While k < filelen_old 
        b$=File_old(k)
        If a$=b$
          counter=1
          k+1
          Break
        EndIf
        k+1
      Wend
      If counter=0
        WriteStringN(a$)
      EndIf
      counter=0
      i+1
    Wend
    CloseFile(filenr_out)
  Else
    ErrorMessage("Create",filename_out$) 
  EndIf
 
EndProcedure


Procedure SearchDoubles(filenr,filename$,filenr_out,filename_out$)

  filelen=FileLength(filenr,filename$)
  
  Dim File.s(filelen-1)
  If ReadFile(filenr,filename$)
    counter=0
    While Eof(filenr)=0  
      input$=Trim(ReadString())
      File(counter)=input$
      counter+1
    Wend
    CloseFile(filenr)
  Else
    ErrorMessage("Read",filename$) 
  EndIf
  
  If CreateFile(filenr_out,filename_out$) 
    counter=0
    i=0
    While i < filelen
      a$=File(i)
      k=0
      While k < filelen
        b$=File(k)
        If a$=b$
          counter+1
        EndIf
        k+1
      Wend
      If counter>1
        WriteStringN(a$)
      EndIf
      counter=0
      i+1
    Wend
    CloseFile(filenr_out)
  Else
    ErrorMessage("Create",filename_out$) 
  EndIf
  
EndProcedure

Procedure ErrorMessage(error_type$,error_filename$)
  
  MessageRequester("ERROR","Could Not "+error_type$+" File : "+error_filename$ ,0)  
  
EndProcedure