Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в 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
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
content = c


Всего записей: 6462 | Зарегистр. 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

Рейтинг.ru