Есть ли в Харборе функция ... ?

Форум » [x]Harbour » Есть ли в Харборе функция ... ? » Ответить

Есть ли в Харборе функция ... ?

Andrey: Всем привет ! Есть ли в хХарборе функция по переводу в UPPER() ПЕРВОЙ буквы в строковой переменной ? Это чтобы фамилии,имена - красиво выводить... Или самому писать нужно ? Это просто конечно, но в других языках вроде есть...

Ответов - 11

Dima: Вроде есть , на в сидку не скажу , но и свою написать не сложно. Пошукай ChangeLog.txt на предмет UPPER

santy: попробуйте так: Function UppercaseFirst(strData) Return IIF(Empty(strData),"",Upper(Left(strData,1))+SubStr(strData,2)) или Function UppercaseFirst1(strData) Return IIF(Empty(strData),"",Upper(strData[1])+SubStr(strData,2))

AlexMyr: santy пишет: Function UppercaseFirst(strData) Return IIF(Empty(strData),"",Upper(Left(strData,1))+SubStr(strData,2)) Лучше уж так Function UppercaseFirst(strData) Return IIF(Empty(strData),"",Upper(Left(strData,1))+Lower(SubStr(strData,2)))

Dima: А можно и так ;) ? TokenUpper("test") // Test

AlexMyr: Dima пишет: А можно и так ;) ? TokenUpper("test") // Test Можно, только что делать в таком случае ? TokenUpper("teSt") //TeSt значит так надо TokenUpper(Lower("teSt"))

petr707: TokenUpper(lower(x))

Dima: AlexMyr Вопрос стоял так ;) Andrey пишет: Есть ли в хХарборе функция по переводу в UPPER() ПЕРВОЙ буквы в строковой переменной ?

AlexMyr: Andrey пишет: Это чтобы фамилии,имена - красиво выводить... Ну, если чтоб красиво было, тогда пусть только ПЕРВОЙ буквы.

petr707: Реально бывают двойные фамилии через дефис или пробел (Миклухо-Маклай ?) так что в Upper нужно переводить не только самый первый, а первый после пробела, дефиса...

Dima: petr707 ? TokenUpper( "мамин-сибиряк"," -") // Мамин-Сибиряк

Andrey: Уф... Порадовали вы меня... Всем БОЛЬШОЕ СПАСИБО !!!

полная версия страницы