Beiträge von Ilse

Hi Andy,

dieses Pattern geht nicht!

1. Ich kopiere alles in die Zwischenablage

Diese Version geht nicht.

...diese auch nicht!

Kannst du mir diese Zeile mal verbessern?

$aResult = StringRegExp($HTML,'-(.*?[^\[\]])-',3);

damit ich dieses Ergebnis erhalte?

oder verstehe ich das was mit den "Pipes"??? falsch (^)?

Liebe Grüße
Ilse

Andy,

merci für deinen Rat.
Werde ihn in Zukunft befolgen.
Aber wie du bereits geschrieben hast:

Zitat

Wenn man täglich Textfilter benutzt, sind Regex eine klasse Sache, unbestritten.

und genau das ist mein Problem. Deßhalb will ich mich reinknien.

BugFix ,

das habe ich alles gelesen und "getestet....und Tutorials gelesen, probiert...
ABER: dein Code funktioniert bei mir nicht!

Hier nochmal der Code mit deinen Zeilen:

Ich erhalte ein Ergebnis.
Deinen Tipp kann ich nicht nachvollziehen.

Zitat

Dann hättest du gemerkt, dass mein Pattern die eckigen Klammern nicht zurückgibt.

...aber die sind im ersten Satz immer noch drin. Trotz einem Pipe. Wieso?
Würde mich freuen wenn du mir eine kpl. Zeile postest die funktioniert

Ich will's einfach nur verstehen!

Liebe Grüße
Ilse

Hallo Bugfix,

ich bin noch immer am probieren.

Zitat

Mit "[^\[\]]" hast du ein negierendes Set, d.h. du bekommst alles ausser den im Set angegebenen Zeichen

Die im Set angegebenen Zeichen möchte ich nicht haben. []

Mein Quelltext:
-Das ist der [erste]Text-
Das Ergebnis sollte sein:
Das ist der erste Text

$aResult = StringRegExp($HTML,'-(.*?[^\[|^\]])-',3)

; das bedeutet doch: zeige mir alles ausser [] oder nicht?

Ich krieg's irgendwie nicht hin

Ilse

Hallo Bugfix,

das hatte ich schon probiert,
aber das geht nicht!

#include <Array.au3>

;Bitte in Zwischenablage kopieren

;-Das ist der [erste]Text-
;-Das ist der 35. Text-
;-Das ist ein deutscher Text.de-
;-Das ist ein französicher Text.fr-

$HTML = Clipget()

;$aResult = StringRegExp($HTML,'-(.*?[^.de|.fr|\[\]])-',3)

$aResult = StringRegExp($HTML,'-(.*?[^\[|^\]])-',3)
_Arraydisplay($aResult)

exit

also nicht anzeigen: [^\[|^\]]

was mache ich da falsch?

Grüße
Ilse

Hallo Schnitzel,

genau so..., hatte auch schon mit ^ probiert
leider ohne Erfolg.

Noch ne Frage an dich:
Wenn ich im Ergebnis z.B. die [] nicht anzeigen möchte
kann man die auch herausfiltern, also ohne m. RegexReplace...??

Die Zwischenablage

