Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA Zeile kürzen in Text Datei

Forumthread: VBA Zeile kürzen in Text Datei

VBA Zeile kürzen in Text Datei
11.03.2004 09:19:30
Bongartz
Hallo
Über Excel versende ich Textdateien mit konstanter Zeilenlänge.
Zur kontrolle kann ich die Textdaten per VBA in Excel importieren.
In manchen fällen möchte ich die Zeilenlänge von 178 Zeichen einer Textdatei auf 174 Zeichen kürzen.
Ich weiß zwar wie ich die Textdatei öffnen kann.
Hat jemand eine Idee wie ich die Zeilen kürzen kann.
str20 = C:\Beispiel.txt
Open str20 For Input As #1
Do While Not EOF(1)
Line Input #1, ein$
??????
Loop
Close #1
Gruß
Bongartz
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Zeile kürzen in Text Datei
12.03.2004 01:59:19
Hans W. Herber
Hallo,
wie folgt:

Sub Kuerzen()
Dim lRow As Long
Dim str20 As String, sTxt As String
Dim arr() As String
str20 = "C:\temp\test.txt"
Close
Open str20 For Input As #1
Do Until EOF(1)
Line Input #1, sTxt
lRow = lRow + 1
ReDim Preserve arr(1 To lRow)
arr(lRow) = Left(sTxt, 174)
Loop
Close
Open str20 For Output As #1
For lRow = 1 To UBound(arr)
Print #1, arr(lRow)
Next lRow
End Sub

gruss hans
Anzeige
AW: VBA Zeile kürzen in Text Datei
12.03.2004 10:41:29
Bongartz
Hallo Hans
Vielen Dank für Deine Hilfe. Am Ende des Codes fehlte noch ein Close. Denn sonst wird die letzte Zeile um die hälfte abgeschnitten.
Gruß
Bongartz

Sub Kuerzen()
Dim lRow As Long
Dim str20 As String, sTxt As String
Dim arr() As String
str20 = "C:\temp\test.txt"
Close
Open str20 For Input As #1
Do Until EOF(1)
Line Input #1, sTxt
lRow = lRow + 1
ReDim Preserve arr(1 To lRow)
arr(lRow) = Left(sTxt, 174)
Loop
Close
Open str20 For Output As #1
For lRow = 1 To UBound(arr)
Print #1, arr(lRow)
Next lRow
Close
End Sub

Anzeige
AW: VBA Zeile kürzen in Text Datei
12.03.2004 10:43:32
Hans W. Herber
... wo Du recht hast, hast Du recht. In VBA müssen Textdateien explizit geschlossen werden.
Gruss hans
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige