Ich hoffe, dass jemand mein Problem schneller programmieren kann. Mein Problem:
Quelldatei sieht derzeit so aus:
abcdCRLF
efCRLF
ghijklmCRLF
usw.
Ziel ist die Darstellung ohne Zeilenumbrüche (CRLF), aber mit fester Breite, also mit z.B. 10er Breite:
abcd ef ghijklm usw.
Vielen Dank im voraus
Dirk
Ich hab's schon mal Folgendes programmiert. Das Ganze funktioniert auch
korrekt, ist aber leider zu langsam. Ich brauch auf unserem Terminalserver
für eine 500kB-Datei leider 90 Sekunden. Produktiv müssen aber Dateien von
30MB und mehr abgearbeitet werden.
Private Sub CommandButton1_Click()
Dim quelle As String
Dim ziel As String, Ordner As String, datei As String
Dim i As Integer
Dim q, qs, z, zs
Dim answer
Dim zeile As String, element As String*128
Dim ForReading As Integer
Dim lastBackslash As Long
Dim bool As Boolean
ForReading = 1
Set qs = CreateObject("Scripting.FileSystemObject")
Set zs = CreateObject("Scripting.FileSystemObject")
... Eingabeschnittstelle zur Benennung der Quell- und Zieldatei ...
Set q = qs.opentextfile(quelle, ForReading, False, 0)
While q.atendofstream <> True
element = q.readline
zeile = zeile & element
Wend
q.Close
Set z = zs.CreateTextFile(ziel, True)
z.WriteLine (zeile)
z.Close
If zs.fileexists(ziel) Then
MsgBox "Datei '" & ziel & "' wurde erstellt!", vbOKOnly + vbInformation
Else
MsgBox "Fehler: Datei '" & ziel & "' konnte nicht erstellt werden!", vbOKOnly + vbExclamation
End If
End Sub