ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Cлово с английского должно писаться по русски
46 сообщений из 46, показаны все 2 страниц
  все  
Cлово с английского должно писаться по русски
    #34089529
Suleyman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Suleyman
Гость
Подскажите как сделать что бы слово с английского писалось по русски. пример: в ячейке А1 - Рetr Ivanov, соответственно в ячейке А2 после исполнения макроса будет - Петр Иванов, и сооотв-но любые варианты имен.
...
Рейтинг: 0 / 0
29.10.2006, 18:46
| Ответить | Цитировать | Написать  
Cлово с английского должно писаться по русски
    #34089943
Фотография klen_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
klen_
Участник
Думаю придётся повозиться. А для начала вот так...
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
russA1=""
dlina = Len( A1 )
For i =  1  to dlina
     r = ""
     s = Mid( A1, i,  1  ) 
     Select case True
              case s = "A": r = "А"
              case s = "B": r = "Б"
              case s = "C": r = "С"
              case s = "D": r = "Д"
              ' и так далее
     End Select
     russA1 = russA1 + r
Next
...
Рейтинг: 0 / 0
30.10.2006, 07:47
| Ответить | Цитировать | Написать  
Cлово с английского должно писаться по русски
    #34091724
Suleyman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Suleyman
Гость
Спасибо. Еще, если не трудно подскажите как сделать что бы всё это дело выполнялось на листе "INFO", и что бы осталось только вставить в модуль. Да, и что делать с такими буквами как "ch, sh"?
...
Рейтинг: 0 / 0
30.10.2006, 16:05
| Ответить | Цитировать | Написать  
Cлово с английского должно писаться по русски
    #34091794
Charles Weyland
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Charles Weyland
Участник
Расширить надо предложенную программу:
Код: 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.
35.
36.
37.
russA1=""
dlina = Len( A1 )
'Сначала обрабатываем самые "длинные" буквы:
i =  1 
do while i<= dlina
     r = ""
     s = lcase$(Mid$( A1, i,  4  ))
     Select case True
              case s = "ch": r = "ч"
              case s = "sh": r = "ш"
              case s = "zg": r = "ж"
              ' и так далее
     End Select
     'Проверю, малоли буква большая была:
     s = Mid$( A1, i,  4  ) 
     if ucase$(left$(s, 1 ))=left$(s, 1 ) then r=ucase$(r)
     russA1 = russA1 + r
     i=i+ 1 
loop

i =  1 
do while i<= dlina
     r = ""
     s = lcase$(Mid$( A1, i,  4  ))
     Select case True
              case s = "A": r = "А"
              case s = "B": r = "Б"
              case s = "C": r = "С"
              case s = "D": r = "Д"
              ' и так далее
     End Select
     'Проверю, малоли буква большая была:
     s = Mid$( A1, i,  4  ) 
     if ucase$(left$(s, 1 ))=left$(s, 1 ) then r=ucase$(r)
     russA1 = russA1 + r
     i=i+ 1 
loop
...
Рейтинг: 0 / 0
30.10.2006, 16:19
| Ответить | Цитировать | Написать  
Cлово с английского должно писаться по русски
    #34091811
Charles Weyland
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Charles Weyland
Участник
Ёлы-палы, ошибочку допустил
Код: 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.
35.
36.
37.
russA1=""
dlina = Len( A1 )
'Сначала обрабатываем самые "длинные" буквы:
i =  1 
do while i<= dlina
     r = ""
     s = lcase$(Mid$( A1, i,  2  ))
     Select case True
              case s = "ch": r = "ч"
              case s = "sh": r = "ш"
              case s = "zg": r = "ж"
              ' и так далее
     End Select
     'Проверю, малоли буква большая была:
     s = Mid$( A1, i,  2  ) 
     if ucase$(left$(s, 1 ))=left$(s, 1 ) then r=ucase$(r)
     russA1 = russA1 + r
     i=i+ 1 
loop

i =  1 
do while i<= dlina
     r = ""
     s = lcase$(Mid$( A1, i,  1  ))
     Select case True
              case s = "a": r = "а"
              case s = "b": r = "б"
              case s = "c": r = "ц"
              case s = "d": r = "д"
              ' и так далее
     End Select
     'Проверю, малоли буква большая была:
     s = Mid$( A1, i,  1  ) 
     if ucase$(left$(s, 1 ))=left$(s, 1 ) then r=ucase$(r)
     russA1 = russA1 + r
     i=i+ 1 
loop
вот... вроде, без ошибок теперь... ну в общем, если что не так - отладишь, смысл ты понял, я надеюсь
...
Рейтинг: 0 / 0
30.10.2006, 16:21
| Ответить | Цитировать | Написать  
Cлово с английского должно писаться по русски
    #34092485
Suleyman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Suleyman
Гость
Смысл я понял, спасибо, помогите закончить, не врублюсь как его запустить. Не силен я в программировании. Нужно что бы работал на листе "INFO", я так думаю всё это вставить нужно в модуль, пытаюсь но не получается.
...
Рейтинг: 0 / 0
30.10.2006, 21:58
| Ответить | Цитировать | Написать  
Cлово с английского должно писаться по русски
    #34094167
Suleyman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Suleyman
Гость
Мужики, ну помогите доделать, пол шага осталось. У самого не получается. Ставлю в модуль, он не работает. Напишите если можно полностью. please!
...
Рейтинг: 0 / 0
31.10.2006, 13:59
| Ответить | Цитировать | Написать  
Cлово с английского должно писаться по русски
    #34095968
timtim
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
timtim
Участник
...
Рейтинг: 0 / 0
31.10.2006, 23:51
| Ответить | Цитировать | Написать  
Cлово с английского должно писаться по русски
    #34099145
timtim
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
timtim
Участник
...
Рейтинг: 0 / 0
01.11.2006, 22:17
| Ответить | Цитировать | Написать  
Cлово с английского должно писаться по русски
    #34099246
Suleyman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Suleyman
Гость
Огромное спасибо, супер!
...
Рейтинг: 0 / 0
01.11.2006, 23:53
| Ответить | Цитировать | Написать  
Cлово с английского должно писаться по русски
    #34099355
Suleyman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Suleyman
Гость
Есть не большие проблемки в работе, на пример:
1) "Shatskiy" пишется как "ШСхатский", можно было бы вручную до корректировать, а не получается, всё равно в рабочей ячейке возвращается то как задаёт макрос.
2) Мягкий знак если использовать апостроф ' почему то увеличивается в размере?
3) Да и возможность подкорректировать вручную думаю всегда пригодится.

Пожалуйста, если не трудно, помогите закончить
Заранее благодарен!

Код: 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.
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.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim b9 As String
russB9 = ""
b9 = Range("B9").Value
dlina = Len(b9)
'Сначала обрабатываем самые "длинные" буквы:
i =  1 
Do While i <= dlina
     r = ""
     s = LCase$(Mid$(b9, i,  2 ))
     Select Case True
              Case s = "ch": r = "ч"
              Case s = "sh": r = "ш"
              Case s = "zg": r = "ж"
              ' и так далее
     End Select
     'Проверю, малоли буква большая была:
     s = Mid$(b9, i,  2 )
     If UCase$(Left$(s,  1 )) = Left$(s,  1 ) Then r = UCase$(r)
     russB9 = russB9 + r
     i = i +  1 
Loop

i =  1 
Do While i <= dlina
     r = ""
     s = LCase$(Mid$(b9, i,  1 ))
     Select Case True
              Case s = "a": r = "а"
              Case s = "b": r = "б"
              Case s = "c": r = "к"
              Case s = "d": r = "д"
              Case s = "e": r = "е"
              Case s = "f": r = "ф"
              Case s = "g": r = "г"
              Case s = "h": r = "х"
              Case s = "i": r = "и"
              Case s = "j": r = "й"
              Case s = "k": r = "к"
              Case s = "l": r = "л"
              Case s = "m": r = "м"
              Case s = "n": r = "н"
              Case s = "o": r = "о"
              Case s = "p": r = "п"
              Case s = "q": r = "к"
              Case s = "r": r = "р"
              Case s = "s": r = "с"
              Case s = "t": r = "т"
              Case s = "u": r = "у"
              Case s = "v": r = "в"
              Case s = "w": r = "в"
              Case s = "x": r = "д"
              Case s = "y": r = "й"
              Case s = "'": r = "д"
              Case s = " ": r = " "
     End Select
     'Проверю, малоли буква большая была:
     s = Mid$(b9, i,  1 )
     If UCase$(Left$(s,  1 )) = Left$(s,  1 ) Then r = UCase$(r)
     russB9 = russB9 + r
     i = i +  1 
Loop
Range("d9").Value = russB9
End Sub
...
Рейтинг: 0 / 0
02.11.2006, 02:41
| Ответить | Цитировать | Написать  
Cлово с английского должно писаться по русски
    #34100466
timtim
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
timtim
Участник
...
Рейтинг: 0 / 0
02.11.2006, 12:40
| Ответить | Цитировать | Написать  
Cлово с английского должно писаться по русски
    #34100962
Suleyman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Suleyman
Гость
Да, с кнопкой идея не плохая спасибо, но другая проблема остается:
"Shatskiy" пишется как "ШСхатский", т.е. пишутся отдельно и двубуквенные варианты и следом за ними тот же вариант но по одной букве.
Может у кого нибудь есть идея?
...
Рейтинг: 0 / 0
02.11.2006, 14:18
| Ответить | Цитировать | Написать  
Cлово с английского должно писаться по русски
    #34101875
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkodor
Участник
Код: 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.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
Dim b9 As String
russB9 = ""
b9 = Range("B9").Value
dlina = Len(b9)
'Сначала обрабатываем самые "длинные" буквы:
i =  1 
Do While i <= dlina
     r = ""
     'Проверю, малоли буква большая была:
     uc = False
     s = Mid$(b9, i,  2 )
     If UCase$(Left$(s,  1 )) = Left$(s,  1 ) Then uc = True
     s = LCase$(s)
     Select Case True
              Case s = "ch": r = "ч": i = i +  2 
              Case s = "sh": r = "ш": i = i +  2 
              Case s = "zg": r = "ж": i = i +  2 
              ' и так далее
              Case Else
                s = LCase$(Mid$(b9, i,  1 ))
                Select Case True
                    Case s = "a": r = "а": i = i +  1 
                    Case s = "b": r = "б": i = i +  1 
                    Case s = "c": r = "к": i = i +  1 
                    Case s = "d": r = "д": i = i +  1 
                    Case s = "e": r = "е": i = i +  1 
                    Case s = "f": r = "ф": i = i +  1 
                    Case s = "g": r = "г": i = i +  1 
                    Case s = "h": r = "х": i = i +  1 
                    Case s = "i": r = "и": i = i +  1 
                    Case s = "j": r = "й": i = i +  1 
                    Case s = "k": r = "к": i = i +  1 
                    Case s = "l": r = "л": i = i +  1 
                    Case s = "m": r = "м": i = i +  1 
                    Case s = "n": r = "н": i = i +  1 
                    Case s = "o": r = "о": i = i +  1 
                    Case s = "p": r = "п": i = i +  1 
                    Case s = "q": r = "к": i = i +  1 
                    Case s = "r": r = "р": i = i +  1 
                    Case s = "s": r = "с": i = i +  1 
                    Case s = "t": r = "т": i = i +  1 
                    Case s = "u": r = "у": i = i +  1 
                    Case s = "v": r = "в": i = i +  1 
                    Case s = "w": r = "в": i = i +  1 
                    Case s = "x": r = "д": i = i +  1 
                    Case s = "y": r = "й": i = i +  1 
                    Case s = "'": r = "д": i = i +  1 
                    Case s = " ": r = " ": i = i +  1 
                    Case Else: r = s: i = i +  1 
     End Select
     If uc = True Then r = UCase$(r)
     russB9 = russB9 + r
Loop

Range("d9").Value = russB9
...
Рейтинг: 0 / 0
02.11.2006, 17:32
| Ответить | Цитировать | Написать  
Cлово с английского должно писаться по русски
    #34101905
Suleyman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Suleyman
Гость
Спасибо, попросов больше не имею!
...
Рейтинг: 0 / 0
02.11.2006, 17:37
| Ответить | Цитировать | Написать  
Cлово с английского должно писаться по русски
    #34397502
Программист Дёня
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программист Дёня
Участник
SuleymanСпасибо, попросов больше не имею!

есть более простой вариант без всяких Case, как всё гениальное – простое, смотрите, может пригодится кому?

Private Const vbLat as string = "zxcvbnmasdfghjklwertyuiopZXCVBNMASDFGHJKLQWERTYUIOP"
Private Const vbCyr as string = "зхцвбнмасдфгхжклшертйуиопЗХЦВБНМАСДФГХЖКЛШЕРТЙУИОП"

Public Sub LatTransCyr(byref LatText as string)
Dim s as string, char as string
Dim l as long, i as long, p as long

Let l = Len(LatText)
For i = 1 To l Step 1
Let char = Mid$(LatText,i,1)
Let p = InStr(1,vbLat,char)
If (p>0) Then
Let s = s & Mid$(vbCyr,p,1)
Else
Let s = s & char
End If
Next i
Let LatText = s
End Sub

Такой принцип везде можно применять, а в Делфи так вообще повсеместно, там хоть массивы-константы есть из чего угодно. Попробуйте!!!
...
Рейтинг: 0 / 0
17.03.2007, 08:28
| Ответить | Цитировать | Написать  
Cлово с английского должно писаться по русски
    #34397503
Программист Дёня
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программист Дёня
Участник
vkodor
Код: 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.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
Dim b9 As String
russB9 = ""
b9 = Range("B9").Value
dlina = Len(b9)
'Сначала обрабатываем самые "длинные" буквы:
i =  1 
Do While i <= dlina
     r = ""
     'Проверю, малоли буква большая была:
     uc = False
     s = Mid$(b9, i,  2 )
     If UCase$(Left$(s,  1 )) = Left$(s,  1 ) Then uc = True
     s = LCase$(s)
     Select Case True
              Case s = "ch": r = "ч": i = i +  2 
              Case s = "sh": r = "ш": i = i +  2 
              Case s = "zg": r = "ж": i = i +  2 
              ' и так далее
              Case Else
                s = LCase$(Mid$(b9, i,  1 ))
                Select Case True
                    Case s = "a": r = "а": i = i +  1 
                    Case s = "b": r = "б": i = i +  1 
                    Case s = "c": r = "к": i = i +  1 
                    Case s = "d": r = "д": i = i +  1 
                    Case s = "e": r = "е": i = i +  1 
                    Case s = "f": r = "ф": i = i +  1 
                    Case s = "g": r = "г": i = i +  1 
                    Case s = "h": r = "х": i = i +  1 
                    Case s = "i": r = "и": i = i +  1 
                    Case s = "j": r = "й": i = i +  1 
                    Case s = "k": r = "к": i = i +  1 
                    Case s = "l": r = "л": i = i +  1 
                    Case s = "m": r = "м": i = i +  1 
                    Case s = "n": r = "н": i = i +  1 
                    Case s = "o": r = "о": i = i +  1 
                    Case s = "p": r = "п": i = i +  1 
                    Case s = "q": r = "к": i = i +  1 
                    Case s = "r": r = "р": i = i +  1 
                    Case s = "s": r = "с": i = i +  1 
                    Case s = "t": r = "т": i = i +  1 
                    Case s = "u": r = "у": i = i +  1 
                    Case s = "v": r = "в": i = i +  1 
                    Case s = "w": r = "в": i = i +  1 
                    Case s = "x": r = "д": i = i +  1 
                    Case s = "y": r = "й": i = i +  1 
                    Case s = "'": r = "д": i = i +  1 
                    Case s = " ": r = " ": i = i +  1 
                    Case Else: r = s: i = i +  1 
     End Select
     If uc = True Then r = UCase$(r)
     russB9 = russB9 + r
Loop

Range("d9").Value = russB9


Посмотри мой вариант, может пригодиться?
...
Рейтинг: 0 / 0
17.03.2007, 08:29
| Ответить | Цитировать | Написать  
Cлово с английского должно писаться по русски
    #34425018
unicode11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
unicode11
Гость
A kak zdes mojno delat tak chto proqramma rabotala ne dlya 1-qo yacheyka (B9), a vo ves tekst, ili xotyabi dlya 1-qo stolbtsa? Napirmer, dlya s B1 do B20?
...
Рейтинг: 0 / 0
29.03.2007, 15:38
| Ответить | Цитировать | Написать  
Cлово с английского должно писаться по русски
    #34426291
unicode11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
unicode11
Гость
Ни кто не поможеть как это сделать?
...
Рейтинг: 0 / 0
30.03.2007, 07:28
| Ответить | Цитировать | Написать  
Cлово с английского должно писаться по русски
    #34426899
Программист Дёня
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программист Дёня
Участник
unicode11Ни кто не поможеть как это сделать?

ты про что вообще спрашиваешь

Как текст в ряде ячеек изменить, так может использовать цик пробега по массиву ячеек? не пробовал?
...
Рейтинг: 0 / 0
30.03.2007, 11:38
| Ответить | Цитировать | Написать  
Cлово с английского должно писаться по русски
    #34427384
unicode11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
unicode11
Гость
Da, imenno eto sprashivayu. I ne odin stolbets, a ves tekst,napirmer stolbtsi:A,B,C
Dela v tom chto ya VB sovsem nicheqo neznayu, a zdes ponodobilas srochno vot takoy vesh .Iskal po forumu nashel etot topik, no ne moqu dodelat to chto mne nujno.
...
Рейтинг: 0 / 0
30.03.2007, 13:32
| Ответить | Цитировать | Написать  
Cлово с английского должно писаться по русски
    #34427851
unicode11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
unicode11
Гость
И еще специальные символы (напирмер арабские буквы ) как можно здесь реализовать?
...
Рейтинг: 0 / 0
30.03.2007, 15:29
| Ответить | Цитировать | Написать  
Cлово с английского должно писаться по русски
    #34427960
AndreyMp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreyMp
Участник
Извините Бога ради. Может я невнимательно прочитал сей топик, но вот никак не вспомню как на транслите будет "Щ" и "Й".
...
Рейтинг: 0 / 0
30.03.2007, 15:55
| Ответить | Цитировать | Написать  
Cлово с английского должно писаться по русски
    #34427967
AndreyMp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreyMp
Участник
И еще, если "zg" - "ж", то что тогда "zh"?
...
Рейтинг: 0 / 0
30.03.2007, 15:57
| Ответить | Цитировать | Написать  
Cлово с английского должно писаться по русски
    #34428318
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
Все показанные варианты опираются на использование циклов, что делает их медленными. Использование функции Replace позволяет их (циклы) избежать.
...
Рейтинг: 0 / 0
30.03.2007, 17:35
| Ответить | Цитировать | Написать  
Cлово с английского должно писаться по русски
    #34428998
Программист Дёня
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программист Дёня
Участник
AndreyMpИ еще, если "zg" - "ж", то что тогда "zh"?

Как мне помниться, Щ некоторые предлагают приравнять в транслите к W, а Й - к Y или не различать И и Й и бозначать одинаково I а Ж лучше одним J и не пудрить сильно мозги
...
Рейтинг: 0 / 0
31.03.2007, 09:47
| Ответить | Цитировать | Написать  
Cлово с английского должно писаться по русски
    #34428999
Программист Дёня
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программист Дёня
Участник
VladConnВсе показанные варианты опираются на использование циклов, что делает их медленными. Использование функции Replace позволяет их (циклы) избежать.
И для чего это реплейс, в Делфи вообще есть возможность вкраплять блоки ассемблера, так прогу вообще можно упростить и убыстрить даже с циклами
Кстати, предложите свой вариант
...
Рейтинг: 0 / 0
31.03.2007, 09:49
| Ответить | Цитировать | Написать  
Cлово с английского должно писаться по русски
    #34429129
Adol
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Adol
Гость
Здесь в юникоде какие то буквы (не русские и не английские) как писать?
...
Рейтинг: 0 / 0
31.03.2007, 12:58
| Ответить | Цитировать | Написать  
Cлово с английского должно писаться по русски
    #34429234
Программист Дёня
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программист Дёня
Участник
AdolЗдесь в юникоде какие то буквы (не русские и не английские) как писать?

так не уникодом надо пользоваться а нормальными ASCII
...
Рейтинг: 0 / 0
31.03.2007, 15:37
| Ответить | Цитировать | Написать  
Cлово с английского должно писаться по русски
    #34430482
unicode11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
unicode11
Гость
Программист Дёня
Как текст в ряде ячеек изменить, так может использовать цик пробега по массиву ячеек? не пробовал?

Да, именно об этом спрашиваю. И не один столбец, а вес текст, например: столбцы A,B,C ...
Дело в том что я VB совсем ничего незнаю, а здесь панадобилась срочно вот такой вещ. Искал по форуму нащел этот топик, но немогу доделать то что мне нужна.
...
Рейтинг: 0 / 0
02.04.2007, 10:07
| Ответить | Цитировать | Написать  
Cлово с английского должно писаться по русски
    #34432844
unicode11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
unicode11
Гость
Все-таки как эти циклы использовать?
...
Рейтинг: 0 / 0
03.04.2007, 07:32
| Ответить | Цитировать | Написать  
Cлово с английского должно писаться по русски
    #34434521
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
Программист Дёня VladConnВсе показанные варианты опираются на использование циклов, что делает их медленными. Использование функции Replace позволяет их (циклы) избежать.
И для чего это реплейс, в Делфи вообще есть возможность вкраплять блоки ассемблера, так прогу вообще можно упростить и убыстрить даже с циклами
Кстати, предложите свой вариант

У нас тут не Делфи! И не язык ассемблера. А для чего "реплейс" - для того самого! Насчет своего варианта: нет времени, к сожалению. Тут и так застрял на соседнем топике, там один товарищ никак не уразумит, что безындексные циклы - вещь медленная по сравнению с прямыми запросами и прочими goodies.
...
Рейтинг: 0 / 0
03.04.2007, 15:21
| Ответить | Цитировать | Написать  
Cлово с английского должно писаться по русски
    #34435923
excl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
excl
Гость
Вообши то, для *.doc (Word) файлах есть конвертеры в уникод , а для Excel нет такике программы?
...
Рейтинг: 0 / 0
04.04.2007, 08:20
| Ответить | Цитировать | Написать  
Cлово с английского должно писаться по русски
    #34439975
unicode11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
unicode11
Гость
Я делал цикл, но почему то не доконца работаеть,зависаеть,не могу найти причину.
Еще один вопрос: Мне надо буквы написанный в столбце 'K' менять написанный в столбце 'L'.
Но, в коде ети буквы (написанный в столбце 'L') не могу писать.
Помогите пожалуйста, найти мою ошибку , почему зависаеть и как писать эти буквы?
...
Рейтинг: 0 / 0
05.04.2007, 12:12
| Ответить | Цитировать | Написать  
Cлово с английского должно писаться по русски
    #34441106
Программист Дёня
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программист Дёня
Участник
unicode11Я делал цикл, но почему то не доконца работаеть,зависаеть,не могу найти причину.
Еще один вопрос: Мне надо буквы написанный в столбце 'K' менять написанный в столбце 'L'.
Но, в коде ети буквы (написанный в столбце 'L') не могу писать.
Помогите пожалуйста, найти мою ошибку , почему зависаеть и как писать эти буквы?

поможем, если хотя бы модель этой таблицы увидим
то что вы написали, тем более на каком-то не до конца понятном русском языке, я лично и не до конца и понимаю, а как можно что-то подсказать, если и проблемы не видишь
...
Рейтинг: 0 / 0
05.04.2007, 16:20
| Ответить | Цитировать | Написать  
Cлово с английского должно писаться по русски
    #34441121
Программист Дёня
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программист Дёня
Участник
У нас тут не Делфи! И не язык ассемблера. А для чего "реплейс" - для того самого! Насчет своего варианта: нет времени, к сожалению. Тут и так застрял на соседнем топике, там один товарищ никак не уразумит, что безындексные циклы - вещь медленная по сравнению с прямыми запросами и прочими goodies.

что VB обсуждаем и без вас вижу, не думайте, что умнее других, и на вопросы прошу отвечать мягко и благосклонно. И про реплейс вас спросили, чтобы получить внятный ответ, потому как я этой функции не знаю, а вы тут что устроили?
...
Рейтинг: 0 / 0
05.04.2007, 16:23
| Ответить | Цитировать | Написать  
Cлово с английского должно писаться по русски
    #34441296
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
OK, отвечаю благосклонно. Замечание о Делфи было всего лишь шуткой. Умнее других себя не считаю, ведь много ума не надо, чтобы нажать F1, в поисковом окне набрать Replace и все о Replace узнать. Да и на форуме этом, да и в сети - сколько угодно об этой функции. Зачем же повторять справку? Другое дело - если затруднение с кодированием. И кем вы себя тогда считаете, если ленитесь (боюсь подумать - не догадались) нажать F1.
...
Рейтинг: 0 / 0
05.04.2007, 17:07
| Ответить | Цитировать | Написать  
Cлово с английского должно писаться по русски
    #34441350
Фотография Magnus23
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Magnus23
Участник
Программист Дёня
что VB обсуждаем и без вас вижу, не думайте, что умнее других, и на вопросы прошу отвечать мягко и благосклонно. И про реплейс вас спросили, чтобы получить внятный ответ, потому как я этой функции не знаю, а вы тут что устроили?
А вас попрошу на пол-тона ниже уважаемый. Ответ VladConn считаю вполне адекватым, ваше сравнение с Делфи было абсолютно неуместно и вам на это указали. А ознакомится с действием функции Replace можно нажав F1, что вы собственно и должны были сделать вместо того чтобы требовать разьяснений от других участников.
...
Рейтинг: 0 / 0
05.04.2007, 17:17
| Ответить | Цитировать | Написать  
Cлово с английского должно писаться по русски
    #34441409
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
Но если вам что неясно в справке об этой функции, то милости просим. Конечно, объясним. Идея, собственно, была во включении вызовов к Replace один в другой: т.е. матрешка из Replace:

Private Sub Command1_Click()
Dim strSource As String
Dim strResult As String

strSource = "I meet my classes today!"
MsgBox strSource
strResult = Replace(strSource, "c", "", , , vbBinaryCompare)
MsgBox strResult
strResult = Replace(strResult, "l", "", , , vbBinaryCompare)
MsgBox strResult

End Sub

Желающие могут ознакомиться в словаре с радикально меняющимся смыслом трансформируемого слова "classes".

vladconn
...
Рейтинг: 0 / 0
05.04.2007, 17:33
| Ответить | Цитировать | Написать  
Cлово с английского должно писаться по русски
    #34442122
unicode11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
unicode11
Гость
Программист Дёня
поможем, если хотя бы модель этой таблицы увидим
то что вы написали, тем более на каком-то не до конца понятном русском языке, я лично и не до конца и понимаю, а как можно что-то подсказать, если и проблемы не видишь

Вот модель таблицы:TEHSILEXCEL.XLS
Надо менять написанный в столбце A так, чтобы получился написанный в столбце B.
Тоесть, исходная форма: столбец A
Резултать: должен быть как столбец B.
...
Рейтинг: 0 / 0
06.04.2007, 07:26
| Ответить | Цитировать | Написать  
Cлово с английского должно писаться по русски
    #34443157
Программист Дёня
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программист Дёня
Участник
Magnus23 Программист Дёня
что VB обсуждаем и без вас вижу, не думайте, что умнее других, и на вопросы прошу отвечать мягко и благосклонно. И про реплейс вас спросили, чтобы получить внятный ответ, потому как я этой функции не знаю, а вы тут что устроили?
А вас попрошу на пол-тона ниже уважаемый. Ответ VladConn считаю вполне адекватым, ваше сравнение с Делфи было абсолютно неуместно и вам на это указали. А ознакомится с действием функции Replace можно нажав F1, что вы собственно и должны были сделать вместо того чтобы требовать разьяснений от других участников.

И вас попрошу о том же, если я знаю несколько языков, то только упоминул о их сравнении и недостатках одного из них.
И ещё вопрос, а можно ли получить справку по VB если она в MSDN, а у меня имеется лишь установочник VB, но ни одного файла MSDN.
И не думайте всё же, что умнее других, F1 нажимать и без вас давно допетрили. И если уж просим помощи, то лишь потому, что думали, что этот сайт для того и создан, чтобы получать помощь и помогать другим. Или я не прав? (это прежде к модератору)
...
Рейтинг: 0 / 0
06.04.2007, 12:48
| Ответить | Цитировать | Написать  
Cлово с английского должно писаться по русски
    #34443171
Программист Дёня
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программист Дёня
Участник
Я грубо извиняюсь, но неужели я так плохо выражаю свои мысли?

Я ПРОСИЛ ОБЪЯСНИТЬ лишь назначение функции реплейс, а не разводить демагогию по этому поводу. У меня нет справки MSDN и нигде не могу её найти, поэтому и просил РАЗЪЯСНИТЬ что к чему, а не показывать из себя невесть что.
...
Рейтинг: 0 / 0
06.04.2007, 12:51
| Ответить | Цитировать | Написать  
Cлово с английского должно писаться по русски
    #34444008
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
У меня справка на англ. только. Внизу я ее привожу. А здесь

http://msdn.microsoft.com/library/rus/default.asp?url=/library/rus/vblr7/html/vafctreplace.asp

ее описание на русском для VB.NET, почти тоже самое. Если что-то все-равно неясно, пожалуйста спрашивайте.

Успехов.


Replace Function


Description

Returns a string in which a specified substring has been replaced with another substring a specified number of times.

Syntax

Replace(expression, find, replacewith[, start[, count[, compare]]])

The Replace function syntax has these parts:

Part Description
expression Required.String expression containing substring to replace.
find Required. Substring being searched for.
replacewith Required. Replacement substring.
start Optional. Position within expression where substring search is to begin. If omitted, 1 is assumed.
count Optional. Number of substring substitutions to perform. If omitted, the default value is –1, which means make all possible substitutions.
compare Optional. Numeric value indicating the kind of comparison to use when evaluating substrings. See Settings section for values.


Settings

The compare argument can have the following values:

Constant Value Description
vbUseCompareOption –1 Performs a comparison using the setting of the Option Compare statement.
vbBinaryCompare 0 Performs a binary comparison.
vbTextCompare 1 Performs a textual comparison.
vbDatabaseCompare 2 Microsoft Access only. Performs a comparison based on information in your database.


Return Values

Replace returns the following values:

If Replace returns
expression is zero-length Zero-length string ("")
expression is Null An error.
find is zero-length Copy of expression.
replacewith is zero-length Copy of expression with all occurences of find removed.
start > Len(expression) Zero-length string.
count is 0 Copy of expression.


Remarks

The return value of the Replace function is a string, with substitutions made, that begins at the position specified by start and and concludes at the end of the expression string. It is not a copy of the original string from start to finish.
...
Рейтинг: 0 / 0
06.04.2007, 16:05
| Ответить | Цитировать | Написать  
Cлово с английского должно писаться по русски
    #34444045
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
Да, насчет отсутствующей справки. Здесь:

http://www.microsoft.com/Rus/Msdn/Subscribe/VisualStudio2005/default.mspx

информация о подписке. По-моему, это оно.

Успехов.
...
Рейтинг: 0 / 0
06.04.2007, 16:12
| Ответить | Цитировать | Написать  
Cлово с английского должно писаться по русски
    #34447780
Программист Дёня
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программист Дёня
Участник
VladConnДа, насчет отсутствующей справки. Здесь:

http://www.microsoft.com/Rus/Msdn/Subscribe/VisualStudio2005/default.mspx

информация о подписке. По-моему, это оно.

Успехов.

Very thanks!!!!!!!!!!!!!!!
...
Рейтинг: 0 / 0
09.04.2007, 16:15
| Ответить | Цитировать | Написать  
Cлово с английского должно писаться по русски
    #34447942
Фотография Magnus23
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Magnus23
Участник
Программист ДёняИ вас попрошу о том же, если я знаю несколько языков, то только упоминул о их сравнении и недостатках одного из них.
И ещё вопрос, а можно ли получить справку по VB если она в MSDN, а у меня имеется лишь установочник VB, но ни одного файла MSDN.
И не думайте всё же, что умнее других, F1 нажимать и без вас давно допетрили. И если уж просим помощи, то лишь потому, что думали, что этот сайт для того и создан, чтобы получать помощь и помогать другим. Или я не прав? (это прежде к модератору)
А меня не надо просить, с моим тоном все в порядке, единственное что я требую - соблюдение правил форума и правил приличия, а это есть мое право как модератора. По моему мнению ваш требовательный тон выходит за рамки приличия ибо, как указано в правилах, никто никому здесь ничем не обязан, нужно уважать время и усилия других участников форума и прежде чем тебовать разьяснений по поводу Replace вы должены были, в первую очередь, попытаться сами найти ее описание, для этого надо примерно 3 секунды(набать VB Replace в гугле и получить результат) и уже потом спросить на форуме, указав при этом что вы сами сделали для решения проблемы.
Именно ваше "не думайте что вы умнее других" никак не сочитается с просьбой о разьяснении. Попрошу в дальнейшем воздержаться от этого и подобных высказываний.
Ваше знание Делфи не имеет никакого отношения к обсуждаемой задаче.
Вы не смогли найти МСДН просто потому что не искали, поиск в гугле занимает 0,05 секунды.

Дискутировать по этому поводу я не намерен и последующие посты с подобным содержанием будут удалятся.
...
Рейтинг: 0 / 0
09.04.2007, 16:58
| Ответить | Цитировать | Написать  
46 сообщений из 46, показаны все 2 страниц
  все  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Cлово с английского должно писаться по русски
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?all=1&fid=60&tid=2164231]:
 0ms
get settings:
 4ms
get forum list:
 11ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 57ms
get topic data:
 7ms
get forum data:
 1ms
get page messages:
 60ms
get tp. blocked users:
 1ms
others: 195ms
total:  340ms
созд. / загр.: 340ms
x
x
Закрыть


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