alinachepik
1

Определить количество символов "*", стоящих после запятой в строке

24.12.2012, 21:40. Показов 3458. Ответов 1
Метки нет (Все метки)

Помогите пожалуйста сделать программы!

1. Дана строка. Известно, что среде ее символов есть двоеточие. Определить количество символов * стоящих после запятой.
 Комментарий модератора 
п.4.4 На каждый вопрос создавайте по одной теме - это помогает избежать путаницы в ответах и облегчает поиск.

Создайте новую тему со вторым вопросом.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.12.2012, 21:40
Ответы с готовыми решениями:

В строке имеется одна точка с запятой. Подсчитать количество символов до точки с запятой и после неё
В строке имеется одна точка с запятой. Подсчитать количество символов до точки с запятой и после...

Посчитать количество букв "А" в строке символов
Посчитать количество букв "А" в строке символов

Как вычислить количество символов до N-ой запятой в строке?
как вычислить количество символов до N-ой запятой в строке (справа и слева) Спасибо!

Подсчитать количество символов до точки с запятой и после нее
2. В строке имеется одна точка с запятой (;). Подсчитать количество символов до точки с запятой и...

1
5462 / 1142 / 50
Регистрация: 15.09.2012
Сообщений: 3,450
25.12.2012, 15:24 2
Лучший ответ Сообщение было отмечено как решение

Решение

alinachepik, двоеточие никакой роли не играют в вашем задании.

Код ниже учитывает только одну ситуацию, что после запятой идут символы "*":
Кликните здесь для просмотра всего текста
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
Sub Procedure_1()
 
    Dim sString As String
    Dim lCount As Long
    Dim i As Long
    
    'В переменную "sString" помещаем текст,
    'который нужно проанализировать.
    sString = "text, text**,**"
    
    '1. С помощью цикла Do ... Loop анализируем каждый
        'символ в переменной "sString". Цикл повторяем до тех пор,
        'пока не будут проанализированы все символы в переменной "sString".
    '2. С помощью "Len" узнаём количество символов в переменной "sString".
        'Len(sString) - 1 - т.к. если последний символ и является запятой,
        'то после него уже не может быть ничего.
    '3. С помощью переменной "i" будем обращаться к каждому
        'символу в переменной "sString" по порядковому номеру символа.
    
    'В переменную "i" помещаем число один, что означает,
    'что мы будем сначала обращаться к первому символу.
    i = 1
    Do While i <= Len(sString) - 1
        
        'С помощью "Mid" берём отдельный символ из строки.
        
        'Если символ является запятой, то смотрим,
        'что находится после запятой.
        If Mid(sString, i, 1) = "," Then
        
            'Переход к следующему символу.
            i = i + 1
            
            '1. Здесь будет цикл, в котором будут просматриваться
                'символы "*".
            '2. Если символ - это "*", то входим в этот цикл.
            '3. Цикл будет повторяться до тех пор, пока встречается
                'символ "*" и пока не достигнут последний символ анализируемого текста.
            
            'Если символ - это "*".
            Do While Mid(sString, i, 1) = "*" And _
                i <= Len(sString)
                
                'Подсчитываем количество символов "*".
                lCount = lCount + 1
            
                'Переход к следующему символу.
                i = i + 1
            
            Loop
            
            'Выходим из цикла, т.к. предполагается только
            'одна ситуация, когда встречается запятая и символы "*".
            'Если был вход в цикл, то переменная "lCount" не будет содержать ноль.
            If lCount <> 0 Then
                Exit Do
            End If
            
        Else
        
            'Переход к следующему символу.
            i = i + 1
        
        End If
        
    Loop
    
    'Выводим на монитор сообщение с результатом.
    MsgBox "Результат: " & lCount
 
End Sub
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.12.2012, 15:24

В последнем абзаце удалить все вхождения символов "+","-", "*"
Дан любой текст В последнем абзаце удалить все вхождения символов &quot;+&quot;,&quot;-&quot;, &quot;*&quot;.

Как после определенного символа в строке поставить ";"
данные содержатся в txt формате нужно из него сделать csv подскажите пожалуйста как после...

В форме создать кнопку, которая будет изменять текст в определенной строке Excel с "неоплачено" на "оплачено"
Добрый вечер, необходимо в форме создать кнопку которая будет изменять текст в ячейке экселя с...

Присвоение ячейкам символов "✔" и "✘"
VBE не хочет напрямую назначать Cells(1,1).Value = &quot;✔&quot; или Cells(1,1).Value = &quot;✘&quot; ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.