PureBoard

Code: Alles auswählen

EnableExplicit

Global NewList Lines.s()

Procedure LinesFromMemToList(*mem)
  Protected tmp.s
  Protected *pLines.Character = *mem
  ClearList(Lines())
  Repeat
    If *pLines\c = 10
      AddElement(Lines())
      Lines() = tmp
      tmp = ""
    Else
      tmp + Chr(*pLines\c)
    EndIf
    *pLines + SizeOf(Character)
  Until *pLines\c = 0
  AddElement(Lines())
  Lines() = tmp
  FreeMemory(*mem)
EndProcedure

Procedure ReadTextToMem(FileName.s)
  Protected *Mem, Size
  Protected FF = ReadFile(#PB_Any, FileName)
  If FF
    Size = Lof(FF)
    *Mem = AllocateMemory(Size)
    If *Mem
      ReadData(FF, *Mem, Size)
    EndIf
    CloseFile(FF)
    LinesFromMemToList(*Mem)
  EndIf
EndProcedure

ReadTextToMem(#PB_Compiler_Home + "SDK\Readme.txt")

ForEach Lines()
  Debug Lines()
Next