Dateigrösse und Inhalt stimmen nicht überein

Forumthread: Dateigrösse und Inhalt stimmen nicht überein
8 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Dateigrösse und Inhalt stimmen nicht überein

08.07.2025 17:36:25

Jürgen19

Hallo allerseits

Mit folgendem Code (Zugemüse weggelassen) lese ich eine Textdatei ein



Sub read_text()

   ' Dateigrösse ermitteln

   filesize_is = FileLen(name_der_datei)

   ' Daten lesen

   bytes_gelesen = 0

   While Not EOF(1)

      Input #1, text_is

      '  gelesene Bytes aufsummieren

      bytes_gelesen = bytes_gelesen + Len(text_is)

   Wend

End Sub

Am Ende sieht das dann so aus:
filesize_is = 503750
bytes_gelesen = 358206

Frage: wo sind die restlichen 145544 Bytes?

Gruss
Jürgen

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Dateigrösse und Inhalt stimmen nicht überein

08.07.2025 18:11:18

schauan
AW: Dateigrösse und Inhalt stimmen nicht überein

08.07.2025 18:30:02

Jürgen19
AW: Dateigrösse und Inhalt stimmen nicht überein

08.07.2025 18:20:57

volti
AW: Dateigrösse und Inhalt stimmen nicht überein

08.07.2025 20:21:53

Piet
AW: Dateigrösse und Inhalt stimmen nicht überein

09.07.2025 11:28:02

Der Steuerfuzzi
AW: Dateigrösse und Inhalt stimmen nicht überein

08.07.2025 20:42:21

schauan
AW: Danke für den Code! oWt

08.07.2025 21:32:40

Piet
AW: Dateigrösse und Inhalt stimmen nicht überein

08.07.2025 18:31:37

Jürgen19

AW: Dateigrösse und Inhalt stimmen nicht überein

08.07.2025 18:11:18

schauan

Hallöchen,

ich vermute, Du hast z.B. viele Zeilenumbrüche u.a. Steuerzeichen drin.

Lies die Datei mal so ein:

text_is = Input$(LOF(1), 1)

AW: Dateigrösse und Inhalt stimmen nicht überein

08.07.2025 18:30:02

Jürgen19

Hallo schauan

da sind dann tatsächlich 503750 Bytes.
Mit

Input #1, text_is

bekomme ich den Text in verarbeitbaren Häppchen und muss den riesen Textstring nicht mühsam auseinander klauben.

Die Zählerei benutze ich nur, um den Fortschrit der Verarbeitung anzuzeigen. Damit das etwas besser wird, werde ich es einfach so machen:

bytes_gelesen = bytes_gelesen + Len(text_is) + 10.

;-)

Gruss
Jürgen

AW: Dateigrösse und Inhalt stimmen nicht überein

08.07.2025 18:20:57

volti

Hallo Jürgen,

kann es sein, dass an der Abbruchstelle zufällig ein Zeichen 26 (EOF) steht. Zwar eher unwahrscheinlich, aber soweit ich aus früheren Zeiten weiß, wurde bei bestimmten Einlesemethoden (die verwendete gehört dazu) die Einlesung bei diesem Zeichen abgebrochen.
Ob es heute noch so ist, weiß ich allerdings nicht.

Gruß
Karl-Heinz

AW: Dateigrösse und Inhalt stimmen nicht überein

08.07.2025 20:21:53

Piet

Hallo

ich sehe gerade das man Textdateien mit Input #1 einlesen kann, ist mir neu, klappt bei mir aber nicht!
Die Datei existiert in LW G:, ich habe es mit geschlossener und geöffneter Datei versucht. Kein Erfolg.
Kann man die Datei auch in eine Excel Tabelle einlesen? Wie müsste der Code dann aussehen??

mfg Gast 123

Sub read_text()

   ' Dateigrösse ermitteln

   filesize_is = FileLen("G:\Info.txt")

   ' Daten lesen

   bytes_gelesen = 0

   While Not EOF(1)

      Input #1, text_is

      '  gelesene Bytes aufsummieren

      bytes_gelesen = bytes_gelesen + Len(text_is)

   Wend

   MsgBox bytes_gelesen

End Sub

AW: Dateigrösse und Inhalt stimmen nicht überein

09.07.2025 11:28:02

Der Steuerfuzzi

Hallo,

die aktuelle Schreibposition kann man mit Seek anzeigen lassen. Die müsste korrekt sein.

bytes_gelesen = seek(1)

Grüße
Michael

AW: Dateigrösse und Inhalt stimmen nicht überein

08.07.2025 20:42:21

schauan

Hallo Piet,

Jürgen hatte ja geschrieben, dass er einiges drumherum weggelassen hat...

Sub TextdateiEinlesen()

    Dim strText$, strFile$, strText_Is$

    Dim lFileSize_Is&, lBytes&

    ' Pfad zur Textdatei

    strFile = "C:\Test\Agave.txt"

    lFileSize_Is = FileLen(strFile)

    ' Datei öffnen und gesamten Inhalt einlesen

    Open strFile For Input As #1

    strText = Input$(LOF(1), 1) ' LOF(1) gibt die Dateigröße zurück

    Close #1

    MsgBox strText

    Range("A1") = strText

    Open strFile For Input As #1

    While Not EOF(1)

      Input #1, strText_Is

      '  gelesene Bytes aufsummieren

      lBytes = lBytes + Len(strText_Is)

      Cells(Rows.Count, 3).End(xlUp).Offset(1) = strText_Is

    Wend

    Close #1

    ' Inhalt anzeigen (z. B. in einer MsgBox)

    MsgBox strText_Is

End Sub