Имя: Пароль:
1C
1С v8
Как из буквы абвгдПРИВЕТабвгд вытащить текст ,,ПРИВЕТ"
0 Kcompany
 
29.11.13
23:35
Как из буквы абвгдПРИВЕТабвгд вытащить текст ,,ПРИВЕТ" с помощи Индекса
ну и Указать что текст привет это переменная А
1 GANR
 
29.11.13
23:38
(0) Сред(ТвояСтрока, 6, 6)
2 PR
 
29.11.13
23:38
ИскомыйТекст = А.
Тупизм какой-то.
3 Kcompany
 
29.11.13
23:40
ой про переменой я зря спросил :)

А = ПРИВЕТ;
4 Kcompany
 
29.11.13
23:41
А Цикл какой будет?
5 фобка
 
29.11.13
23:44
(4) задачу сформулируй нормально. Что нужно-то?
У тебя есть уже переменная, и ты ее знаешь это "ПРИВЕТ".
Ты хочешь найти ее в тексте?
Найти("абвгдПРИВЕТабвгд",А) - стартовая позиция
6 Научите меня
 
29.11.13
23:44
(0) из примера не понятна задача! Тебе надо все заглавные буквы вытащить или что? Или с помощью цикла пройтись по строке посимвольно?
7 Explorer1c
 
29.11.13
23:45
Не слушай PR, он ничего не знает!

НужнаяСтрока = "";

Если СтрЧислоВхождений(ПеременнаяСтрока, "Привет") > 0 тогда
      НужнаяСтрока = ПеременнаяСтрока;
КонецЕсли;

Если ЗначениеЗаполнено(НужнаяСтрока) тогда
     Сообщить("Операция выполнена! Нашли строку, а PR ничего               не знает!" + НужнаяСтрока);
КонецЕсли;
8 Kcompany
 
29.11.13
23:51
Научите меня с помощью цикла пройтись по строке посимвольно
9 Aleksey
 
29.11.13
23:53
(8) НашТекст = " абвгдПРИВЕТабвгд";
Для й=1 по СтрДлина(НашТекст) цикл
ТекСимвол = Сред(НашТекст,й,1);
Сообщить (""+й+" символ = "+ТекСимвол);
КонецЦикла;
10 Explorer1c
 
29.11.13
23:54
(9) неправильно
11 Explorer1c
 
29.11.13
23:56
перемееной "й" не должно быть в природе! и "ТекущийСимвол" надо писать
12 Kcompany
 
29.11.13
23:57
я после цикла укажу что слово ПРИВЕТ это переменная А её надо вытащить
абвгд"ПРИВЕТ"абвгд
13 Explorer1c
 
29.11.13
23:59
(12) да всем на№рать на тебя!
14 фобка
 
29.11.13
23:59
(12) куда вытащить?
15 Kcompany
 
29.11.13
23:59
привет это одно слово "привет" выглядит как-то так "а"б"в"г"д""ПРИВЕТ""а"б"в"г"д"
16 фобка
 
30.11.13
00:02
(15) в одной строке?
надо определиться с понятиями.. цикл по строке (посимвольно) тебе показали, что ты будешь из этого собирать непонятно
17 Научите меня
 
30.11.13
00:02
(15) Если ты его знаешь заранее, зачем тебе его вытаскивать? Расскажи в чем задача все же - найти место где оно начинается или сколько раз оно встречается?
18 Kcompany
 
30.11.13
00:02
фобка ну не совсем вытащить доить до неё(текст) указать что ПРИВЕТ это переменная А и сообщить его
19 фобка
 
30.11.13
00:02
откуда ты знаешь что тебе нужен "ПРИВЕТ"?
20 фобка
 
30.11.13
00:03
(18) так ты доишь по-символьно, а привет это строка длиной 6 символов
21 Kcompany
 
30.11.13
00:03
ну там не будет привет а будет 123"+"321 как-то так
22 Explorer1c
 
30.11.13
00:05
(18) Зачем тебе перебирать строку посимвольно, если тебе нужно вхождение одного слова в строку? По-моему ты девушка и ты накурена!
23 Научите меня
 
30.11.13
00:06
(21) Так может тебе все цифры нужно оставить? Я не знаю кто на этом форуме в роли Ванги выступает
24 фобка
 
30.11.13
00:06
(21) И?
Если Найти("абвгдПРИВЕТабвгд",А) = 0 Тогда
Сообщить("Нет привета");
Иначе
Сообщить("Привет тут "+Найти("абвгдПРИВЕТабвгд",А));
КонецЕсли;
25 Kcompany
 
30.11.13
00:08
123"+"321 ой не вытащить просто доить до + и указать что он
"+" является переменой А
26 Kcompany
 
30.11.13
00:09
Explorer1c Я в 1с новичок :)
27 фобка
 
30.11.13
00:10
(25) нет, по-символьно это по одному символу: ты дошел до "П" и сравнил с "ПРИВЕТ" - оказалось что не совпадает, на следующем шаге получил "Р" сравнил с "ПРИВЕТ" и тоже не совпало
28 Explorer1c
 
30.11.13
00:11
(26) PR тоже когда-то был новичком, а сейчас уже пиджак себе новый купил!
29 Злобный Фей
 
30.11.13
00:13
30 Kcompany
 
30.11.13
00:13
фобка окей :( ты прав мне нужно только например "П" как доить до него с помашу индекса и указать что "П" это переменная
А
31 Explorer1c
 
30.11.13
00:15
Треба на работу

Консультат 1с
Программист 1с
Доярка 1с
32 фобка
 
30.11.13
00:18
(30)
МойТекст = "абвгдПРИВЕТабвгд";
МояА = "П";

Для ш = 1 По СтрДлина(МойТекст ) Цикл
   Если Сред(МойТекст, ш, 1) = МояА Тогда
      Сообщить("Тута "+П+" символь №"+ш);
      Прервать;
   КонецЕсли;
КонецЦикла;
33 Kcompany
 
30.11.13
00:19
фобка Спасиб как то так :)
34 Kcompany
 
30.11.13
00:23
фобка тебя забанили как ты коменты пишешь?
35 фобка
 
30.11.13
00:30
(34) сунул на лапу, кому следует
36 Kcompany
 
30.11.13
00:36
круть:) Главное что смог взять на руку ^_^
37 Aleksey
 
30.11.13
01:29
(34) забанили в секции забегаловка, в других секциях писать может
38 KRV
 
30.11.13
13:48
Не только писать, но и какать
39 ОдинСерый
 
30.11.13
14:24
найти мне в БУКВЕ то "незнамочто" :)))
(главное еще в букве у нас уже в алфавите появились многосимвольные буквы :))) )