Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
05.09.2020 19:49:02 |
Marcel Gärtner |
|
|
|
05.09.2020 20:16:00 |
X-Post |
|
|
für ein Datenpaar |
05.09.2020 21:21:43 |
Gast59106 |
|
|
|
05.09.2020 21:30:13 |
Mase |
|
|
|
06.09.2020 10:54:46 |
Marcel Gärtner |
|
|
|
06.09.2020 11:48:48 |
Marcel Gärtner |
|
|
|
06.09.2020 12:21:11 |
Gast74419 |
|
|
|
10.09.2020 12:08:58 |
Marcel Gärtner |
|
|
|
10.09.2020 19:44:57 |
Gast74419 |
|
|
|
10.09.2020 19:51:28 |
Marcel Gärtner |
|
|
|
10.09.2020 20:05:28 |
Gast31171 |
|
|
|
10.09.2020 20:19:27 |
für ein Datenpaar |
|
|
|
10.09.2020 20:25:28 |
Mase, bist du das?xD |
|
|
|
10.09.2020 20:26:39 |
Mase |
|
|
|
10.09.2020 20:28:36 |
:o) |
|
|
|
10.09.2020 20:33:55 |
Mase |
|
|
|
10.09.2020 21:31:07 |
Marcel Gärtner |
|
|
|
10.09.2020 22:56:24 |
Gast81822 |
|
|
|
11.09.2020 15:26:58 |
Gast63092 |
|
|
|
11.09.2020 15:59:29 |
für ein Datenpaar ? |
|
|
|
11.09.2020 19:19:17 |
Gast81711 |
|
|
|
13.09.2020 03:37:52 |
Gast254 |
|
|
Von:
Gast59106 |
Datum:
05.09.2020 21:21:43 |
Views:
1002 |
Rating:
|
Antwort:
|
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
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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 |
|
|
|
05.09.2020 20:16:00 |
X-Post |
|
|
für ein Datenpaar |
05.09.2020 21:21:43 |
Gast59106 |
|
|
|
05.09.2020 21:30:13 |
Mase |
|
|
|
06.09.2020 10:54:46 |
Marcel Gärtner |
|
|
|
06.09.2020 11:48:48 |
Marcel Gärtner |
|
|
|
06.09.2020 12:21:11 |
Gast74419 |
|
|
|
10.09.2020 12:08:58 |
Marcel Gärtner |
|
|
|
10.09.2020 19:44:57 |
Gast74419 |
|
|
|
10.09.2020 19:51:28 |
Marcel Gärtner |
|
|
|
10.09.2020 20:05:28 |
Gast31171 |
|
|
|
10.09.2020 20:19:27 |
für ein Datenpaar |
|
|
|
10.09.2020 20:25:28 |
Mase, bist du das?xD |
|
|
|
10.09.2020 20:26:39 |
Mase |
|
|
|
10.09.2020 20:28:36 |
:o) |
|
|
|
10.09.2020 20:33:55 |
Mase |
|
|
|
10.09.2020 21:31:07 |
Marcel Gärtner |
|
|
|
10.09.2020 22:56:24 |
Gast81822 |
|
|
|
11.09.2020 15:26:58 |
Gast63092 |
|
|
|
11.09.2020 15:59:29 |
für ein Datenpaar ? |
|
|
|
11.09.2020 19:19:17 |
Gast81711 |
|
|
|
13.09.2020 03:37:52 |
Gast254 |
|
|