Ganzen Satzteil suchen und ersetzen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub blubb() Dim re As Object, s Set re = CreateObject("vbscript.regexp") s = "Start laberbaber, rumsülz Ende" re.Pattern = "(Start).*?(Ende)" Debug.Print re.Replace(s, "$1" & " wasandres " & "$2") End Sub

Hallo Leute,
ich war ja überwältigt von den schnellen Reaktionen.
Ich konnte es bislang noch nicht testen, da ich auch mit den hier aufgeführten Links beschäftigt war.
Um aber auch gestellte Fragen nach einem Beispiel zu beantworten habe ich mal eine Datei unter https://www.herber.de/bbs/user/31823.xls bereitgestellt.
Im Original hat der Server sie nicht angenommen. Daher habe ich einen Auszug der Datei in eine Excel-Tabelle kopiert. Real ist die Datei etwa 25000 Zeilen lang.
Dabei soll hier z. B. in der Zeile 70 der Wert zwischen range variable Grössen /range gegen einen anderen Wert ersetzt werden. Denkbar sind aber auch andere ähnliche Fälle.
Anzumerken ist hierbei noch, dass diese Zeile in der Originaldatei etwa 2000 mal vorkommt, weshalb eine Automatisierung hier auch sinnvoll erscheint.
Ich danke euch allen für die Lösungen und denke, dass sie mich auch weiterbringen werden.
Gruß
Jürgen

Sub test() Dim fso As Object, re As Object, s, var$ Set fso = CreateObject("scripting.filesystemobject") s = fso.GetFile("d:\test.txt").OpenAsTextStream.ReadAll Set re = CreateObject("vbscript.regexp") re.MultiLine = 1: re.Global = 1 re.Pattern = "(.*?<\brange\b>).*?(</\brange\b>.*?)" var = "deine Variable" Open "d:\test1.xml" For Output As #1 Print #1, re.Replace(s, "$1" & var & "$2") Close #1 Set re = Nothing: Set fso = Nothing End Sub

Hallo
Damit sollte es gehen
Option Explicit

Sub Special_Replacement()
    Dim startWord As String, endWord As String
    Dim repPart As String
    Dim myC As Range
    Dim wdStart As Long, wdEnd As Long
    Dim tmpLeft As String, tmpRight As String
    'Womit beginnt der Bereich der zu ersetzen ist
    startWord = "Apfel"
    'Womit endet der Bereich der zu ersetzen ist
    endWord = "Apfelmus"
    'Womit soll der Bereich ersetzt werden
    repPart = "Orangen macht man Orangensaft"
    For Each myC In ActiveSheet.UsedRange
        If InStr(1, myC.Value, startWord) > 1 And InStr(1, myC.Value, endWord) > 1 Then
            wdStart = InStr(1, myC.Value, startWord)
            wdEnd = InStr(1, myC.Value, endWord) + Len(endWord)
            tmpLeft = Left(myC.Value, wdStart - 1)
            tmpRight = Right(myC.Value, Len(myC.Value) - wdEnd)
            myC.Value = tmpLeft & " " & repPart & " " & tmpRight
        End If
    Next
End Sub

hier die Beispieltabelle
https://www.herber.de/bbs/user/31820.xls
Gruss Rainer

Beliebteste Forumthreads (12 Monate)

Ganzen Satzteil suchen und ersetzen

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

315 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Ganzen Satzteil suchen und ersetzen

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

315 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread