Имя: Пароль:
1C
 
Первое слово в строке (1С 7,7)
0 Валерия
 
30.01.07
11:54
Здравствуйте! Помогите, в документе есть комментарий и мне из него нужно вытащить первое слово. Я понимаю, что нужно перебирать символы до проблела, но не помню какой код у пробела.
1 Валерия
 
30.01.07
11:55
Как написать сам цикл перебора?
2 sapphire
 
30.01.07
11:56
{То, что тебе нужно}=СокрП(Док.Комментарий,Лев(Найти(Док.Комментарий," ")));
3 sapphire
 
30.01.07
11:56
очепятка:
СокрП(Лев(Док.Комментарий,Найти(Док.Комментарий," ")));
4 jcage
 
30.01.07
11:56
(2) Зачет)
5 jcage
 
30.01.07
11:57
(2,3) а вообще по правилам форума сначала надо было потребовать фотку!
6 Валерия
 
30.01.07
11:57
(2) Спасибо огромненькое!!!!! :))))
7 mergan
 
30.01.07
11:58
перебирать не надо

чисПозция = Найти(Комментарий, " ");
если чисПозция > 0 тогда
 стрПервоеСлово = лев(Комментарий, чисПозция);
8 sapphire
 
30.01.07
11:58
(5)Это по каким таким правилам? Да и никчему мне фотка :)
9 Эльниньо
 
30.01.07
11:58
Фотку!
10 sapphire
 
30.01.07
11:58
(7) Можно не проверять
11 sapphire
 
30.01.07
11:59
(9) Ффтоппку!
12 Валерия
 
30.01.07
12:07
(11) Не надо меня Ффтоппку! :))))
13 Эльниньо
 
30.01.07
12:07
(12) Тогда (9)
14 mergan
 
30.01.07
12:09
это меня в топку...
15 sapphire
 
30.01.07
12:10
(11) пост адресован (9) :)
16 Omega
 
30.01.07
12:11
текст = стрзаменить(комментарий, " ", РазделительСтрок);
первоеслово = стрполучитьстроку(текст,1);
17 orefkov
 
30.01.07
12:18
(3)
Не зачет. Несработает, если в строке только одно слово, или строка начинается с пробелов.
Вот так надо:
СтрПолучитьСтроку(СтрЗаменить(СокрЛ(Док.Комментарий), " ", РазделительСтрок), 1)
18 sapphire
 
30.01.07
12:20
(17) А я и не ставил цель написать готовый copy/paste код :)
19 AeDen
 
30.01.07
12:21
(18) Ага, выпендриться хотел перед девушкой значит))))