Also:
Das ist der [erste]Text sollte so aussehen: Das ist der erste Text (ohne Klammern)
^[ geht nicht

Mein Code

#include <Array.au3>

;Bitte in Zwischenablage kopieren

;-Das ist der [erste]Text-
;-Das ist der 35. Text-
;-Das ist ein deutscher Text.de-
;-Das ist ein französicher Text.fr-

$HTML = Clipget()

;$aResult = StringRegExp($HTML,'-(.*?[^\]])-',3)

$aResult = StringRegExp($HTML,'-(.*?[^[]])-',3); das geht leider nicht!
_Arraydisplay($aResult)

exit

Liebe Grüße
Ilse

Hallo,

eine Frage an die RegEx Profis.
Wie kann man ein Ergebnis anzeigen: z.B. alle außer...

Test:
Bitte in die Zischenablage kopieren

Mein Code:
Hier werden alle .de .fr angezeigt!

#include <Array.au3>

$HTML = Clipget()

$aResult = StringRegExp($HTML,'-(.*?[.de|.fr])-',3)
_Arraydisplay($aResult)

exit

Wie kann man alle anzeigen außer .de .fr ?

Liebe Grüße
Ilse

SEuBo,

bin gerade an deiner Variante.
Eine Frage:

Bei den Variablen komme ich irgendwie nicht weiter.
Wenn ich das ganze mit einer MsgBox ausgeben möchte,
welche Variablen muß ich für die Spalten benutzen?

Dein Code:

; ...
$aResult = _RegExp($HTML,'class=(.*?)"\s.*?">(.*?)</b>\.(.*?)>>')
_Arraydisplay($aResult)
; ...

Func _RegExp($sTest, $sPattern, $iOffset = 0)
Local $aRet, $iUB, $iUB2, $aDummy, $aNewArr
$aRet = StringRegExp($sTest, $sPattern, 4, $iOffset)
If @error Then Return

Local $iUB = UBound($aRet), $iUB2 = UBound($aRet[0]), $aNewArr[$iUB][$iUB2 - 1]
For $i = 0 To $iUB - 1
Local $aDummy = $aRet[$i], $iUBD = UBound($aDummy)

If $iUBD - 1 > $iUB2 Then
$iUB2 = $iUBD
ReDim $aNewArr[$iUB][$iUB2]
EndIf
For $j = 1 To $iUBD - 1
$aNewArr[$i][$j - 1] = $aDummy[$j]
Next
Next
Return $aNewArr
EndFunc ;==>_RegExp

Ilse

@alle

SUPER. vielen DANK!

Liebe Grüße
Ilse

Hallo,

ich habe folgendes Problem mit Arraydisplay:
Ich habe eine RegEx Suche mit 3 Ergebnissen (Klappt alles soweit)

Wie kann ich diese Ergebnisse mit _ArrayDisplay in 3 Spalten darstellen?

CodeBeispiel

$aResult = StringRegExp($HTML,'class=(.*?)"\s.*?">(.*?)</b>\.(.*?)>>',3)
_Arraydisplay($aResult); zeigt alles in einer Spalte an
(.*?) das sind die Ergebnisse

_Arraydisplay($aResult) ; also alles in einer Zeile

Habe auch mit einem Loop probiert

for $i = 0 to UBound($aResult) -1 Step 3
;komme da nicht weiter
next

Sieht also so aus
_Arraydisplay

_ArrayDisplay sollte aber so aussehen

Eine Idee?
Ilse

Hallo K4z,

muß mich leider doch wieder melden.
Wenn ich mit _Arraydisplay alles ausgebe
dann sind solche Zeichen drin:

&amp;....

ü, ö ... ist ok.

Ilse

Hallo K4z,

konnte mich leider nicht mehr melden.
Mußte wieder los...

Klappt jetzt prima.
1000 Dank

Ilse

Dank dir für den Tipp!

Ein kleines Problem mit dem Quelltext hab ich noch:
Umlaute!!!
�ber
Also der Text ist voll mit diesen Zeichen.

Der Editor steht bei Zeichenkodierung auf Westlich ISO
das wäre ja ok, bei Scite habe ich auch probiert, ich krieg das so nicht weg.

Zitat

klar:) häng einfach &num= und die Ergebnisanzahl dahinter

Wo gnau kommt das hin?

http://www.google.de/search?q= &num=20

das klappt leider nicht!

Weist du da einen Rat?

Grüße
Ilse

Hallo K4z,

mußte kurz weg,
Ja, das funktioniert Super.

Mal noch ne Frage:
Kann man da auch die Suchtiefe irgendwie mitbestimmen?
Ich meine daß nicht nur die ersten 10 Ergebnisse gezeigt werden?

Liebe Grüße
Ilse

Hallo K4Z,

das hab ich bereits gemacht.
Auch mit anderen Suchergebnissen.

Auch wenn ich einen HTML Editor lade und den Quelltext dort hineinkopiere
dann sehe ich die Google-Suche und nicht das Suchergebnis

dann kopiere ich die Adresszeile in die Zwischenablage
Meine Suche

Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

Mein Quellcode im Editor

Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

Mein Code

$sLink=ClipGet() ; Meine Adresszeile nach der Suche....

$sSource= BinaryToString(InetRead($sLink, 1), 4)

Msgbox(0,"",$sSource)
ClipPut($sSource)

Grüße
Ilse

Hallo K4Z,

merci für deinen Tipp!
Das geht aber nicht!

Ich mache folgendes:
1. Google Suche z.B. Tierheime
2. In der Adresszeile kopiere ich den Link (Das Ergebnis sehe ich nun)
3. Von diesem Ergebnis benötige ich den Quellcoe

Ich kopiere also die Adresszeile
und starte das Script.
Aber der Quellcode ist falsch

Ilse

Hallo,

brauche mal wieder Hilfe.
Wenn ich bei Google etwas suche
z.B. Tierheime

Wie kann man dann das Suchergebnis (Quellcode)
abspeichern.

Bei mir kommt immer der Quellcode der Google Startseite

Mein Code

$Adresszeile=ClipGet(); hier trage ich die Adresszeile meiner kpl. Suche ein

$sSource= BinaryToString(inetread($Adresszeile))

Msgbox(0,"",$sSource)
ClipPut($sSource) ; hier erscheint aber der falsche Quellcode

Liebe Grüße
Ilse

Hallo,

habe mal das probiert:

#include <Array.au3>

Msgbox(0,"","Quelltext in Zwischenablage?",2)
$sSource = Clipget()

$sSource = (StringReplace(StringStripCR($sSource), @LF, ""))
$aResult = StringRegExp($sSource,'<a.*?class="l".href="(.*?)">',3)

For $i = 0 To UBound($aResult) - 1
MsgBox(0, "RegEx " & $i, $aResult[$i])
Next

Hänge aber immer noch an den Spalten...

Liebe Grüße
Ilse

Hallo,

merci für deine Hilfe.
Erhalte leider kein Ergebnis.

Meine Frage:

Wie kann man eine Suchanfrage bilden
die die alle Ergebnisse in den Spalten in _Arraydisplay darstellt?

Ich meine irgendwie so:

$aResult = StringRegExp($sSource,'<a.*?class="l".href="(.*?)"> <a.*?class="l".href="(.*?)"> <a.*?class="l".href="(.*?)"> ',3)

...das Regex stimmt natürlich nicht (da liegt mein Problem)
also z.B.

Blau = Überschrift
Rot = Link
Grün = Text

und das als _Arraydisplay dargestellt:

Überschrift | Link | Text

Liebe Grüße
Ilse

Hallo,

ich schaff es einfach nicht per RegEx
meinen Quelltext in Spalten aufzuteilen.

Geht das überhaupt, daß man mit einem Suchmuster die Felder in Columnen bekommt.

Hier mal der Quellcode HTML

Zum testen einfach diesen Code in die Zwischenablage kopieren und dann das Skrift starten

Mein Code: (geht aber nicht...)

#include <Array.au3>

Msgbox(0,"","Quelltext in Zwischenablage?",2)
$sSource = Clipget()

$aResult = StringRegExp($sSource,'class="l" href="(.*?)"',3)

For $i = 0 To UBound($aResult) - 1
MsgBox(0, "RegEx " & $i, $aResult[$i])
Next

Sollte so aussehen:

1. Überschrift 2. Link 3. Text

Ich bekomms einfach nicht hin. Auch nicht mit _Arraydisplay (Spalte 1,2,3)

Liebe Grüße
Ilse

Hallo,

ich hatte mal vor einiger Zeit ein Beispiel
von Seubo erhalten (Link abspeichern)
Leider funktioniert das Skript auf einmal nicht mehr!

Würde mich sehr freuen wenn mal die Profis
drüberschauen.

#include <Array.au3>
$aResults = _GoogleIt("Autoit", 30)
_ArrayDisplay($aResults)

Func _GoogleIt($sSearchQuery, $iResult = 10, $sHL = ".com")
If Not StringRegExp($sHL, "^\.\w+$") Or StringRegExp($sSearchQuery, "^\s*$") Then Return ""
If $iResult < 1 Then Return
Local $sURL, $aResult, $aReturn[$iResult][2], $i, $j
For $iStart = 0 To $iResult Step 10
$sURL = "http://www.google" & $sHL & "/search?q=" & $sSearchQuery & "&start=" & $iStart
$aResult = StringRegExp(StringRegExpReplace(BinaryToString(InetRead($sURL, 1), 4), '<em>(.+?)</em>', "\1"), '<a href="([^"]+)" class=l>(.+?)</a>', 3)

If @error Then ExitLoop
For $i = 0 To UBound($aResult) - 1 Step 2
If $j >= $iResult Then ExitLoop

$aReturn[$j][0] = $aResult[$i]
$aReturn[$j][1] = $aResult[$i + 1]
$j += 1
Next
Next
Return $aReturn
EndFunc ;==>_GoogleIt

LG
Ilse