Слово в слОвО...
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Сообщений: 4
• Страница 1 из 1
- Евген
- Обычный пользователь
-
- Сообщения: 66
- Зарегистрирован: 01.07.2003 (Вт) 14:13
- Откуда: СПб
Слово в слОвО...
Евген » 10.10.2003 (Пт) 10:31
как изменить в тексте, строчные буквы на прописные и обратно...
Ёж птица гордая, пока не пнешь - не полетит!
- vrodo
- Продвинутый пользователь
- Сообщения: 109
- Зарегистрирован: 09.10.2003 (Чт) 18:45
- Откуда: Дубна МО, Москва
vrodo » 10.10.2003 (Пт) 10:40
Format ([expr as string],">") все КРУПНЫЕ
Format ([expr as string],"<") ВСЕ мелкие
Format ([expr as string],"<") ВСЕ мелкие
- Код: Выделить всё
MyStr = Format("HELLO", "<") ' Returns "hello".
MyStr = Format("This is it", ">") ' Returns "THIS IS IT".
Чтобы понять свои ошибки их достаточно написать (c)
Интернет большой, ему видней
С наилучшими Пожеланиями и Всех Благ
Интернет большой, ему видней
С наилучшими Пожеланиями и Всех Благ
- GSerg
- Шаман
- Сообщения: 14286
- Зарегистрирован: 14.12.2002 (Сб) 5:25
- Откуда: Магадан
GSerg » 11.10.2003 (Сб) 7:13
- Код: Выделить всё
function invertcase(byval s as string) as string
dim i as long, tmpstr as string
for i=1 to len(s)
tmpstr=mid$(s,i,1)
if tmpstr=ucase$(tmpstr) then invertcase=invertcase+lcase$(tmpstr) else invertcase=invertcase+ucase$(tmpstr)
next
end function
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас
Сообщений: 4
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: AhrefsBot, Google-бот и гости: 5