Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #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.")
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement