Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #include <FileConstants.au3>
- #include <AutoItConstants.au3>
- #include <Array.au3>
- #include <File.au3>
- local $aFile
- _FileReadToArray(@ScriptDir &"\Zahlen kuerzer.txt", $aFile)
- $sFileName2 = @ScriptDir &"\Zahlen noch kuerzer.txt"
- $hFilehandle2 = FileOpen($sFileName2, $FO_OVERWRITE)
- Local $sOriginal
- Local $i
- $str = 0
- While ($str <> 11715600)
- $str += 1
- $sOriginal = $aFile[$str]
- While 1
- $si = 0
- $sOne = StringMid($sOriginal, $i+1, 1)
- $sTwo = StringMid($sOriginal, $i+2, 1)
- $sThree = StringMid($sOriginal, $i+3, 1)
- $sFour = StringMid($sOriginal, $i+4, 1)
- $sFive = StringMid($sOriginal, $i+5, 1)
- If $sTwo = $sFive Then
- If $sThree = $sFour Then
- ExitLoop
- EndIf
- Else
- ;Nothing
- EndIf
- If $sTwo = $sFour Then
- If $sThree = $sFive Then
- ExitLoop
- EndIf
- Else
- ;Nothing
- EndIf
- If ?$sTwo = $sThree Then
- If $sFour = $sFive Then
- ExitLoop
- EndIf
- Else
- ;Nothing
- EndIf
- If $sOne = $sFive Then
- If $sThree = $sFour Then
- ExitLoop
- EndIf
- Else
- ;Nothing
- EndIf
- If $sOne = $sFour Then
- If $sThree = $sFive Then
- ExitLoop
- EndIf
- Else
- ;Nothing
- EndIf
- If $sOne = $sThree Then
- If $sFour = $sFive Then
- ExitLoop
- EndIf
- Else
- ;Nothing
- EndIf
- If $sOne = $sFive Then
- If $sTwo = $sFour Then
- ExitLoop
- EndIf
- Else
- ;Nothing
- EndIf
- If $sOne = $sFour Then
- If $sTwo = $sFive Then
- ExitLoop
- EndIf
- Else
- ;Nothing
- EndIf
- If $sOne = $sTwo Then
- If $sFour = $sFive Then
- ExitLoop
- EndIf
- Else
- ;Nothing
- EndIf
- If $sOne = $sFive Then
- If $sTwo = $sThree Then
- ExitLoop
- EndIf
- Else
- ;Nothing
- EndIf
- If $sOne = $sThree Then
- If $sTwo = $sFive Then
- ExitLoop
- EndIf
- Else
- ;Nothing
- EndIf
- If $sOne = $sTwo Then
- If $sThree = $sFive Then
- ExitLoop
- EndIf
- Else
- ;Nothing
- EndIf
- If $sOne = $sFour Then
- If $sTwo = $sThree Then
- ExitLoop
- EndIf
- Else
- ;Nothing
- EndIf
- If $sOne = $sThree Then
- If $sTwo = $sFour Then
- ExitLoop
- EndIf
- Else
- ;Nothing
- EndIf
- If $sOne = $sTwo Then
- If $sThree = $sFour Then
- ExitLoop
- EndIf
- Else
- FileWrite($hFilehandle2, $sOriginal & @CRLF)
- ExitLoop
- EndIf
- FileWrite($hFilehandle2, $sOriginal & @CRLF)
- ExitLoop
- WEnd
- WEnd
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement