ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / помогите с макросом
10 сообщений из 10, страница 1 из 1
помогите с макросом
    #33256824
1234567890_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
1234567890_
Гость
В файле существует 2 столбца: 1-ый текст на англ. языке, 2-ой - перевод текста из 1-го на франц.
Eng | Fra
-------------------
Mobility | Mobilité
Problem List | Liste de problèmes
......................................

НУЖНО: экспортировать значение из 1-го и 2-го столбца в файл!
делаю так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
.....
For i =  1  To  100 
'выбор значения из 1-вой ячейки
  ActiveSheet.Cells(i,  1 ).Select
  orig = ActiveCell.Value
'выбор значения из 1-вой ячейки  
  ActiveSheet.Cells(i,  2 ).Select
  transl = ActiveCell.Value '  ВОТ ТУТ "ОШИБКА"
' делаю то что мне надо
Next i

Проблема заключается в том, что строка "Activité/Mobilité" из текста в ячейке попадает в переменую transl в виде Activitе/Mobilitе. ...Получается что фр. буквы: é ù à è и т.д. как-бы "невоспринимаются"...

Пробовал сохранять из "менюшки" весь текст в "файл Unicode" - НОРМАЛЬНО.

Подскажите в какую сторону копать!
...
Рейтинг: 0 / 0
07.09.2005, 16:01:43
| Ответить | Цитировать | Написать  
помогите с макросом
    #33257496
МаксимВ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
МаксимВ
Участник
Попробуй так:
Код: plaintext
transl = StrConv(ActiveCell.Value, vbUnicode)
...
Рейтинг: 0 / 0
07.09.2005, 22:02:30
| Ответить | Цитировать | Написать  
помогите с макросом
    #33257923
1234567890_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
1234567890_
Гость
МаксимВ
Попробуй так:
transl = StrConv(ActiveCell.Value, vbUnicode)


Пробовал! ....не катит!!!...(строка в Unicode сохраняется, но é->e все равно заменяет!!)
...
Рейтинг: 0 / 0
08.09.2005, 10:23:42
| Ответить | Цитировать | Написать  
помогите с макросом
    #33257942
1234567890_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
1234567890_
Гость
в догонку:
ПРИМЕР:
англ. строка
inserted at the position where %LOCATION% appears

если сохранить документ как *.txt по получаем в фр. варианте:
ins?r? ? la position o? le %LOCATION% appara?t

если сохранить документ как *.txt UNICODE по получаем в фр. варианте:
inséré à la position où le %LOCATION% apparaît
...
Рейтинг: 0 / 0
08.09.2005, 10:30:29
| Ответить | Цитировать | Написать  
помогите с макросом
    #33258066
Фотография rrrrrrrrrr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
rrrrrrrrrr
Участник
1234567890_Проблема заключается в том, что строка "Activité/Mobilité" из текста в ячейке попадает в переменую transl в виде Activitе/Mobilitе. - попробуйте использовать Chr(integer) и обратную ему Asc(string), причем посимвольно в цикле.
Код: plaintext
1.
2.
    For i =  1  To Len(ActiveCell.Value)
        trans = trans + Chr(Asc(Mid(ActiveCell.Value, i,  1 )))
    Next i
...
Рейтинг: 0 / 0
08.09.2005, 11:07:34
| Ответить | Цитировать | Написать  
помогите с макросом
    #33258073
Фотография rrrrrrrrrr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
rrrrrrrrrr
Участник
т.е. общий смысл такой, чтобы перейти от работы с текстом в работу с массивом кодов символов.
...
Рейтинг: 0 / 0
08.09.2005, 11:09:14
| Ответить | Цитировать | Написать  
помогите с макросом
    #33258566
1234567890_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
1234567890_
Гость
авторт.е. общий смысл такой, чтобы перейти от работы с текстом в работу с массивом кодов символов.
в принцепе понял!!

вот что подметил:
e -> é
запускаю 2 цыкла по очереди:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
For j =  1  To Len(ActiveCell.Value)
     code = Asc(Mid(ActiveCell.Value, j,  1 ))
     char = StrConv(Chr(code), vbUnicode)
     st_orig = st_orig & char & "=" & code & ";" ' РЕЗУЛЬТАТ e=101;
    Next j
For j =  1  To Len(ActiveCell.Value)
     code = Asc(Mid(ActiveCell.Value, j,  1 ))
     char = StrConv(Chr(code), vbUnicode)
     st_trancl = st_trancl & char & "=" & code & ";"   ' РЕЗУЛЬТАТ e=101;
    Next j
результат ПРИГОЛОМШУЄ (укр.)
....хотя даже что б на клавиатуре набрать e и é
надо на разные кнопки нажимать!!!
Чертовщина какая-то...может не там рыть надо,....может это в настройках винды копать надо????
...
Рейтинг: 0 / 0
08.09.2005, 13:12:17
| Ответить | Цитировать | Написать  
помогите с макросом
    #33259554
Фотография rrrrrrrrrr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
rrrrrrrrrr
Участник
А в Regional and Language Optins (Язык и региональные стандарты) французский язык/раскладка есть?
...
Рейтинг: 0 / 0
08.09.2005, 17:31:01
| Ответить | Цитировать | Написать  
помогите с макросом
    #33259591
1234567890_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
1234567890_
Гость
конечно есть!!! а как ты я тогда смог писать это фр. буквы???...
я даже "Язык местоположения" ставил "французкий" - результат тот же...!!!
...
Рейтинг: 0 / 0
08.09.2005, 17:42:01
| Ответить | Цитировать | Написать  
помогите с макросом
    #33260214
Фотография rrrrrrrrrr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
rrrrrrrrrr
Участник
1234567890_а как ты я тогда смог писать это фр. буквы - ну, можно ведь и через вставку символа :)
...
Рейтинг: 0 / 0
09.09.2005, 08:52:46
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / помогите с макросом
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?desktop=1&fid=60&tid=2167220]:
 0ms
get settings:
 7ms
get forum list:
 11ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 81ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 42ms
get tp. blocked users:
 1ms
others: 190ms
total:  348ms
созд. / загр.: 348ms
x
x
Закрыть


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