Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Datei verkleinern?
Autor: michi-bib
Datum: 07.08.02 20:06
Hallo nochmal, ich hatte jetzt gedacht, es ginge in der Hauptsache um den Fall des Einfügens, der angeblich nicht funzen sollte. Für Verkürzen dann halt die harte Tour. Hier nur Prinzip, ohne Fehlerhandling (sicherheitshalber mit Umbennen, damit im Fehlerfall Originaldatei noch da ist): Private Sub Command1_Click() Dim s As String Dim ff As Integer Dim laenge As Long Dim links As String ff = FreeFile Open App.Path + " est.txt" For Binary As #ff laenge = LOF(ff) s = Space(laenge) Get #ff, , s links = Left(s, laenge - 3) Close #ff ff = FreeFile Open App.Path + " est1.txt" For Binary As #ff Put #ff, 1, links Close #ff Kill App.Path + " est.txt" Name App.Path + " est1.txt" As App.Path + " est.txt" End Sub Gruß Michi nochmal aus Hannover

Datei verkleinern?	36	Thomas Krause	06.08.02 16:40
Re: Datei verkleinern?	29	michi-bib	07.08.02 09:21
Re: Datei verkleinern?	23	Thomas Krause	07.08.02 16:59
Re: Datei verkleinern?	24	michi-bib	07.08.02 20:06

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