Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
752to756
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
752to756
752to756
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

.txt dateien bearbeiten

.txt dateien bearbeiten
04.04.2006 12:18:50
Mattsatz
Hallo,
mein ziel ist es, über eine Funktionstaste aus einer .txt Datei
immer die oberste zeile zu löschen und die neu nachrückende in
die zwischenablage zu kopieren.
So kann z.b. ein Liste mit Auftragsnummern gespeichert werden, welche
geändert werden müssen:
51103352
51103463
51103935
51104114
51105521
und mit jeder abarbeitung sich die bearbeitete um eine zeile verringert.
es kann natürlich auch die letzt zeile sein die gelöscht wird und worauf
zugegriffen wird.
mir geht es haupsächlich um die zu bearbeitende datei, welche z.b.
datenliste.txt heisst und immer verändert wird.
das andere würde ich dann mit macro express lösen.
vielen dank für alles brauchbare.
Matthias

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: .txt dateien bearbeiten
04.04.2006 14:37:09
Heiko
Hallo Matthias,
z.B. so:

Sub TextDatA()
Dim strPfad As String, strhelp As String
Dim arrInput() As String, arrOutput() As String
Dim lngPos As Long
Dim objData As DataObject
' Pfad und DateiNamen anpassen !!!
strPfad = "C:\Copy\AFN.txt"
Open strPfad For Binary As #1
strhelp = Space(LOF(1))
Get #1, , strhelp
arrInput = Split(strhelp, vbCrLf)
Close #1
' Unter Extras, Verweise muss dieser Verweis muß gesetzt werden !!!
' "Microsoft Forms 2.0 Object Library"
Set objData = New DataObject
On Error Resume Next
objData.SetText arrInput(0)
If Err.Number <> 0 Then
MsgBox "In der Datei sind keine Daten mehr vorhanden !", vbCritical
Set objData = Nothing
Else
objData.PutInClipboard
Set objData = Nothing
For lngPos = 1 To UBound(arrInput)
ReDim Preserve arrOutput(lngPos - 1)
arrOutput(lngPos - 1) = arrInput(lngPos)
Next lngPos
Kill (strPfad)
Open strPfad For Binary As #1
Put #1, , Join(arrOutput, vbCrLf)
Close #1
End If
End Sub

Gruß Heiko
PS: Rückmeldung wäre nett !
Anzeige

37 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige