@trekkie / Ganzen Satzteil suchen und ersetzen
18.03.2006 03:45:33
Jürgen
Ich habe letzte Woche die nachfolgende etwas abgewandelte Routine von trekkie hier erhalten, die so, wie sie hier steht auch bestens funktioniert.
Private Sub Replacement_Datei() ' Suchen/Ersetzen in Datei
Exit Sub
'In Cells(4,3)steht Anfangswort // in Cells(4,4)steht Endwort
Dim fso As Object, re As Object, s, var$
Dim sSource As String, sTarget As String, sPath As String
Set fso = CreateObject("scripting.filesystemobject")
Worksheets("Satz_in_Datei_ersetzen").Activate
sPath = ThisWorkbook.Path & "\"
sSource = sPath & Range("A8").Value 'alter Dateiname
sTarget = sPath & Range("A10").Value 'neuer Dateiname
s = fso.GetFile(sSource).OpenAsTextStream.ReadAll
Set re = CreateObject("vbscript.regexp")
re.MultiLine = 1: re.Global = 1
re.Pattern = "(.*?<latitude>).*?(</latitude>.*?)"
'Die Begriffe "<latitude>" und "</latitude>" 'möchte
'ich durch Variable (Anfangswort und Endwort) ersetzen
var = Range("C6").Value
Open sTarget For Output As #1
Print #1, re.Replace(s, "$1" & var & "$2")
Close #1
Set re = Nothing: Set fso = Nothing
End Sub
Wie schon in den Zeilen kommentiert, möchte die hier fest eigebundenen Befehle/Begrife/Worte durch Variable ersetzen.
Meine diesbezüglichen Experimente haben nicht zum Erfolg geführt.
Gruss
Jürgen