Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Hier ist der Code:
Autor: B. Spiegelschatten
Datum: 08.01.02 15:23
AUSZÜGE AUS DER KLASSE "TEXTFILE" (TF) ZUM LESEN/SCHREIBEN VON DATEIN: '***********************************************************************************************'***********************************************************************************************Option Explicit Private bolEOF as Boolean 'Für End Of File Private intChannel as Long 'Für FreeFile Private strDateiName as String 'DateiName Public Sub TF_Assign(ByVal DateiName As String) 'Dateinamen zuweisen und nächste freie Filenummer vergeben strFileName = DateiName bolFileOpen = True End Sub Public Property Get TF_EOF() As Boolean 'READ ONLY bolEOF = EOF(intChannel) TF_EOF = bolEOF End Property Public Sub TF_Reset() 'Datei zum Lesen öffnen intChannel = FreeFile Open strFileName For Input As #intChannel intStatus = 1 End Sub Public Sub TF_Close() Close intChannel intChannel = 0 bolFileOpen = False intStatus = 0 strFileName = "" End Sub Public Property Get TF_EOF() As Boolean 'READ ONLY bolEOF = EOF(intChannel) 'Interne Speicher Variable TF_EOF = bolEOF End Property Public Property Get TF_Read() As String 'Aus Datei Lesen If (bolFileOpen = True) And (intStatus = 1) Then If TF_EOF = False Then Line Input #intChannel, TF_Read '<<< Daran liegts nicht !!!!! End If Else MsgBox "FEHLER: NOCH KEINE DATEI MIT ASSIGN VORBEIREITET!", vbCritical, "clsTEXTFILE.TF_READ" End End If End Property '*********************************************************************************************** AUFRUF IM MODUL '***********************************************************************************************Option Explicit Private text as String Private Datei as New clsTextfile 'die Klasse für Text I/O Public Sub Test Datei.TF_Assign "Bearbeiten1.sort" Datei.TF_Reset Msgbox Datei.TF_Read Datei.TF_Close End Sub '*********************************************************************************************** '*********************************************************************************************** Ich habe schon alles mit dem Debugger angeschaut und an allem rumgepopelt. TF_EOF durch EOF(intchannel) ersetzt, Statt "Line Input #intchannel, TF_Read" "Line Input #intChannel, zeichenkette" 'zeichenkette as String, danach Msgbox zum Anzeigen In allen Fällen bekam ich die Datei bis zum Punkt TF_EOF = True gelesen (keine Fehlermeldung). Und immer nur als ein kompletter String. So, genug meiner Worte. Bentley Spiegelschatten.

Line Input	48	B. Spiegelschat...	08.01.02 14:59
Anmerkung	30	B. Spiegelschat...	08.01.02 15:00
Und troztdem...	234	Dieter	08.01.02 15:05
Hier ist der Code:	32	B. Spiegelschat...	08.01.02 15:23
Re: Hier ist der Code:	208	Dieter	08.01.02 15:36
Ich versuchs mal ohne Klasse	30	B. Spiegelschat...	08.01.02 15:44
Hier der Inhalt der Datei:	22	B. Spiegelschat...	08.01.02 15:39
Wieso sieht der Code jetzt so unübersichtlich aus? (o.T.)	29	B. Spiegelschat...	08.01.02 15:24
Des Rätsels Lösung:	25	B. Spiegelschat...	08.01.02 16:46

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen