CMD/BAT

Iska · Отправлено: **21:25, 25-01-2020** | #21

ateka, а запустите-ка интерпретатор команд "%comspec%" /k и выполните в нём команду chcp — что покажет?

ateka · Отправлено: **08:49, 26-01-2020** | #22

Iska, 65001
Но принудительная смена кодировки результата не даёт.
В 866 принципиально не ищет.

Iska · Отправлено: **10:52, 26-01-2020** | #23

Цитата ateka:

Iska, 65001 »

.

Цитата ateka:

Но принудительная смена кодировки »

Как это выглядит — «принудительная смена кодировки»?

ateka · Отправлено: **11:37, 26-01-2020** | #24

Код:

chcp 866
type russian_866.txt | findstr.exe /i /r /c:"^[а-яё]и[а-яё][а-яё][а-яё]ц$"

Не ищет.

Iska · Отправлено: **13:01, 26-01-2020** | #25

ateka, при этом кодировка самого пакетного файла также OEM/866?

megaloman · Отправлено: **13:46, 26-01-2020** | #26

ateka,

Цитата Iska:

ateka, при этом кодировка самого пакетного файла также OEM/866? »

Распакуйте мой архив из предыдущего поста со словарем и батником, возьмите прикреплённый файл в этом посте, поместите его рядом с распакованным vocabulary.txt, переименуйте его из txt в bat, ничего больше не изменяйте. Запустите именно его. И?

ateka · Отправлено: **15:52, 26-01-2020** | #27

Цитата Iska:

при этом кодировка самого пакетного файла также OEM/866? »

Ага.

Цитата megaloman:

Запустите именно его. И? »

Не ищет. Даже русские буквы в 866 не отображает.

Картинка

alpap · Конфигурация компьютера

ateka, неее ...
вы сделайте такой скриншот
Файл 160204

ateka · Отправлено: **14:28, 27-01-2020** | #29

alpap, Батники в 866. Гарантированно. Оболочка по умолчанию в 65001. Никак 2020 на дворе.

megaloman · Отправлено: **19:03, 27-01-2020** | #30

ateka,

Попробуйте VBS.

Код:

'FileIn = "D:\CMD_Forum\Box_In\vocabularyUTF8.txt"
FileIn = "vocabularyUTF8.txt"

nword = 3

On Error Resume Next

With CreateObject("ADODB.Stream")
    .Charset = "utf-8"
    .Open
    .LoadFromFile (FileIn)
    If Err.Number <> 0 Then
        MsgBox "File   " + FileIn + vbCrLf + Err.Description + "(" + CStr(Err.Number) + ")"
        WScript.Quit 2
    End If
    On Error GoTo 0
    
    Alls = Split(.ReadText(), vbCrLf)
    .Close
End With
On Error GoTo 0

With CreateObject("VBScript.RegExp")
    .IgnoreCase = True
    .Global = True
    Mask = ""
    Do
        Mask = InputBox("Маска содержит русские буквы и точки, например" + vbCrLf + ".и...ц", "Поиск слов по маске", Mask)
        If Mask = "" Then Exit Do
        .Pattern = "^" + Trim(Mask) + "$"
        
        out = ""
        i = 0
        For Each word In Alls
            word = Trim(word)
            If .Test(word) Then
                If i = 0 Then out = out + word Else out = out + vbTab + word
                i = i + 1
                If i = 3 Then
                    i = 0
                    out = out + vbCrLf
                End If
            End If
        Next
        If out = "" Then
            R = MsgBox("По маске    " + """" + Mask + """" + vbCrLf + "Ничего не найдено", vbRetryCancel)
        Else
            R = MsgBox(out, vbRetryCancel, "Маска " + """^" + Trim(Mask) + "$"". Найдено:")
        End If
        If R = 2 Then Exit Do
    Loop

End With

Интересно, сработает? Скрипт сохранить в 1251-кодировке. Словарь - в UTF-8. Прилагаю и то и другое в архиве
А вообще-то нестандартные настройки рано или поздно выходят боком