ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как сложить символы слов если а=1 б=2 в=3 г=4
25 сообщений из 40, страница 1 из 2
  1  все
Как сложить символы слов если а=1 б=2 в=3 г=4
    #34652080
Forrtran
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Forrtran
Гость
Как сложить символы слов с помощью функции Len если а=1 б=2 в=3 г=4
...
Рейтинг: 0 / 0
11.07.2007, 06:55
| Ответить | Цитировать | Написать  
Как сложить символы слов если а=1 б=2 в=3 г=4
    #34652105
Фотография klen_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
klen_
Участник
Допустим вы сложили,
результат каким должен быть? не ясно
...
Рейтинг: 0 / 0
11.07.2007, 07:47
| Ответить | Цитировать | Написать  
Как сложить символы слов если а=1 б=2 в=3 г=4
    #34652125
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
ForrtranКак сложить символы слов с помощью функции Len если а=1 б=2 в=3 г=4
С помощью функции Len никак :-)
...
Рейтинг: 0 / 0
11.07.2007, 08:11
| Ответить | Цитировать | Написать  
Как сложить символы слов если а=1 б=2 в=3 г=4
    #34652144
AndreyMp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreyMp
Участник
Насколько мне известно авторLen(string | varname) - Возвращает длину строки string или количество байт, занимаемых переменной varname.
Так что сумму такВы никак не получите, только перебирая посимвольно и накапливая результат в какой нибудь переменной.
...
Рейтинг: 0 / 0
11.07.2007, 08:22
| Ответить | Цитировать | Написать  
Как сложить символы слов если а=1 б=2 в=3 г=4
    #34652207
Припёрся тут
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Припёрся тут
Гость
ForrtranКак сложить символы слов с помощью функции Len если а=1 б=2 в=3 г=4


Там, где вы, уважаемый про макрос просите, там поищите ответ!!!
...
Рейтинг: 0 / 0
11.07.2007, 09:10
| Ответить | Цитировать | Написать  
Как сложить символы слов если а=1 б=2 в=3 г=4
    #34653110
bac
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bac
Участник
Самое простое:
1. Сделать строку "абвгде ...." в которой номер позиции буквы будет совпадать с требуемым чилсом
2. Взять функцию instr для поиска позиции нужной буквы в строке
3. Вот собственно и все

Если же кодировка более сложная, то нужен еще одим массив со значениями кодов. И далее меняется п.3.
3. Взять число из массива с кодами
4. Вот и все в этом варианте.
...
Рейтинг: 0 / 0
11.07.2007, 13:03
| Ответить | Цитировать | Написать  
Как сложить символы слов если а=1 б=2 в=3 г=4
    #34653296
Просто тут
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Просто тут
Гость
bacСамое простое:
1. Сделать строку "абвгде ...." в которой номер позиции буквы будет совпадать с требуемым чилсом
2. Взять функцию instr для поиска позиции нужной буквы в строке
3. Вот собственно и все

Если же кодировка более сложная, то нужен еще одим массив со значениями кодов. И далее меняется п.3.
3. Взять число из массива с кодами
4. Вот и все в этом варианте.

Самое лучшее сделать: перейти на топик с макросом, который это в ворде делает
...
Рейтинг: 0 / 0
11.07.2007, 13:50
| Ответить | Цитировать | Написать  
Как сложить символы слов если а=1 б=2 в=3 г=4
    #34653309
Прога
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Прога
Гость
bacСамое простое:
1. Сделать строку "абвгде ...." в которой номер позиции буквы будет совпадать с требуемым чилсом
2. Взять функцию instr для поиска позиции нужной буквы в строке
3. Вот собственно и все

Если же кодировка более сложная, то нужен еще одим массив со значениями кодов. И далее меняется п.3.
3. Взять число из массива с кодами
4. Вот и все в этом варианте.

