Text-Dateien aus dem Data-Block einlesen[umständlich gelöst]

[KatSeiko]

Ich habe das Problem durch ein Helper-Programm gelöst:

Code:

Code: Alles auswählen

Procedure TransferData(filename)
  Source = ReadFile(#PB_Any, filename+".txt")
  Dest = CreateFile(#PB_Any, filename+".pbi")
  If Source And Dest
    If Eof(Source)
      MessageRequester("Info", filename+" is empty!")
    Else
      Text.s = #DQUOTE$+ReadString(Source)+#DQUOTE$
      Lines = 1
      While Not Eof(Source)
        Current.s = #DQUOTE$+ReadString(Source)+#DQUOTE$
        Text + ", " + Current
        Lines + 1
      Wend
      WriteStringN(Dest, "Data.i "+Str(Lines))
      WriteString(Dest, "Data.s "+Text)
    EndIf
  EndIf
EndProcedure

TransferData("signature")
TransferData("program")

In meinem Programm habe ich nun statt IncludeBinary nur noch IncludeFile stehen, mit den entsprechenden PBI-Dateien. Die CheckFileSignature-Prozedur (mit SHA1 und MD5) ist die gleiche, wird nun aber durch eine Helper-Prozedur aufgerufen, die mit "Restore" arbeitet und zuerst prüft, ob drei Zeilen vorhanden sind (Read.i), erst dann werden die drei Werte eingelesen (Read.s) und an die CheckFileSignature-Prozedur übergeben.

Leider sehr umständlich. Es wär SO viel einfacher, wenn eine zukünftige Version von PureBasic so was wie "CatchFile" könnte, die alle Funktionen für das normale Datei-Lesen unterstützen würde..

[ts-soft]

Es wär SO viel einfacher, wenn eine zukünftige Version von PureBasic so was wie "CatchFile" könnte, die alle Funktionen für das normale Datei-Lesen unterstützen würde..

Kann man sich selber schreiben. Per PeekA die ersten Bytes auf BOM prüfen, mit PeekS(.., .., Format) peeken,
usw. Hab aber keine Lust Dir das alles vorzukauen, Infos zu BOM gibt es auf Wikepedia, zu Peek in der PB-Hilfe.
Sollte keine Problem sich das selbst zu erarbeiten. Genau das nennt sich dann programmieren

Du hast alle fehlenden Informationen, welches Format haben die Dateien, ist Dein Programm in Unicode usw.,
deshalb sollte es für Dich keine Problem sein, mithilfe dieser Infos, sowie den hier geposteten Codes, es selbst
zu optimieren.

Gruß
Thomas