Скачать: CL | DM;

Модифицировать строку   Найти похожие ветки 

← →
Елена ©   (2002-05-22 15:15) [0]

Имеется много строк вида "ИВАНОВ ИВАН ИВАНЫЧ". Необходимо модифицировать их в вид "Иванов Иван Иваныч". Подскажите, пожалуйста, алгоритм.
Заранее благодарна.

---

← →
Song ©   (2002-05-22 15:19) [1]

Переводите всё в маленькие затем у каждого слова меняете маленькую букву на большую.

---

← →
Елена ©   (2002-05-22 15:31) [2]

Можно еще разок для особо талантливых :o)?

---

← →
Song ©   (2002-05-22 15:34) [3]

А что непонятного?
Вот у Вас оигинал: ИВАНОВ ИВАН ИВАНЫЧ
Переводите в маленькие: иванов иван иваныч
Переводите первые буквы всех слов в большие: Иванов Иван Иваныч

---

← →
Внук ©   (2002-05-22 15:36) [4]

Это тот случай, когда проще самому написать, чем другому объяснить :)

---

← →
Елена ©   (2002-05-22 15:48) [5]

AnsiLowerCase - для перевода в маленькие, а как определить является ли символ - первой буквой слова?

---

← →
Канадин Владимир   (2002-05-22 15:55) [6]

В составе RX есть функция ExtractWord. Если лень разбираться - используй библиотеку

---

← →
Song ©   (2002-05-22 15:57) [7]

После того как Вы переведёте все буквы в маленькие, там уже бессмысленно определять является ли первая буква слова большой :))

---

← →
MBo ©   (2002-05-22 16:04) [8]

procedure qq(var s:string);
const letters=["а".."я","A".."Я","Ё","ё"];
var i:integer;
begin
s:=AnsiLowerCase(s);
if (s[1] in letters) then
s[1]:=ansiuppercase(s[1])[1];
for i:=2 to length(s) do
if (s[i] in letters) and (not (s[i-1] in letters))
then
s[i]:=ansiuppercase(s[i])[1];
end;


кроме того, в RXLib есть функция AnsiProperCase

---

← →
Song ©   (2002-05-22 16:09) [9]

2 MBo, 2 ALL
:))
В следующий раз я подпишусь Машей, когда буду вопрос задавать, чтобы долго не ждать :)

---

← →
Елена ©   (2002-05-22 16:10) [10]

MBo, Вы - чудо! Убеждаюсь в очередной раз.

---

← →
Внук ©   (2002-05-22 16:13) [11]

>>Song © (22.05.02 16:09)
И главное - терпение, чтобы готового кода дождаться :)

---

← →
MBo ©   (2002-05-22 16:21) [12]

>Song
> подпишусь Машей, чтобы долго не ждать
а что поделаешь, слаб я ;)

Как будто ты часто вопросы задаешь ;)

---

← →
Song ©   (2002-05-22 16:29) [13]

Ok, поймал, но когда нужно будет обязательно подпишусь :P

---

← →
MBo ©   (2002-05-22 16:42) [14]

>Song
про Treeview спрашивал, я же и так ответил ;)

---

← →
Song ©   (2002-05-22 16:44) [15]

:) Слушай MBO, а у тебя никогда не бывает вопросов? *))

---

← →
MBo ©   (2002-05-22 17:36) [16]

>Song
А я их под именем IHk задаю ;)

---

← →
Song ©   (2002-05-22 19:19) [17]

:)))))
Дык может тебе тогда помочь? Отвечать на вопросы.. рассказать как переменные освобождать... :))))

---

← →
lipskiy ©   (2002-05-22 21:40) [18]

Вот народ!
Поражаюсь вам!
Для кого базу-то делали??? (UBPFD)
http://delphibase.endimus.com/?action=viewfunc&topic=strchange&index=7
Уже полно готового кода!!!

TO ALL: GO TO UBPFD!!!

---

← →
MBo ©   (2002-05-23 07:27) [19]

>lipskiy
у меня надежней получилось ;)
("лениН©пАртия?комСомол")

нетрудно и английский алфавит добавить

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.008 c