Thema Datum  Von Nutzer Rating
Antwort
05.09.2020 19:49:02 Marcel Gärtner
NotSolved
05.09.2020 20:16:00 X-Post
NotSolved
Rot für ein Datenpaar
 05.09.2020 21:21:43 Gast59106
NotSolved
05.09.2020 21:30:13 Mase
NotSolved
06.09.2020 10:54:46 Marcel Gärtner
NotSolved
06.09.2020 11:48:48 Marcel Gärtner
NotSolved
06.09.2020 12:21:11 Gast74419
NotSolved
10.09.2020 12:08:58 Marcel Gärtner
NotSolved
10.09.2020 19:44:57 Gast74419
NotSolved
10.09.2020 19:51:28 Marcel Gärtner
NotSolved
10.09.2020 20:05:28 Gast31171
NotSolved
10.09.2020 20:19:27 für ein Datenpaar
NotSolved
10.09.2020 20:25:28 Mase, bist du das?xD
NotSolved
10.09.2020 20:26:39 Mase
NotSolved
10.09.2020 20:28:36 :o)
NotSolved
10.09.2020 20:33:55 Mase
NotSolved
10.09.2020 21:31:07 Marcel Gärtner
NotSolved
10.09.2020 22:56:24 Gast81822
NotSolved
11.09.2020 15:26:58 Gast63092
NotSolved
11.09.2020 15:59:29 für ein Datenpaar ?
NotSolved
11.09.2020 19:19:17 Gast81711
NotSolved
13.09.2020 03:37:52 Gast254
NotSolved

Ansicht des Beitrags:
Von:
Gast59106		 Datum:
05.09.2020 21:21:43		 Views:
957		 Rating:
     
Antwort:
  Ja
Thema:
für ein Datenpaar		 
'benötigt Verweis auf "Microsoft VBScript Regular Expressions 5.5"
Option Explicit

Sub BlaBlubb_ich_fixe_was_ich_im_Scraper_verbockt_habe()
  
  Dim RegExp    As VBScript_RegExp_55.RegExp
  Dim Matches   As VBScript_RegExp_55.MatchCollection
  Dim Expr      As String
  
  With New RegExp
    
    .Global = False
    .IgnoreCase = True
    .MultiLine = False
    
    With Worksheets("Tabelle1").Range("A1")
      Expr = .Offset(0, 0).Value & .Offset(1, 0).Value & .Offset(2, 0).Value
    End With
    
    .Pattern = """<img(.*?)>.*?</img>""(,\d+)"
    Set Matches = .Execute(Expr)
    
    Dim Part1 As String
    Dim Part2 As String
    Dim Part3 As String
    
    If Matches.Count > 0 Then
      
      Part1 = Left$(Expr, Matches(0).FirstIndex)
      Part3 = Matches(0).SubMatches(1)
      
      .Pattern = "src=""""(.+?)"""""
      Set Matches = .Execute(Expr)
      
      If Matches.Count > 0 Then
        Part2 = Matches(0).SubMatches(0)
      Else
        Range("A5").Value = ""
        Call MsgBox("Angabe zu Image-Source nicht gefunden.", vbExclamation)
        Exit Sub
      End If
      
      Range("A5").Value = Part1 & Part2 & Part3
      
      Call MsgBox("Fertig.", vbInformation)
      
    Else
      Range("A5").Value = ""
      Call MsgBox("Nix gefunden.", vbExclamation)
    End If
    
  End With
  
End Sub

Das Problem sollte aber im Scraper angepackt werden und nicht im Nachgang. Abgesehen davon könnte man die Nacharbeit auch z.B. in Python erledigen.

 

Grüße

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
05.09.2020 19:49:02 Marcel Gärtner
NotSolved
05.09.2020 20:16:00 X-Post
NotSolved
Rot für ein Datenpaar
 05.09.2020 21:21:43 Gast59106
NotSolved
05.09.2020 21:30:13 Mase
NotSolved
06.09.2020 10:54:46 Marcel Gärtner
NotSolved
06.09.2020 11:48:48 Marcel Gärtner
NotSolved
06.09.2020 12:21:11 Gast74419
NotSolved
10.09.2020 12:08:58 Marcel Gärtner
NotSolved
10.09.2020 19:44:57 Gast74419
NotSolved
10.09.2020 19:51:28 Marcel Gärtner
NotSolved
10.09.2020 20:05:28 Gast31171
NotSolved
10.09.2020 20:19:27 für ein Datenpaar
NotSolved
10.09.2020 20:25:28 Mase, bist du das?xD
NotSolved
10.09.2020 20:26:39 Mase
NotSolved
10.09.2020 20:28:36 :o)
NotSolved
10.09.2020 20:33:55 Mase
NotSolved
10.09.2020 21:31:07 Marcel Gärtner
NotSolved
10.09.2020 22:56:24 Gast81822
NotSolved
11.09.2020 15:26:58 Gast63092
NotSolved
11.09.2020 15:59:29 für ein Datenpaar ?
NotSolved
11.09.2020 19:19:17 Gast81711
NotSolved
13.09.2020 03:37:52 Gast254
NotSolved