Распознавание смены шрифта

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
jetcom
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 181
Зарегистрирован: 12.01.2003 (Вс) 23:15
Откуда: Russia, Novorossiysk

Распознавание смены шрифта

Сообщение jetcom » 26.07.2003 (Сб) 22:48

Всем привет!
Существует ли какой - нибудь метод для распознавания в словосочетании, например: "автомагнитола PANASONIC" местоположения символа "P", т.е. первого, который написан латинским шрифтом???
Заранее благодарю!
Всё сбудется!!!

Oxygen
Белая и пушистая
Белая и пушистая
Аватара пользователя
 
Сообщения: 1314
Зарегистрирован: 15.07.2003 (Вт) 7:14
Откуда: Москва

Сообщение Oxygen » 26.07.2003 (Сб) 23:10

Попробуй сделать так:
Код: Выделить всё
a$ = Text1.Text
'нужный тебе текст
For i = 1 To Len(a$)
b$ = Mid$(a$, i, 1)
If Asc(b$) > 64 And Asc(b$) < 123 Then First = i: Exit For
Next i
Text1.Text = First
' first - первый символ вхождения латыницы


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: Google-бот, Yandex-бот и гости: 1

    TopList  
cron