#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.12.0
 Author:         myName

 Script Function:
	Liest die erlernten Attacken eines Pokémon im Dex von pokefans aus und löscht die Einträge,
	die für XY noch keine genaueren Angaben haben.

#ce ----------------------------------------------------------------------------

; Open a browser with the table example, get a reference to the second table
; on the page (index 1) and read its contents into a 2-D array

#include <Array.au3>
#include <IE.au3>

Local $oIE = _IECreate("http://mitarbeit.pokefans.net/pokedex/214/attacks")
_IELoadWait($oIE)

;_ArrayDisplay($aTableData)
;Msgbox(0,"",$aTableData[1][5])

for $j = 340 to 721 step +1

_IENavigate($oIE, "http://mitarbeit.pokefans.net/pokedex/" & $j & "/attacks")
_IELoadWait($oIE)

Local $bswitch = False
Global $oTable = _IETableGetCollection($oIE, 1)
Global $aTableData = _IETableWriteToArray($oTable)
;_ArrayDisplay($aTabledata)

   Global $k = 4

   if StringInStr($aTableData[1][$k], "ä") then $aTableData[1][$k] = StringReplace($aTableData[1][$k], "ä", "a")
   if StringInStr($aTableData[1][$k], "ö") then $aTableData[1][$k] = StringReplace($aTableData[1][$k], "ö", "o")
   if StringInStr($aTableData[1][$k], "ü") then $aTableData[1][$k] = StringReplace($aTableData[1][$k], "ü", "u")

   while $aTableData [3][$k] == "Level 0"

		 if StringInStr($aTableData[1][$k+1], "ä") then $aTableData[1][$k+1] = StringReplace($aTableData[1][$k+1], "ä", "a")
		 if StringInStr($aTableData[1][$k+1], "ö") then $aTableData[1][$k+1] = StringReplace($aTableData[1][$k+1], "ö", "o")
		 if StringInStr($aTableData[1][$k+1], "ü") then $aTableData[1][$k+1] = StringReplace($aTableData[1][$k+1], "ü", "u")

		 ;Überprüfung ob eine Attacke aus XY mit der Angabe Level 0 existiert, wenn nicht wird zum nächsten Pokémon gesprungen
		 if (($aTableData[2][$k] == "XY") & ($aTableData[3][$k] == "Level 0")) or (($aTableData[2][$k] == "XY") & ($aTableData[3][$k] == "Level 0"))  Then
		  $oLinks = _IELinkGetCollection($oIE)
			Local $i = 0, $aLinks[@extended]
			For $oLink In $oLinks
				$aLinks[$i] = $oLink.href
				if $aLinks[$i] == "http://pokefans.net/pokedex/attacken/" & StringLower( $aTableData[1][$k+3] ) Then Exitloop
				;ConsoleWrite($aLinks[$i] & @LF)
				$i += 1
			 Next
		  EndIf

		 ;Löschen und zurück zur Attackübersicht
		  For $i = 0 to ubound($aLinks)-1 step +1
			 if $aLinks[$i] == "http://pokefans.net/pokedex/attacken/" & StringLower( $aTableData[1][$k] ) Then
				   $i += 1
				   _IENavigate($oIE, $aLinks[$i])
				   _IELoadWait($oIE)
				  _IELinkClickByText($oIE, "Diese Attacke bei diesem Pokémon löschen.")
				  _IELoadWait($oIE)
				  _IENavigate($oIE, "http://mitarbeit.pokefans.net/pokedex/" & $j & "/attacks")
				  _IELoadWait($oIE)
				  Exitloop
			 EndIf
		  Next
	  $k+=1
   Wend

   ;Alphabetische Überprüfung, ob der übernächste Eintrag im Alphabet nach dem nächsten kommt
	  while StringInStr($aTableData [3][$k], "Level")
	  if chr(StringLeft($aTableData [1][$k],1)) < chr(StringLeft($aTableData [1][$k+1],1)) Then
		 $k+=1
		 if $aTableData [3][$k] == "Level 0" Then

			while $aTableData [3][$k] == "Level 0"

				  if StringInStr($aTableData[1][$k+1], "ä") then $aTableData[1][$k+1] = StringReplace($aTableData[1][$k+1], "ä", "a")
				  if StringInStr($aTableData[1][$k+1], "ö") then $aTableData[1][$k+1] = StringReplace($aTableData[1][$k+1], "ö", "o")
				  if StringInStr($aTableData[1][$k+1], "ü") then $aTableData[1][$k+1] = StringReplace($aTableData[1][$k+1], "ü", "u")

				  ;Überprüfung ob eine Attacke aus XY mit der Angabe Level 0 existiert, wenn nicht wird zum nächsten Pokémon gesprungen
				  if (($aTableData[2][$k] == "XY") & ($aTableData[3][$k] == "Level 0")) or ($aTableData[3][$k] == "Level 0")  Then
				   $oLinks = _IELinkGetCollection($oIE)
					 Local $i = 0, $aLinks[@extended]
					 For $oLink In $oLinks
						 $aLinks[$i] = $oLink.href
						 if $aLinks[$i] == "http://pokefans.net/pokedex/attacken/" & StringLower( $aTableData[1][$k+1] ) Then Exitloop
						 ConsoleWrite($aLinks[$i] & @LF)
						 $i += 1
					  Next
				   EndIf

				  ;Löschen und zurück zur Attackübersicht
				   For $i = 0 to ubound($aLinks)-1 step +1
					  if $aLinks[$i] == "http://pokefans.net/pokedex/attacken/" & StringLower( $aTableData[1][$k] ) Then
							$i += 1
							_IENavigate($oIE, $aLinks[$i])
							_IELoadWait($oIE)
						   _IELinkClickByText($oIE, "Diese Attacke bei diesem Pokémon löschen.")
						   _IELoadWait($oIE)
						   _IENavigate($oIE, "http://mitarbeit.pokefans.net/pokedex/" & $j & "/attacks")
						   _IELoadWait($oIE)
						   Exitloop
					  EndIf
				   Next
			   $k+=1
			Wend
		 EndIf
	  endif
	  $k+=1
	  wend

Next
_IEAction ($oIE, "quit")
Msgbox($MB_ICONWARNING,"Meldung", "Das Skript ist fertig.")