Thema Datum  Von Nutzer Rating
Antwort
14.06.2017 19:20:40 Jan
NotSolved
14.06.2017 20:31:38 Gast22775
NotSolved
Rot Quellcode auslesen
 14.06.2017 20:48:52 Gast71685
NotSolved
14.06.2017 22:14:49 Jan
Solved
15.06.2017 08:47:36 Gast25494
NotSolved
15.06.2017 09:51:35 Jan
NotSolved
15.06.2017 10:43:29 Gast77096
NotSolved
15.06.2017 11:09:57 Jan
NotSolved
15.06.2017 12:33:10 Gast34920
NotSolved
15.06.2017 20:31:55 Jan
NotSolved
15.06.2017 22:54:04 Jan
Solved

Ansicht des Beitrags:
Von:
Gast71685		 Datum:
14.06.2017 20:48:52		 Views:
769		 Rating:
     
Antwort:
  Ja
Thema:
Quellcode auslesen

Hallo Jan! War jetzt zu faul im Code den Fehler zu suchen. Waren mit zuviele Split und replaces. :-) Anbei mal eine kürzere Variante. Die Prüft ob der String "Personen gefällt das" vorkommt. Wenn nicht, hat ja eh was nicht geklappt. Danach reicht eigentlich ein split und dann das Ende bis zum Ersten > vor der Zahl. Ist ein wenig kürzer. Getestet und läuft bei mir. Gehe davon aus, dass in antwort der Quellcode steht. Einfach mal Testen. VG

 

'testen ob die Zahl überhaupt vorkommt
If InStr(1, antwort, "Personen gefällt das", vbTextCompare) = 0 Then Exit Sub
'jetzt die Zahl
ergebnis = Trim(Split(antwort, "Personen gefällt das")(0))
ergebnis = CLng(Right(ergebnis, InStr(1, StrReverse(ergebnis), ">") - 1))

 

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
14.06.2017 19:20:40 Jan
NotSolved
14.06.2017 20:31:38 Gast22775
NotSolved
Rot Quellcode auslesen
 14.06.2017 20:48:52 Gast71685
NotSolved
14.06.2017 22:14:49 Jan
Solved
15.06.2017 08:47:36 Gast25494
NotSolved
15.06.2017 09:51:35 Jan
NotSolved
15.06.2017 10:43:29 Gast77096
NotSolved
15.06.2017 11:09:57 Jan
NotSolved
15.06.2017 12:33:10 Gast34920
NotSolved
15.06.2017 20:31:55 Jan
NotSolved
15.06.2017 22:54:04 Jan
Solved