А вы не подскажите, где это вы такой метод узнали?
...
Рейтинг: 0 / 0
11.07.2007, 13:53
| Ответить | Цитировать | Написать  
Как сложить символы слов если а=1 б=2 в=3 г=4
    #34653550
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Просто тут bacСамое простое:
1. Сделать строку "абвгде ...." в которой номер позиции буквы будет совпадать с требуемым чилсом
2. Взять функцию instr для поиска позиции нужной буквы в строке
3. Вот собственно и все

Если же кодировка более сложная, то нужен еще одим массив со значениями кодов. И далее меняется п.3.
3. Взять число из массива с кодами
4. Вот и все в этом варианте.

Самое лучшее сделать: перейти на топик с макросом, который это в ворде делает

На самом деле не самое лучшее:
1) То что в том документе сделано делается проще
Код: plaintext
1.
2.
3.
4.
5.
6.
Sub Макрос2()
Dim j As Long, s As Long
 For j =  1  To ActiveDocument.Characters.Count -  1 
   s = s + (Asc(Characters(j)) -  223 )
 Next
 MsgBox s
End Sub
2) Во вторых не совсем удачное решение, т.к. ограничено сильно
3) Лучше действительно определить для себя свой массив, в котором по-порядку будут символы, например
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Sub Макрос3()
Dim j As Long, s As Long
Dim str1 As String
str1 = "абвгде***"
 For j =  1  To ActiveDocument.Characters.Count -  1 
   s = s + InStr( 1 , str1, Characters(j))
 Next
 MsgBox s
End Sub
...
Рейтинг: 0 / 0
11.07.2007, 14:42
| Ответить | Цитировать | Написать  
Как сложить символы слов если а=1 б=2 в=3 г=4
    #34653559
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
В последнем случае -1 не нужно
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Sub Макрос3()
Dim j As Long, s As Long
Dim str1 As String
str1 = "абвгде***"
 For j =  1  To ActiveDocument.Characters.Count
   s = s + InStr( 1 , str1, Characters(j))
 Next
 MsgBox s
End Sub
...
Рейтинг: 0 / 0
11.07.2007, 14:44
| Ответить | Цитировать | Написать  
Как сложить символы слов если а=1 б=2 в=3 г=4
    #34653671
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
В предыдущем примере, мне кажется, суммироваться будут буквы по их позиции в строке, а не в алфавите.

Вот мой вариант, учитывающий алфавитную позицию букв:

Код: plaintext
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.
Option Explicit

Dim mobjMyDic As New Dictionary

Private Sub Command1_Click()
    Dim strMyString As String
    Dim i As Integer
    Dim intMySum As Integer
    
    strMyString = "cdef"
    
    For i =  1  To Len(strMyString)
        intMySum = intMySum + mobjMyDic.Item(Mid(strMyString, i,  1 ))
    Next i
        
End Sub

Private Sub Form_Load()
    LoadMyDic
End Sub

Private Sub LoadMyDic()
    
    With mobjMyDic
        .Add "a",  1 
        .Add "b",  2 
        .Add "c",  3 
        .Add "d",  4 
        .Add "e",  5 
        .Add "f",  6 
        .Add "g",  7 
        '...
    End With

End Sub
...
Рейтинг: 0 / 0
11.07.2007, 15:08
| Ответить | Цитировать | Написать  
Как сложить символы слов если а=1 б=2 в=3 г=4
    #34653772
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
[quot VladConn]В предыдущем примере, мне кажется, суммироваться будут буквы по их позиции в строке, а не в алфавите.
А в чём же разница? Если у меня строка с буквами в алфавитном порядке записана?
...
Рейтинг: 0 / 0
11.07.2007, 15:29
| Ответить | Цитировать | Написать  
Как сложить символы слов если а=1 б=2 в=3 г=4
    #34653818
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
Deggasad[quot VladConn]В предыдущем примере, мне кажется, суммироваться будут буквы по их позиции в строке, а не в алфавите.
А в чём же разница? Если у меня строка с буквами в алфавитном порядке записана?

