Textfile im Editor bearbeiten

Forumthread: Textfile im Editor bearbeiten
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Textfile im Editor bearbeiten

DirkR

Hi,
ich hab nochmal eine Frage zum Thema Textfiles, vielleicht hat da einer von euch eine Idee:
Mit folgendem Code öffne ich eine Textdatei im Editor:

Sub StarteEditorMitDatei()
Const EDITOR = "C:\Windows\notepad.exe"
Const DATEI = "C:\Temp\Mappe3.txt"
With CreateObject("Wscript.Shell")
.Run """" & EDITOR & """ """ & DATEI & """", 5
End With
End Sub

Mit dem Bereich von VBA kenne ich mich leider überhaupt nicht aus. Ich würde den Code aber gerne dahingehend erweitern, dass in den Textfile im Editor noch der Befehl Edit/Replace ausgefühlt wird und
danach das File gespeichert und geschlossen wird.
Kann mir da jemand von euch vielleicht helfen?
Vielen Dank im voraus
Dirk

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Textfile im Editor bearbeiten

Tino
AW: Textfile im Editor bearbeiten

DirkR

AW: Textfile im Editor bearbeiten

25.06.2010 17:43:16

Tino

Hallo,
mach doch die bearbeitung in einem String.
z.Bsp. so

Dim sInhalt$, F%
Const strDATEI = "C:\Temp\Mappe3.txt"
'Datei auslesen
F = FreeFile
Open strDATEI For Binary As #F
sInhalt = Space$(LOF(F))
Get #F, , sInhalt
Close
'hier Text im String bearbeiten
'Beispiel, ersetze > durch ", "

Gruß Tino

AW: Textfile im Editor bearbeiten

25.06.2010 18:02:49

DirkR

super, dass ist genau das was ich brauche!
hat wunderbar funktioniert.
Vielen Dank!