Слово в слОвО...

[Евген]

как изменить в тексте, строчные буквы на прописные и обратно...

[vrodo]

Format ([expr as string],">") все КРУПНЫЕ
Format ([expr as string],"<") ВСЕ мелкие

Код: Выделить всё

MyStr = Format("HELLO", "<")   ' Returns "hello".
MyStr = Format("This is it", ">")   ' Returns "THIS IS IT".


[Urvin]

Если надо это: МаЗдАй -> мАзДаЙ , то через сумму/разность ASCII кодов

[GSerg]

Код: Выделить всё

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