Nicht ASCII-Datei splitten ?
28.03.2006 19:38:22
Joachim
ich muss eine Datei (nicht ASCII !) in kleinere Teile zerlegen.
Irgendwie komme ich da nicht weiter. Nachfolgend mein erster Versuch, die Datei von A nach B zu kopieren (noch ohne Splitting); dies funktioniert, da der Buffer aber nur Byte-Größe hat, dauert das bei größeren Dateien ewig.
Wie kann ich das am elegantesten lösen?
Leider gibt es nur wenige Tipps zu BINARY!
ThanX vorab !
Sub DateiSplit()
FileToOpen = Application.GetOpenFilename("Text Files (*.*), *.*")
If FileToOpen False Then
SourceFileName = Dir(FileToOpen)
SourceFileNameoExt = Left(SourceFileName, InStr(SourceFileName, ".") - 1)
SourceFileDir = Left(FileToOpen, Len(FileToOpen) - Len(Dir(FileToOpen)))
FileToSave = SourceFileDir & "Split_" & SourceFileName
OpenFileNr = FreeFile
Open FileToOpen For Binary Access Read As #OpenFileNr
SaveFileNr = FreeFile
Open FileToSave For Binary Access Write As #SaveFileNr
For ActPos = 1 To FileLen(FileToOpen)
Get #OpenFileNr, , Buffer
Put #SaveFileNr, ActPos, Buffer
Next ActPos
Close #SaveFileNr
Close #OpenFileNr
End If