textzeilen in txt datei ergänzen

hallo,
ich habe folgendes problem:
ich habe txt dateien die vor dem import in excel noch modifiziert werden müssen. in "" gekennzeichnete positionen müssen ergänzt werden. Im untenstehenden makro habe ich mal begonnen und es nicht geschafft.
Datei mit den gwünschen positionen:
https://www.herber.de/bbs/user/49845.txt
txt-Datei unbearbeitet:
https://www.herber.de/bbs/user/49844.txt
für eure hilfe bin ich sehr dankbar.
gruss christian
Mein makro:


Sub MergeFiles(SourceFolder As String, OutputFile As String)
'Zusammenfügen nummerierter .txt Dateien in aufsteigender Richtung
Dim i As Integer
Dim Textzeile As String
Dim Dateiname As String
Dim numOut As Integer
Dim numIN As Integer
Dim strNum As String, n As Integer
numOut = FreeFile
Open SourceFolder & OutputFile For Output As #numOut
Dateiname = Dir(SourceFolder & "*.txt")
Do While Not Dateiname = ""
If Dateiname  OutputFile Then
n = 0
numIN = FreeFile
strNum = InputBox("Aktuelle Datei: " & Dateiname & Chr(13) & Chr(10) & "Bitte Anzahl  _
Sporen oder DNA-Konzentration erfassen:", "Zusatz", "")
Open SourceFolder & Dateiname For Input As #numIN 'Öffne gefundene Datei
Do While Not EOF(numIN) 'Schleife bis Dateiende.
Line Input #numIN, Textzeile 'Zeile in Variable einlesen.
n = n + 1
If InStr(1, Textzeile, "#") > 0 Then      'Textzeile "Sonde" einfügen
Textzeile = "Sonde" & Textzeile
Else
Textzeile = "    " & Textzeile
End If
If InStr(1, Textzeile, "Back") > 0 Then      'Textzeile "Konzentration" einfügen
Textzeile = "Konzentration" & Textzeile
Else
Textzeile = "    " & Textzeile
End If
If n = 2 Then  'einfügen in Zeile 2         ' Box erfassen
Textzeile = Textzeile & Chr(32) & strNum
End If
Print #numOut, Textzeile 'Ausgabe in Datei.
Loop
Close #numIN
End If
Dateiname = Dir
Loop
Close #numOut
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Christian,
das Textfile, das du hier als 46845.txt hochgeladen hast, entspricht sicher nicht dem gewünschten Ergebnis.
Wie hast du das erstellt?
Das File ist kein "einfaches" Textfile, sondern Unicode-(UTF-)codiert.
Es enthält viele Tabulatorzeichen (chr(9)).
Eingefügte Texte stehen in Gänsefüßchen.
Das Ergebnis strNum aus der InputBox fehlt. Wo soll es stehen?
Das alles soll sicher nicht so sein.
Eine Frage:
Im Code suchst du nach "#" und nach "Back". Im Beipiel stehen die in der selben Zeile.
Ist das immer so? Dann würde sich die getrennte Abfrage wohl erübrigen.
Wenn du mit InStr(1, Textzeile, "Back") suchst, wird "BACK" nicht gefunden.
Da müsste
InStr(1, Textzeile, "BACK")
oder
InStr(1, Textzeile, "Back", 1)
oder
InStr(1, Textzeile, "Back", vbTextCompare)
stehen. (Schau mal in die VBA-Hilfe zu InStr.)
Lädst du bitte dein (wirklich) gewünschtes Ergebnis hoch?
(Am besten bearbeitest du dafür die Quelldatei mit dem Texteditor.)
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Sub MergeFiles(SourceFolder As String, OutputFile As String) 'Zusammenfügen nummerierter .txt Dateien in aufsteigender Richtung Dim i As Integer Dim Textzeile As String Dim Dateiname As String Dim numOut As Long Dim numIN As Long Dim strNum As String, n As Long numOut = FreeFile Open SourceFolder & OutputFile For Output As #numOut Dateiname = Dir(SourceFolder & "4*.txt") Do While Not Dateiname = "" If Dateiname OutputFile Then n = 0 numIN = FreeFile strNum = InputBox("Aktuelle Datei: " & Dateiname & Chr(13) & Chr(10) _ & "Bitte Anzahl Sporen oder DNA-Konzentration erfassen:", "Zusatz", "") Open SourceFolder & Dateiname For Input As #numIN 'Öffne gefundene Datei Do While Not EOF(numIN) 'Schleife bis Dateiende. Line Input #numIN, Textzeile 'Zeile in Variable einlesen. n = n + 1 If n = 2 Then 'einfügen in Zeile 2 ' Box erfassen Textzeile = "Konzentration " & strNum ElseIf InStr(1, Textzeile, "#") > 0 Then 'Textzeile "Sonde" einfügen Textzeile = "Name " & Textzeile Else Textzeile = " " & Textzeile End If Print #numOut, Textzeile 'Ausgabe in Datei. Loop Close #numIN End If Dateiname = Dir Loop Close #numOut End Sub

Sub MergeFiles(SourceFolder As String, OutputFile As String) 'Zusammenfügen nummerierter .txt Dateien in aufsteigender Richtung Dim i As Integer Dim Textzeile As String Dim Dateiname As String Dim numOut As Long Dim numIN As Long Dim strNum As String, n As Long numOut = FreeFile Open SourceFolder & OutputFile For Output As #numOut Dateiname = Dir(SourceFolder & "*.txt") Do While Not Dateiname = "" If Dateiname OutputFile Then n = 0 numIN = FreeFile strNum = InputBox("Aktuelle Datei: " & Dateiname & Chr(13) & Chr(10) _ & "Bitte Anzahl Sporen oder DNA-Konzentration erfassen:", "Zusatz", "") Open SourceFolder & Dateiname For Input As #numIN 'Öffne gefundene Datei Do While Not EOF(numIN) 'Schleife bis Dateiende. Line Input #numIN, Textzeile 'Zeile in Variable einlesen. n = n + 1 If n = 1 Then ' in Zeile 1 nichts ändern ElseIf n = 2 Then Textzeile = "Konzentration " & strNum ' in Zeile 2 Boxwert einfügen ElseIf InStr(1, Textzeile, "#") > 0 Then Textzeile = "Name " & Textzeile ' "Name" einfügen Else Textzeile = " " & Textzeile ' Leerzeichen einfügen End If Print #numOut, Textzeile 'Ausgabe in Datei. Loop Close #numIN End If Dateiname = Dir Loop Close #numOut End Sub

Beliebteste Forumthreads (12 Monate)

textzeilen in txt datei ergänzen

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

textzeilen in txt datei ergänzen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread