Office: Strings in Textdatei an bestimmter Stelle einfügen

Chris2610 · 21. Januar 2008

Guten Morgen,

ich stehe hier seit einiger Zeit vor einem mittelschweren Problem:
Und zwar habe ich hier eine Textdatei. In dieser Datei stehen Informationen, in jeweils 3 Zeilen, die folgendermaßen aufgebaut sind:

1. Zeile: Kommentar
2. Zeile: Datum;Uhrzeit;TelNr
3. Zeile: Datum;(Uhrzeit+30min.;0000

Im Klartext würde die Datei so aussehen:
# Name
22.01.2008;9:00;01*********
22.01.2008;9:30;0000

# Name
25.01.2008;9:00;01*********
25.01.2008;9:30;0000

Nun ist es so, dass man in dieses Datei neue Strings einfügen kann, die genau so aufgebaut werden. Das Problem an dieser Sache ist, dass die neuen 3er Blöcke chronologisch eingefügt werden müssen, d.h. wenn hier jemand einen DS einfügt, der als Datum den 23.01. müsste dieser zwischen den beiden bestehenden Blöcken eingefügt werden.

Leider bekomme ich das absolut nicht hin. Habe mir überlegt, nach der Stelle zu suchen (keine Ahnung wie), den Rest der Datei zwischenzuspeichern (habe gelesen, dass man nicht so einfach etwas mitten in eine Datei einfügen kann), den neuen 3er Block einfügen, und anschließend das Zwischengespeicherte.

Nur leider habe ich keinen Schimmer dies Code-technisch umzusetzen. Deshalb wäre ich für Beispiele/Anregungen/Verbesserungen sehr dankbar....

:)

Styrkar · 22. Januar 2008

Hi,

ich hab hier mal ein Beispiel für dich:

Code:

Sub InDateiEinfügen()
Dim fso As Object
Dim ts As Object
Dim DateiText As String
Dim FileName As String
Dim DateiZeilen
Dim count As Long
Dim gefunden As Boolean
Dim vDatum As Date
Dim einfügenBei As Long
Dim arTMP
Dim Kommentar As String
Dim Datum As Date
Dim Nummer As String

'Daten zum eintragen
Datum = DateSerial(2008, 2, 23) + TimeSerial(8, 15, 0)
Kommentar = "Name"
Nummer = "555-5656"
'Dateiname+Pfad
FileName = "C:\Test.txt"

Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fspenTextFile(FileName, 1)
DateiText = ts.ReadAll
DateiZeilen = Split(DateiText, vbCrLf)
count = 0
gefunden = False
einfügenBei = UBound(DateiZeilen) + 1
Do 'Schleife zum suchen der Position im file
If Left(DateiZeilen(count), 1) = "#" Then
arTMP = Split(DateiZeilen(count + 1), ";")
vDatum = CDate(arTMP(0)) + CDate(arTMP(1))
If vDatum >= Datum Then 'Datum gefunden
gefunden = True 'suche abbrechen
einfügenBei = count 'Stelle merken
End If
End If
count = count + 1
Loop While Not gefunden And count
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Chris2610 · 22. Januar 2008

Hallo Styrkar,

wow, vielen Dank. Ich werde das schnellstens ausprobieren, und dann Rückmeldung geben.

Schöne Grüße

Chris2610 · 22. Januar 2008

Hallo Styrkar, ich bins wieder.

Also erstmal super vielen Dank. Das klappt einwandfrei.

Nur leider habe ich ein kleines Problem:
Die Datei in die ich schreibe hat vor den ganzen "3er Blöcken" noch mehrere Kommentarzeilen stehen, z.B. so:

# Hallo, dies ist die Steuerdatei
# lalala
# lalala
# lalala
# lalala

# Rueckfragen an....

# Syntax:
# Datum
# Semikolon
# Uhrzeit
# Semikolon
# Zielnummer

# Name
22.01.2008;9:00;01*********
22.01.2008;9:30;0000

# Name
25.01.2008;9:00;01*********
25.01.2008;9:30;0000

Wenn ich so eine Datei verarbeite, sagt er mir an einer Stelle "Typen unverträglich". Gibt es da eine Möglichkeit, das schnell "auszuschalten"??

Styrkar · 22. Januar 2008

Versuchs mal so:

Code:

Sub InDateiEinfügen()
Dim fso As Object
Dim ts As Object
Dim DateiText As String
Dim FileName As String
Dim DateiZeilen
Dim count As Long
Dim gefunden As Boolean
Dim vDatum As Date
Dim einfügenBei As Long
Dim arTMP
Dim Kommentar As String
Dim Datum As Date
Dim Nummer As String

'Daten zum eintragen
Datum = DateSerial(2008, 2, 23) + TimeSerial(8, 15, 0)
Kommentar = "Name"
Nummer = "555-5656"
'Dateiname+Pfad
FileName = "C:\Test.txt"

Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fspenTextFile(FileName, 1)
DateiText = ts.ReadAll
DateiZeilen = Split(DateiText, vbCrLf)
count = 0
gefunden = False
einfügenBei = UBound(DateiZeilen) + 1
Do 'Schleife zum suchen der Position im file
If Left(DateiZeilen(count), 1) = "#" Then
arTMP = Split(DateiZeilen(count + 1), ";")
If UBound(arTMP) > -1 Then
If IsDate(arTMP(0)) Then
vDatum = CDate(arTMP(0)) + CDate(arTMP(1))
If vDatum >= Datum Then 'Datum gefunden
gefunden = True 'suche abbrechen
einfügenBei = count 'Stelle merken
End If
End If
End If
End If
count = count + 1
Loop While Not gefunden And count
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Chris2610 · 22. Januar 2008

Super!
Nun klappt auch das (auf den ersten Blick zumindest, werde noch ausgiebig testen). Echt klasse!

Vielen Dank für die Hilfe!

Office: Strings in Textdatei an bestimmter Stelle einfügen

Strings in Textdatei an bestimmter Stelle einfügen

Strings in Textdatei an bestimmter Stelle einfügen

Strings in Textdatei an bestimmter Stelle einfügen

Strings in Textdatei an bestimmter Stelle einfügen - Similar Threads - Strings Textdatei bestimmter

Teile aus einem qrcode string auslesen

VBA Auslesen von Strings und erstellen neuer Zeilen in einer Tabelle

mit String aus Formular Übereinstimmung in Abfrage prüfen

Leerzeichen abschließend im String

If-Then-Else...Verständnisfrage zu Kriterium String > Zahl

Erlaubte Zeichen an bestimmten Stellen von Strings

Mitarbeiterauslastung: Suchen nach String und addieren aller zugehörigen Zahlenwerte