Mit regexp text aus Html extrahieren.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Ransi,
leider nein, es wird die Zahl 0 angezeigt wenn ich .Count prüfe.
Mit dem nachfolgenden Code habe ich die Zwischenablage in die Variable T geschrieben und die dann an deine Funktion übergeben. Bei Msgbox T sehe ich daß T gefüllt ist.
In der Zwischenablage ist der Quellcode von hier :
http://www.wer-weiss-was.de/app/board/threads/113
Gruß
Reinhard Sub tt() 'Verweis auf Forms 2.0 setzen! Dim MyData As New DataObject, T As String MyData.GetFromClipboard T = MyData.GetText(1) MsgBox T MsgBox machs(T) MsgBox Len(machs(T)) Range("A1").Value = machs(T) End Sub Public Function machs(zelle) Dim Regex As Object Dim objMatch As Object Dim objSubMatch Dim Ding Set Regex = CreateObject("VbScript.Regexp") With Regex .Pattern = "" .Global = True Set objMatch = .Execute(zelle) MsgBox objMatch.Count If objMatch.Count > 0 Then For Each Ding In objMatch(0).SubMatches MsgBox Ding Next End If End With End Function

HAllo Rheinhard
Das ist aber ganz schön fieselig....
Teste mal:

Option Explicit

Sub tt()
    'Verweis auf Forms 2.0 setzen!
    Dim MyData As New DataObject, T As String
    MyData.GetFromClipboard
    T = MyData.GetText(1)
    MsgBox T
    MsgBox machs(T)
    MsgBox Len(machs(T))
    Range("A1").Value = machs(T)
End Sub

Public Function machs(zelle)
    Dim Regex As Object
    Dim objMatch As Object
    Dim objSubMatch
    Dim Ding
    Dim Treffer
    Dim L As Long
    Dim Z As Integer
    Set Regex = CreateObject("VbScript.Regexp")
    With Regex
        .MultiLine = False
        .Pattern = "<a href=""\/(.+?)"".+?>(.+?)<.+\n.+\((.+?)\)"
        .Global = True
        Set objMatch = .Execute(zelle)
        If objMatch.Count > 0 Then
            Redim out(1 To objMatch.Count, 1 To 100)
            For Each Treffer In objMatch
                L = L + 1
                Z = 1
                out(L, Z) = Treffer.Value
                For Each Ding In Treffer.SubMatches
                    Z = Z + 1
                    out(L, Z) = Ding
                Next
            Next
        End If
    End With
    'Ausgeben
    Range("A1").Resize(objMatch.Count, 100) = out
End Function

ransi

Beliebteste Forumthreads (12 Monate)

Mit regexp text aus Html extrahieren.

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

	A
1	<a href="/app/article/show/6360846"<[Team] Kommentierfunktion Facebook</a<<span class="grey"<(Thomas, 14.3.2011 09:18)</span>
2

Mit regexp text aus Html extrahieren.

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread