| Вопрос: Несколько вопросов | Добавлено: 15.11.04 12:20 |
Автор вопроса:  gvozd | Web-сайт: www.gvozdsoft.com
|
|
Всем зрасти!
У меня в проге есть панель, созданная из n-ного количества кнопок. 1. Каким образом можно менять кнопки местами, удалять, добавлять? 2. Как определить текущую кодировку (Win, Dos, Koi8r, Koi8u, Iso, Utf, другая)? 3. Как изменить инверсно регистр букв? 4. Как сделать, чтобы новое предложение начиналось с большой буквы? |
| Ответы | Всего ответов: 10 |
|
Номер ответа: 1 Автор ответа:  sne Разработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #1 | Добавлено: 15.11.04 18:46 |
|
// 1
Вручную !? // 3 UCase, LCase, StrRev // 4 for i = 1 ot len(str) if mid(str, i, 2) = ". " then ... next |
||
|
Номер ответа: 2 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #2 | Добавлено: 20.01.05 23:30 |
|
// 3
Невнимательно я читал 
По идее это надо какой-то бит поменять 
|
||
|
Номер ответа: 3 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #3 | Добавлено: 21.01.05 18:15 |
|
2) Это делается статистически: для обычных текстов считается процент каждого символа в них, а потом сравнивается с тем, что требуется распознать. Находится минимальная дисперсия и на основании этого выбирается кодировка.
3) Например, тупо if asc  >=asc("A" and asc<=asc("Z" then
a=lcase
elseif asc >=asc("a" and asc<=asc("z" then
a=ucase
elseif ... и т.д. |
||
|
Номер ответа: 4 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #4 | Добавлено: 21.01.05 18:28 |
|
Не, это не красиво )
|
||
|
Номер ответа: 5 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #5 | Добавлено: 21.01.05 18:46 |
| Хочешь красоты, инвертируй 5-й бит. Но это, вроде, только для латинских букв. | ||
|
Номер ответа: 6 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #6 | Добавлено: 21.01.05 19:09 |
|
) плохо, хотеть русский )
А вообще мне бы завтра экзамен сдать... |
||
|
Номер ответа: 7 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #7 | Добавлено: 21.01.05 19:59 |
|
Помолись доброй студенческой богине - Халяве
|
||
|
Номер ответа: 8 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #8 | Добавлено: 21.01.05 20:13 |
|
Неприменно... тока на нее, матушку, и надеюсь )
|
||
|
Номер ответа: 9 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #9 | Добавлено: 21.01.05 22:50 |
|
Я прогнал. Кириллица в win-1251 тоже переводится между регистрами инвертированием 5-го бита
|
||
|
Номер ответа: 10 Автор ответа: CyRax  Разработчик Offline Client ICQ: 204447456 Вопросов: 180 Ответов: 4229 |
Web-сайт: Профиль | | #10 | Добавлено: 22.01.05 03:05 |
|
Ага. Неудобно только если симол неалфавитный.
Const a As String = "Как изменить инверсно регистр букв?" Const Bit5 = &H20 Dim b As String, NextSymbol As Byte For EnumChars = 1 To Len
NextSymbol = Asc(Mid$(a, EnumChars, 1)) Xor Bit5 If NextSymbol = 0 Then NextSymbol = NextSymbol Xor Bit5 b = b & Chr$(NextSymbol) Next EnumChars MsgBox b |
||
Страница: 1 |