А если нет?
...
Рейтинг: 0 / 0
11.07.2007, 15:36
| Ответить | Цитировать | Написать  
Как сложить символы слов если а=1 б=2 в=3 г=4
    #34653869
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
И потом, у вас там ActiveDocument... Подразумевается Word? Почему именно он?
...
Рейтинг: 0 / 0
11.07.2007, 15:48
| Ответить | Цитировать | Написать  
Как сложить символы слов если а=1 б=2 в=3 г=4
    #34653896
Прога
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Прога
Гость
VladConnИ потом, у вас там ActiveDocument... Подразумевается Word? Почему именно он?

А кто сказал, что то был окончательный вариант, вы хорошо читали????????????
То был вариант на скорую руку!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

И уж мне про свои массивы символов вы можете не объяснять, эту технологию вроде как я первый и предлагал в одном топике про транслит. В ВС2005 это решается уже гораздо легче, коллекции, классы, и прочая фигня, только разобраться осталось
...
Рейтинг: 0 / 0
11.07.2007, 15:52
| Ответить | Цитировать | Написать  
Как сложить символы слов если а=1 б=2 в=3 г=4
    #34653941
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
Прога VladConnИ потом, у вас там ActiveDocument... Подразумевается Word? Почему именно он?

А кто сказал, что то был окончательный вариант, вы хорошо читали????????????
То был вариант на скорую руку!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

И уж мне про свои массивы символов вы можете не объяснять, эту технологию вроде как я первый и предлагал в одном топике про транслит. В ВС2005 это решается уже гораздо легче, коллекции, классы, и прочая фигня, только разобраться осталось

Что я могу и что не могу - это мое личное дело. Прошу в мои дела не лезть.

Насчет разобраться. Вот просьба разобраться. Мой пример подойдет.

Я пока не нашел, что вариант "на скорую руку" работает так, как просили.

И с чего вдруг столько эмоций?
...
Рейтинг: 0 / 0
11.07.2007, 16:01
| Ответить | Цитировать | Написать  
Как сложить символы слов если а=1 б=2 в=3 г=4
    #34654046
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Поясню ещё раз...
Без Ворда
Если так ничего и не поймёшь, то я не знаю

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Sub Макрос3()
Dim j As Long, s As Long
Dim str1 As String, myText As String
str1 = "абвгдеёжзийклмнопрсту" ' дальше забыл :)
myText = "гвба"
 For j =  1  To Len(myText)
   s = s + InStr( 1 , str1, Mid(myText, j,  1 ))
 Next
 MsgBox s
End Sub
...
Рейтинг: 0 / 0
11.07.2007, 16:25
| Ответить | Цитировать | Написать  
Как сложить символы слов если а=1 б=2 в=3 г=4
    #34654053
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
VladConnИ потом, у вас там ActiveDocument... Подразумевается Word? Почему именно он?

Потому что автор топика в соседнем топике просил в ворде!
...
Рейтинг: 0 / 0
11.07.2007, 16:27
| Ответить | Цитировать | Написать  
Как сложить символы слов если а=1 б=2 в=3 г=4
    #34654099
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
Deggasad VladConnИ потом, у вас там ActiveDocument... Подразумевается Word? Почему именно он?

Потому что автор топика в соседнем топике просил в ворде!

ОК, но где вы видите соседний топик от Forrtran?
...
Рейтинг: 0 / 0
11.07.2007, 16:36
| Ответить | Цитировать | Написать  
Как сложить символы слов если а=1 б=2 в=3 г=4
    #34654122
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
DeggasadПоясню ещё раз...
Без Ворда
Если так ничего и не поймёшь, то я не знаю

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Sub Макрос3()
Dim j As Long, s As Long
Dim str1 As String, myText As String
str1 = "абвгдеёжзийклмнопрсту" ' дальше забыл :)
myText = "гвба"
 For j =  1  To Len(myText)
   s = s + InStr( 1 , str1, Mid(myText, j,  1 ))
 Next
 MsgBox s
End Sub


Да, это - хорошо.

После "у" идет "ф" :0)
...
Рейтинг: 0 / 0
11.07.2007, 16:40
| Ответить | Цитировать | Написать  
Как сложить символы слов если а=1 б=2 в=3 г=4
    #34654241
Ghjuf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ghjuf
Гость
VladConn DeggasadПоясню ещё раз...
Без Ворда
Если так ничего и не поймёшь, то я не знаю

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Sub Макрос3()
Dim j As Long, s As Long
Dim str1 As String, myText As String
str1 = "абвгдеёжзийклмнопрсту" ' дальше забыл :)
myText = "гвба"
 For j =  1  To Len(myText)
   s = s + InStr( 1 , str1, Mid(myText, j,  1 ))
 Next
 MsgBox s
End Sub


Да, это - хорошо.

После "у" идет "ф" :0)

а также хцчшщъыьэюя
странно, что мой вариант слагают кто-непопадя, даже не могут свой вариант написать не пользуясь копипастом из моего
...
Рейтинг: 0 / 0
11.07.2007, 17:07
| Ответить | Цитировать | Написать  
Как сложить символы слов если а=1 б=2 в=3 г=4
    #34654300
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
Что вы имеете ввиду?
...
Рейтинг: 0 / 0
11.07.2007, 17:18
| Ответить | Цитировать | Написать  
Как сложить символы слов если а=1 б=2 в=3 г=4
    #34654370
Фотография Magnus23
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Magnus23
Участник
Прога VladConnИ потом, у вас там ActiveDocument... Подразумевается Word? Почему именно он?

А кто сказал, что то был окончательный вариант, вы хорошо читали????????????
То был вариант на скорую руку!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

И уж мне про свои массивы символов вы можете не объяснять, эту технологию вроде как я первый и предлагал в одном топике про транслит. В ВС2005 это решается уже гораздо легче, коллекции, классы, и прочая фигня, только разобраться осталось
Ден, спокойнее. Айпишник у тебя статический и если возникнетг необходимость я его заблокирую. Тебе люди помогают, тратят на тебя свое время, почему ты им так по-хамски отвечаешь?
Смотри. Все зависит от тебя теперь. Если будешь продолжать в том же духе - пеняй на себя.
...
Рейтинг: 0 / 0
11.07.2007, 17:39
| Ответить | Цитировать | Написать  
Как сложить символы слов если а=1 б=2 в=3 г=4
    #34654502
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
VladConn Deggasad VladConnИ потом, у вас там ActiveDocument... Подразумевается Word? Почему именно он?

Потому что автор топика в соседнем топике просил в ворде!

ОК, но где вы видите соседний топик от Forrtran?

Наверное модератор убил за ненадобностью! Хрен его знает.
...
Рейтинг: 0 / 0
11.07.2007, 18:13
| Ответить | Цитировать | Написать  
Как сложить символы слов если а=1 б=2 в=3 г=4
    #34654509
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Ghjuf VladConn DeggasadПоясню ещё раз...
Без Ворда
Если так ничего и не поймёшь, то я не знаю

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Sub Макрос3()
Dim j As Long, s As Long
Dim str1 As String, myText As String
str1 = "абвгдеёжзийклмнопрсту" ' дальше забыл :)
myText = "гвба"
 For j =  1  To Len(myText)
   s = s + InStr( 1 , str1, Mid(myText, j,  1 ))
 Next
 MsgBox s
End Sub


Да, это - хорошо.

После "у" идет "ф" :0)

а также хцчшщъыьэюя
странно, что мой вариант слагают кто-непопадя, даже не могут свой вариант написать не пользуясь копипастом из моего

На авторство не претендую. Всего навсего хотел пояснить. Знал бы куда сослаться - сослался бы, да не знаю к сожалению.
...
Рейтинг: 0 / 0
11.07.2007, 18:14
| Ответить | Цитировать | Написать  
25 сообщений из 40, страница 1 из 2
  1  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как сложить символы слов если а=1 б=2 в=3 г=4
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=34654241&tid=2163735]:
 0ms
get settings:
 7ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 165ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 61ms
get tp. blocked users:
 3ms
others: 212ms
total:  479ms
созд. / загр.: 479ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]