Плагины для Total Commander (часть 3) - [645] :: Программы

Новости • Файловые архивы
Поиск • Активные темы • Топ лист
Правила • Кто в on-line?

Вход • Забыли пароль? • Первый раз на этом сайте? • Регистрация

Компьютерный форум Ru.Board » Компьютеры » Программы » Плагины для Total Commander (часть 3)

Модерирует : gyra, Maz
Maz (29-03-2022 21:29): Плагины для Total Commander (часть 4)\|	Версия для печати • Подписаться • Добавить в закладки
На первую страницу • к этому сообщению • к последнему сообщению

Skif_off

Gold Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Код:

Dim c, l, i, t
Set objRegExp = CreateObject("VBScript.RegExp")
objRegExp.Pattern = "[^\u0000-\u007F]"
If objRegExp.Test(filename) Then
c = 0
l = Len(filename)
For i = 1 to l step 1
t = AscW(Mid(filename, i, 1))
If t > &H007F Then
If t <= &H07FF Then
c = c + 2
ElseIf t <= &HFFFF Then
c = c + 3
Else
c = c + 4
End If
Else
c = c + 1
End If
Next
If c >= 127 Then
content = True
Else
content = False
End If
Else
content = False
End If

Всего записей: 6489 | Зарегистр. 28-01-2008 | Отправлено: 04:46 28-09-2018 | Исправлено: Skif_off, 05:33 28-09-2018

На первую страницу • к этому сообщению • к последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Программы » Плагины для Total Commander (часть 3)
Maz (29-03-2022 21:29): Плагины для Total Commander (часть 4)|

Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC