[Данные, строки] Поиск одинаковых букв в строке

[trizorka]

Доброго времени суток....в поиске не нашел...поэтому решил создать тему. Мне нужно что бы программа искала слова с повторяющееся буквами.К примеру, у меня есть тхт файл...там список слов...

$file = FileOpen("c:/1.txt")
$line = FileReadLine($file)
$aSplited = StringSplit($line, ""); разделяю по буквенно
for $i = 1 to UBound($aSplited) - 1; создаю масив из букв
Next
FileClose($file)

 

[DarWiM]

trizorka
Дайте пожалуйста пример файла

 

[sngr]

Точнее определи задачу - любые подряд идущие повторяющиеся буквы? Язык, кодировка, что делать с найденными?

 

[trizorka]

содержание файла:
азбука
подушка
интернет
и т.д.
К примеру, слово "подушка" не имеет повторяющихся букв....с найденными делать consolewrite()

 

[sngr]

#include <Array.au3> 
$file=FileRead('1.txt')
$str=StringRegExp($file,'\S+',3)
For $i=0 To UBound($str)-1
$aArray = StringToASCIIArray($str[$i])
$arr=_ArrayUnique($aArray)
If UBound($aArray)<>$arr[0] Then ConsoleWrite($str[$i]&@CRLF)
Next

 

[trizorka]

возвращает первую строку в файле

 

[DarWiM]

trizorka

OffTopic:
работает..

 

[sngr]

#include <Array.au3> 
$file=FileRead('1.txt')
$str=StringRegExp($file,'\S+',3)
_ArrayDisplay($str)

Делит на слова?

 

[trizorka]

[0]|шапачка
[1]|белка
[2]|водка
[3]|подушка

 

[sngr]

И всё же выложи свой файл куда-нибудь на файлообменник, а сюда кинь ссылку.

 

[trizorka]

s018.radikal.ru/i500/1210/76/5aa07541010f.png

 

[DarWiM]

OffTopic:
Да уж.. :stars:

 

[sngr]

#include <Array.au3>
$file=FileRead("1.txt")
$str=StringRegExp($file,'\S+',3)
For $i=0 To UBound($str)-1
$aArray = StringToASCIIArray($str[$i])
$arr=_ArrayUnique($aArray)
ConsoleWrite(UBound($aArray)&'|'&$arr[0]&'|'&$str[$i]&@CRLF)
Next

Если цифры в одной строке отличаются - в слове повтор букв. Проверяй как работает. А радикал это пять. Ты б лучше снял файл на видео и выложил на ютуб.

 

[madmasles]

trizorka,
Оформите, пожалуйста, тему в соответствии с Правилами обязательного оформления тем.

 

[ArtInt]

trizorka [?]

s018.radikal.ru/i500/1210/76/5aa07541010f.png

OffTopic:
Интересная идея - выкладывать текстовый файл как изображение.
Особенно после этого понятно какая у файла кодировка.

Да и грузится изображение несколько за иной интервал времени, чем текст

 

[AZJIO]

trizorka

содержание файла:
азбука
подушка
интернет
и т.д.
К примеру, слово "подушка" не имеет повторяющихся букв....с найденными делать consolewrite()

ConsoleWrite('К сожалению в словах "азбука", "подушка", "интернет" не найдено слов с повторяющейся буквой' &@CRLF)

После оформления темы выложу качественный пример... Извиняюсь не удержался.

 

[inververs]

Вот с помощью регулярных выражений:

Спойлер

Правильное регулятное выражение будет доступно после оформления темы