Script Нахождение пары символов в строке

[ЭйчЭйч]

Версия AutoIt

3

Версия

1.0

Простой скрипт, который находит в строках пары сиволов. Кушает строки из input.txt, строки с парами скидывает в output_xx.txt, иные в output_xy.txt

#cs

   This code was created by ЭйчЭйч (HH)

   Links
   English: http://www.autoitscipt.com
   Russian|Русский:
   Date|Дата:2021-03-01

   === Change Logs ===
   v1.0: just done.

#ce

#include <Array.au3>
#include <File.au3>

$aDataInputed = GetDataFromInputFile()

Func GetDataFromInputFile()
   Local $aRetArray, $sFilePath = @ScriptDir & "\input.txt"

    ; Read it - without count
    _FileReadToArray($sFilePath, $aRetArray, $FRTA_NOCOUNT)

    Return $aRetArray
EndFunc

For $sNumber In $aDataInputed
   $aNums = StringSplit($sNumber, "", 1)
   $i = 0
      For $i = 1 To $aNums[0]-1
         If $aNums[$i] = $aNums[$i+1] Then
            FileWriteLine(@ScriptDir & "\output_xx.txt", $sNumber)
            ExitLoop
         ElseIf $i = $aNums[0]-1 Then
            FileWriteLine(@ScriptDir & "\output_xy.txt", $sNumber)
         EndIf
      Next
Next
MsgBox(0,"Status", "Done!")

Exit