vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Top-Preis! AP-Access-Tools-CD Volume 1  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fortgeschrittene Programmierung
Re: Datei verkleinern? 
Autor: michi-bib
Datum: 07.08.02 09:21
Hallo Thomas,

warum sollte das nicht gehen ?
Hier ein Beispiel:

Private Sub cmdStart_Click()
Dim s As String
Dim ff As Integer
Dim laenge As Long
Dim links As String
Dim rechts As String

ff = FreeFile

Open App.Path + "test.txt" For Binary As #ff
laenge = LOF(ff)
s = Space(laenge)
Get #ff, , s
links = Left(s, CLng(laenge / 2))
rechts = Mid(s, CLng(laenge / 2) + 1)
s = links + "abc" + rechts
Put #ff, 1, s
Close #ff
End Sub

Verkürzen analog.

Gruß Michi aus Hannover
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Datei verkleinern?36Thomas Krause06.08.02 16:40
Re: Datei verkleinern?30michi-bib07.08.02 09:21
Re: Datei verkleinern?23Thomas Krause07.08.02 16:59
Re: Datei verkleinern?24michi-bib07.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übersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel