array Fehler

muh_kuh

hallo
da skript soll von wiki zufällig ein Titel und einige wörter raushollen
leider mach er mir immer eine Fehler in der zeiel 41

C

$ping = Ping ( "de.wikipedia.org")
#include "IE.au3"
#include <Array.au3>
if $ping <>0 Then
	$dateiname = @TempDir &"\hangmann.htm"
	$ie= _IECreate()
	_IENavigate($ie, "http://de.wikipedia.org/wiki/Spezial:Random")
	$inhalt = _IEBodyReadHTML($ie)
	$inhalt_arra=StringSplit ( $inhalt,"<!-- start content -->",1)
	$ueberschrift_a = StringSplit ($inhalt_arra[1],"firstHeading",1)
	$ueberschrift_b = StringSplit (StringTrimLeft( $ueberschrift_a[2], 1),"</H1>",1)
	$ueberschrift = $ueberschrift_b[1]
	$zeile_a = StringSplit ( $inhalt_arra[2],"</P>",1)
	$zeile_b = StringSplit ( $zeile_a[1],"<P>",1)
	$zeile_c = StringReplace ( $zeile_b[2], "<B>", "" )
	$zeile_c = StringReplace ( $zeile_c, "</B>", "" )
	$zeile_c = StringReplace ( $zeile_c, "<BR>", "" )
	$zeile_c = StringReplace ( $zeile_c, "<I>", "" )
	$zeile_c = StringReplace ( $zeile_c, "</I>", "" )
	$zeile_c = StringReplace ( $zeile_c, '"', " " )
	$zeile_c = StringReplace ( $zeile_c, "  ", " " )
	$zeile_c = StringReplace ( $zeile_c, "href=", "" )
	$zeile_c = StringReplace ( $zeile_c, "/wiki/", "" )
	$zeile_c = StringReplace ( $zeile_c, "title=", "" )
	$zeile_c = StringReplace ( $zeile_c, "<A", "" )
	$zeile_c = StringReplace ( $zeile_c, "</A>", "" )
	$zeile_c = StringReplace ( $zeile_c, ">", "" )
	$zeile_c = StringReplace ( $zeile_c, $ueberschrift, "" )
	$zeile_d = StringSplit ($zeile_c, ")", 1)
	If $zeile_d[0] == 1 Then
		$zeile = $zeile_c
	Else
		$zeile = $zeile_d[2]
	EndIf
	$beschreibung = StringSplit ( $zeile, " ", 1 )
	$i = 2
	$zahl = $beschreibung[0]
	if StringIsInt ( $beschreibung[0]) == 0 or IsArray ($beschreibung)==0 then Exit
	_ArrayDisplay ( $beschreibung, "0" )
	While $i < $zahl
		;MsgBox(0,"test",$beschreibung[$i])
		if $beschreibung[$i] == $beschreibung[$i-1] OR $beschreibung[$i]=="" Then
			$beschreibung[0] = $beschreibung[0]-1
			$beschreibung = _ArrayDelete ( $beschreibung, $i )
		EndIf
		_ArrayDisplay ( $beschreibung, $i )
		$i = $i +1
	WEnd
	$i = 1
	$start = 1
	$ende = $beschreibung[0]
	While $i < $zahl
		;MsgBox(0,"test",$beschreibung[$i])
		if StringIsLower ($beschreibung[$i]) OR  StringIsDigit($beschreibung[$i]) Then

		Else
			If $start == 1 Then
				$start = $i
			elseif $ende == $beschreibung[0] Then
				$ende = $i
			Else
				ExitLoop 
			EndIf
		EndIf
		$i = $i +1
	WEnd
	MsgBox(0,$ueberschrift,_ArrayToString ( $beschreibung, $start-1, $ende+1, " "))
	_IEQuit($ie)
EndIf

Alles anzeigen

Eddy_Erpel

Hallo,
ich denke einmal der Fehler liegt in Zeile 44, wo du aus einem Array kein Array machst. So würde ich nach doppelten Einträgen suchen:

Code

for $i=UBound($beschreibung)-1 to 1 step -1
	if $beschreibung[$i] == $beschreibung[$i-1] OR $beschreibung[$i]=="" Then
		_ArrayDelete($beschreibung,$i)
	EndIf
Next
$beschreibung[0]=UBound($beschreibung)-1

Gruss
eddy_erpel

muh_kuh

danke
habe inzwischen auch eine lostung die einiermassen gut geht
aber danke

C

$ping = Ping ( "de.wikipedia.org")
#include "IE.au3"
#include <Array.au3>
if $ping <>0 Then
	$dateiname = @TempDir &"\hangmann.htm"
	$ie= _IECreate()
	_IELoadWait($ie)
	_IENavigate($ie, "http://de.wikipedia.org/wiki/Spezial:Random")
	_IELoadWait($ie)
	$inhalt = _IEBodyReadHTML($ie)
	$inhalt_arra=StringSplit ( $inhalt,"<!-- start content -->",1)
	$ueberschrift_a = StringSplit ($inhalt_arra[1],"firstHeading",1)
	$ueberschrift_b = StringSplit (StringTrimLeft( $ueberschrift_a[2], 1),"</H1>",1)
	$ueberschrift = $ueberschrift_b[1]
	$zeile_a = StringSplit ( $inhalt_arra[2],"</P>",1)
	$zeile_b = StringSplit ( $zeile_a[1],"<P>",1)
	$zeile_c = StringReplace ( $zeile_b[2], "<B>", "" )
	$zeile_c = StringReplace ( $zeile_c, "</B>", "" )
	$zeile_c = StringReplace ( $zeile_c, "<BR>", "" )
	$zeile_c = StringReplace ( $zeile_c, "<I>", "" )
	$zeile_c = StringReplace ( $zeile_c, "</I>", "" )
	$zeile_c = StringReplace ( $zeile_c, '"', " " )
	$zeile_c = StringReplace ( $zeile_c, "href=", "" )
	$zeile_c = StringReplace ( $zeile_c, "/wiki/", "" )
	$zeile_c = StringReplace ( $zeile_c, "title=", "" )
	$zeile_c = StringReplace ( $zeile_c, "<A", "" )
	$zeile_c = StringReplace ( $zeile_c, "</A>", "" )
	$zeile_c = StringReplace ( $zeile_c, ">", "" )
	$zeile_c = StringReplace ( $zeile_c, $ueberschrift, "" )
	$zeile_c = StringReplace ( $zeile_c, "  ", " " )
	$zeile_d = StringSplit ($zeile_c, ")", 1)
	If $zeile_d[0] == 1 Then
		$zeile = $zeile_c
	Else
		$zeile = $zeile_d[2]
	EndIf
	$beschreibung = StringSplit ( $zeile, " ", 1 )
	$i = 1
	$zahl = $beschreibung[0]
	$zahl = $zahl -3
	if StringIsInt ( $beschreibung[0]) == 0 or IsArray ($beschreibung)==0 then Exit
	;_ArrayDisplay ( $beschreibung, "0" )
	$beschreibung_neu = $beschreibung
	$beschreibung_string = ""
	While $i < $zahl
		;MsgBox(0,"test",$beschreibung[$i])
		if $beschreibung[$i] == $beschreibung[$i-1] OR $beschreibung[$i]=="" Then
			$zahl = $zahl-1
			$beschreibung_neu = _ArrayDelete ( $beschreibung_neu, $i )
		Else
			$beschreibung_string = $beschreibung_string & " " &$beschreibung[$i]
		EndIf
		;_ArrayDisplay ( $beschreibung, $zahl& " i "& $i )
		$i = $i +1

	WEnd
	$beschreibung = StringSplit ( $beschreibung_string, " ", 1 )
	$i = 1
	$start = 1
	$ende = $zahl
	if IsArray ($beschreibung)==0 then 
		MsgBox(0,"Fehler","War kein Array")
		Exit
	EndIf
	While $i < $zahl
		$uebertarg = $beschreibung[$i]
		if StringIsLower ($uebertarg) OR  StringIsDigit($uebertarg) Then

		Else
			If $start == 1 Then
				$start = $i
			elseif $ende == $zahl Then
				$ende = $i
			Else
				ExitLoop 
			EndIf
		EndIf
		$i = $i +1
	WEnd
	$i = $start-1
	$beschreibung_fertig = ""
	while $i <= $ende
		$uebertarg = $beschreibung[$i]
		$beschreibung_fertig = $beschreibung_fertig & " " &$uebertarg
		$i = $i+1
	WEnd
	MsgBox(0,$ueberschrift,$start-1& $ende&@CRLF&$beschreibung_fertig)
	_IEQuit($ie)
EndIf

Alles anzeigen

**peethebee**

Der Bot funktioniert leider kaum. Es werden keine ungültigen zeichen entfernt oder ersetzt (Prüfung mit RegEx wäre evlt. sinnvoll) und es wird kein sinnvoller Tipp extrahiert.
Daher haben wir den Einsatz erst ein mal gesperrt. Wenn er besser ist, können wir ja noch mal testen.
Abgesehen davon ist das Durchsuchen von Wikipedia nicht der Sinn von Hangman, oder? *g*

peethebee

muh_kuh

Zitat

Original von peethebee
Der Bot funktioniert leider kaum. Es werden keine ungültigen zeichen entfernt oder ersetzt (Prüfung mit RegEx wäre evlt. sinnvoll) und es wird kein sinnvoller Tipp extrahiert.

er wurde um edliche zeichen erweitert
die idee mit TegEx ist gut und werde ich umstetzen
Sinnvolle Tipps gibt es nie
meist werden die Wörter ehe duch andere Methoden gefunden als duch den Tipp

Zitat

Original von peethebee
Abgesehen davon ist das Durchsuchen von Wikipedia nicht der Sinn von Hangman, oder? *g*

peethebee

woher sollen den dann die ideen für Hangmann kommen ?
ich haben nur das von Händisch auf Auoit um gestzt

die hier gezeigte version entspricht nicht der eingetzten

**peethebee**

Zitat

Original von muh_kuh
er wurde um edliche zeichen erweitert
die idee mit RegEx ist gut und werde ich umsetzen

Am einfachsten wohl so, dass du prüfst, ob nur gültige Zeichen enthalten sind und sonst den Begriff verwirfst und den nächsten nimmst.

Zitat

Sinnvolle Tipps gibt es nie
meist werden die Wörter ehe duch andere Methoden gefunden als duch den Tipp

Der Reiz hängt (nur für mich) schon auch damit zusammen, dass ich einen - weil zum Beispiel im übertragenen Sinne verwendet - klugen Tipp bekomme.
Deine Tipps waren allerdings auch noch mit escapten URLs gepickt und Bruchstücke, die leider seltenst was mit der Lösung zu tun hatten oder diese selbst enthielten.

Zitat

Original von muh_kuh
woher sollen den dann die ideen für Hangmann kommen ?
ich haben nur das von Händisch auf Auoit um gestzt

Naja, ich brauche definitiv keine 20 Hangmans am Tag. Lieber 5 kreative...
Ideen gibt es überall: Aus Nachrichen, Hobbys, Filmen und so weiter und so fort.

Zitat

die hier gezeigte version entspricht nicht der eingetzten

Ja. Die Idee ist ja prinzipiell nicht schlecht. Nur finde ich es aus oben genannten Gründen (Kreativität, Menge, nur eine Quelle) in diesem Fall nicht so prickelnd. Sorry.

peethebee

muh_kuh

hallo

Zitat

Original von peethebee
Am einfachsten wohl so, dass du prüfst, ob nur gültige Zeichen enthalten sind und sonst den Begriff verwirfst und den nächsten nimmst.

das habe ich schon eingebaut
klappt aber nicht 100%
werde heute adend den code hier reinstellen

Zitat

Der Reiz hängt (nur für mich) schon auch damit zusammen, dass ich einen - weil zum Beispiel im übertragenen Sinne verwendet - klugen Tipp bekomme.
Deine Tipps waren allerdings auch noch mit escapten URLs gepickt und Bruchstücke, die leider seltenst was mit der Lösung zu tun hatten oder diese selbst enthielten.

bei den auslese Script für die Tipps besteht noch verbesserungs bedarf
das ist bekannt und ich probire es auch noch zu verbessern

Zitat

Naja, ich brauche definitiv keine 20 Hangmans am Tag. Lieber 5 kreative...
Ideen gibt es überall: Aus Nachrichen, Hobbys, Filmen und so weiter und so fort.

meine letzte Hangmann versuch ist schon zimmlich her
da sonst woll keiner ideen für Hangmanns hat
mir sind die ideen auch schon langsam ausgegaben
darum das script und wiki überhautp
vielcht kann man ja noch einzei Autoit hangmanns machen
mit der Online hilfe