[Text] aus String extrahieren

{Boris} · 2007-09-29T12:47:30+00:00

Hi Leute, ich möchte per VBA aus einem String die Textteile in [eckigen Klammern] extrahieren. Beispielstring: "Don't [Ab]claim that love you [Eb]never let me [Bbm]feel" Daraus benötige ich ein Array, das aus den Elementen [Ab], [Eb] und [Bbm] besteht. Das Ziel ist es, die einzelnen Elemente zu verändern (in einem neuen Array) und an exakt die selbe Stelle im String zurück zu schreiben (das bekomme ich dann selbst hin - mit Replace String, "altes Element", "neues Element"). Gibt es eine Möglichkeit, das zu bewerkstelligen, ohne in einer Schleife jedes einzelne Zeichen zu durchlaufen und mit InStr, Mid und Konsorten zu arbeiten? Wie stelle ich das am Besten an? Grüße Boris

Hi
mit ein paar Tricks kannst du den Text in über die SPLIT-Funktion in ein passendes Array-Feld zerlegen.
(das Verwendete Trennzeichen (hier "+") sollte im Text ansonsten nicht vorkommen)
dann brauchst du noch ne 2. Array-Variable, in die du alle Werte einliest, die mit [ beginnen:


Sub test()
Dim a As String, msgText As String
Dim b() As String
Dim c() As String
Dim i As Long, j As Long
a = "Don't [Ab]claim that love you [Eb]never let me [Bbm]feel"
a = Replace(a, "[", "+[")
a = Replace(a, "]", "]+")
b = Split(a, "+")
For i = 0 To UBound(b)
If Left(b(i), 1) = "[" Then
ReDim Preserve c(j)
c(j) = b(i)
j = j + 1
End If
Next
For i = 0 To UBound(c)
msgText = msgText & Chr(10) & c(i)
Next
MsgBox "die Array-Variable C enthält folgende Elemente:" & msgText
End Sub

Gruß, Daniel

Hi Boris,
ich hatte unterstellt, dass Du sofort in den Gesamtstring zurückschreiben möchtest.
Lasse das Makro über ein leeres Sheet laufen.
(Ausgaben von innen nach außen, die Replace-


Function u. die weiteren Argumente der Splitfunktion habe ich weggelassen.)


Sub test2()
Dim strText As String
strText = "Don't [Ab]claim that love you [Eb]never let me [Bbm]feel"
Cells(1, 1) = "Split(strText," & """[""" & ")(0)"
Cells(1, 3) = Split(strText, "[")(0)
Cells(2, 1) = "Split(strText," & """[""" & ")(1)"
Cells(2, 3) = Split(strText, "[")(1)
Cells(3, 1) = "Split(strText," & """[""" & ")(2)"
Cells(3, 3) = Split(strText, "[")(2)
Cells(4, 1) = "Split(strText," & """[""" & ")(3)"
Cells(4, 3) = Split(strText, "[")(3)
Cells(6, 1) = "Split(Split(strText," & """[""" & ")(0)," & """]""" & " )(0)"
Cells(6, 4) = Split(Split(strText, "[")(0), "]")(0)
Cells(7, 1) = "Split(Split(strText," & """[""" & ")(1)," & """]""" & " )(0)"
Cells(7, 4) = Split(Split(strText, "[")(1), "]")(0)
Cells(8, 1) = "Split(Split(strText," & """[""" & ")(2)," & """]""" & " )(0)"
Cells(8, 4) = Split(Split(strText, "[")(2), "]")(0)
Cells(9, 1) = "Split(Split(strText," & """[""" & ")(3)," & """]""" & " )(0)"
Cells(9, 4) = Split(Split(strText, "[")(3), "]")(0)
End Sub


Gruß Gerd

Forumthread: [Text] aus String extrahieren

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

[Text] aus String extrahieren

Forumthread: [Text] aus String extrahieren

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread