PureBasic Forums - English

Code: Select all

CompilerIf #PB_Compiler_IsMainFile
  EnableExplicit
CompilerEndIf


Procedure.s ReadFileString(Filename$)
  
  Protected.i File, BytesToRead, BOM
  Protected Content$, *Buffer
  
  
  File = ReadFile(#PB_Any, Filename$, #PB_File_SharedRead)
  If File
    BOM = ReadStringFormat(File)
    BytesToRead = Lof(File) - Loc(File)
    
    *Buffer = AllocateMemory(BytesToRead)
    If *Buffer
      If ReadData(File, *Buffer, BytesToRead) = BytesToRead
        Select BOM
          Case #PB_Unicode
            Content$ = PeekS(*Buffer, BytesToRead / 2, #PB_Unicode)
          Case #PB_UTF8
            Content$ = PeekS(*Buffer, BytesToRead, #PB_UTF8|#PB_ByteLength)
          Case #PB_Ascii
            Content$ = PeekS(*Buffer, BytesToRead, #PB_Ascii)
        EndSelect
      EndIf
      FreeMemory(*Buffer)
    EndIf
    
    CloseFile(File)
  EndIf
  
  ProcedureReturn Content$
  
EndProcedure


CompilerIf #PB_Compiler_IsMainFile
  Define Filename$
  
  Filename$ = OpenFileRequester("Choose a text file", "", "TXT|*.txt", 0)
  If Filename$
    Debug ReadFileString(Filename$)
  EndIf
CompilerEndIf