| Предыдущая тема :: Следующая тема |
| Автор |
Сообщение |
paranorm
Частый гость
Зарегистрирован: Apr 26, 2006
Сообщения: 32
Рейтинг: +0/-0
Откуда: Н. Тагил
|
 Добавлено: Ср 13 Сен, 2006 4:48:16 Заголовок сообщения: Rs Logix 5000 и русские описания тэгов |
 |
|
Доброго времени суток.
При создании тэгов, в их описании, можно писать текст на русском языке.
При экспорте списка тэгов, вместо русского текста в описании, получаем "крокозябру".
Можно ли получить описание тэгов после экспорта на русском языке?
С Уважением. |
|
| Вернуться к началу |
|
 |
Dvoeglazov
Эксперт
Зарегистрирован: Mar 06, 2006
Сообщения: 278
Рейтинг: +1/-0
Откуда: г.Киров-Чепецк
|
| Добавлено: Пт 15 Сен, 2006 14:16:58 Заголовок сообщения: |
|
|
Делай VBA-процедуру в EXCELL.
| Код: | Private Sub CommandButton1_Click()
Dim strNew As String
coll = 8
'(строка,столбец)
While Cells(coll, 3).Value <> ""
strNew = ""
strCell = Cells(coll, 4).Value
For i = 1 To Len(strCell)
bool = False
strP = Mid(strCell, i, 1)
If strP = "А" Then strNew = strNew & "$0410": bool = True
If strP = "Б" Then strNew = strNew & "$0411": bool = True
If strP = "В" Then strNew = strNew & "$0412": bool = True
If strP = "Г" Then strNew = strNew & "$0413": bool = True
If strP = "Д" Then strNew = strNew & "$0414": bool = True
If strP = "Е" Then strNew = strNew & "$0415": bool = True
If strP = "Ё" Then strNew = strNew & "$0401": bool = True
If strP = "Ж" Then strNew = strNew & "$0416": bool = True
If strP = "З" Then strNew = strNew & "$0417": bool = True
If strP = "И" Then strNew = strNew & "$0418": bool = True
If strP = "Й" Then strNew = strNew & "$0419": bool = True
If strP = "К" Then strNew = strNew & "$041a": bool = True
If strP = "Л" Then strNew = strNew & "$041b": bool = True
If strP = "М" Then strNew = strNew & "$041c": bool = True
If strP = "Н" Then strNew = strNew & "$041d": bool = True
If strP = "О" Then strNew = strNew & "$041e": bool = True
If strP = "П" Then strNew = strNew & "$041f": bool = True
If strP = "Р" Then strNew = strNew & "$0420": bool = True
If strP = "С" Then strNew = strNew & "$0421": bool = True
If strP = "Т" Then strNew = strNew & "$0422": bool = True
If strP = "У" Then strNew = strNew & "$0423": bool = True
If strP = "Ф" Then strNew = strNew & "$0424": bool = True
If strP = "Х" Then strNew = strNew & "$0425": bool = True
If strP = "Ц" Then strNew = strNew & "$0426": bool = True
If strP = "Ч" Then strNew = strNew & "$0427": bool = True
If strP = "Ш" Then strNew = strNew & "$0428": bool = True
If strP = "Щ" Then strNew = strNew & "$0429": bool = True
If strP = "Ъ" Then strNew = strNew & "$042a": bool = True
If strP = "Ы" Then strNew = strNew & "$042b": bool = True
If strP = "Ь" Then strNew = strNew & "$042c": bool = True
If strP = "Э" Then strNew = strNew & "$042d": bool = True
If strP = "Ю" Then strNew = strNew & "$042e": bool = True
If strP = "Я" Then strNew = strNew & "$042f": bool = True
If strP = "а" Then strNew = strNew & "$0430": bool = True
If strP = "б" Then strNew = strNew & "$0431": bool = True
If strP = "в" Then strNew = strNew & "$0432": bool = True
If strP = "г" Then strNew = strNew & "$0433": bool = True
If strP = "д" Then strNew = strNew & "$0434": bool = True
If strP = "е" Then strNew = strNew & "$0435": bool = True
If strP = "ё" Then strNew = strNew & "$0451": bool = True
If strP = "ж" Then strNew = strNew & "$0436": bool = True
If strP = "з" Then strNew = strNew & "$0437": bool = True
If strP = "и" Then strNew = strNew & "$0438": bool = True
If strP = "й" Then strNew = strNew & "$0439": bool = True
If strP = "к" Then strNew = strNew & "$043a": bool = True
If strP = "л" Then strNew = strNew & "$043b": bool = True
If strP = "м" Then strNew = strNew & "$043c": bool = True
If strP = "н" Then strNew = strNew & "$043d": bool = True
If strP = "о" Then strNew = strNew & "$043e": bool = True
If strP = "п" Then strNew = strNew & "$043f": bool = True
If strP = "р" Then strNew = strNew & "$0440": bool = True
If strP = "с" Then strNew = strNew & "$0441": bool = True
If strP = "т" Then strNew = strNew & "$0442": bool = True
If strP = "у" Then strNew = strNew & "$0443": bool = True
If strP = "ф" Then strNew = strNew & "$0444": bool = True
If strP = "х" Then strNew = strNew & "$0445": bool = True
If strP = "ц" Then strNew = strNew & "$0446": bool = True
If strP = "ч" Then strNew = strNew & "$0447": bool = True
If strP = "ш" Then strNew = strNew & "$0448": bool = True
If strP = "щ" Then strNew = strNew & "$0449": bool = True
If strP = "ъ" Then strNew = strNew & "$044a": bool = True
If strP = "ы" Then strNew = strNew & "$044b": bool = True
If strP = "ь" Then strNew = strNew & "$044c": bool = True
If strP = "э" Then strNew = strNew & "$044d": bool = True
If strP = "ю" Then strNew = strNew & "$044e": bool = True
If strP = "я" Then strNew = strNew & "$044f": bool = True
If Not (bool) Then strNew = strNew & strP
Next i
Cells(coll, 4).Value = strNew
coll = coll + 1
Wend
End Sub |
|
|
| Вернуться к началу |
|
|
RTFM
Новичок
Зарегистрирован: Apr 01, 2011
Сообщения: 9
Рейтинг: +0/-0
|
| Добавлено: Ср 06 Апр, 2011 7:04:00 Заголовок сообщения: |
|
|
| А можно подробнее, как сделать VBA процедуру в экселе? |
|
| Вернуться к началу |
|
|
Eraser
Эксперт
Зарегистрирован: Oct 05, 2005
Сообщения: 106
Рейтинг: +8/-0
Откуда: Харьков
|
| Добавлено: Ср 06 Апр, 2011 7:33:17 Заголовок сообщения: |
|
|
| файл с выгруженными тэгами открываете экселем, делаете кнопку, в нее вставляете выщеописанный код.. проверяете что бы все столбцы соответствовали и запускаете ее на выполнение |
|
| Вернуться к началу |
|
|
RTFM
Новичок
Зарегистрирован: Apr 01, 2011
Сообщения: 9
Рейтинг: +0/-0
|
| Добавлено: Ср 06 Апр, 2011 8:08:29 Заголовок сообщения: |
|
|
Спасибо. Так и сделал, не помогло.  |
|
| Вернуться к началу |
|
|
RTFM
Новичок
Зарегистрирован: Apr 01, 2011
Сообщения: 9
Рейтинг: +0/-0
|
| Добавлено: Ср 06 Апр, 2011 8:30:30 Заголовок сообщения: |
|
|
| Подскажите есть другие методы прочитать русский текст в CSV файле? |
|
| Вернуться к началу |
|
|
RTFM
Новичок
Зарегистрирован: Apr 01, 2011
Сообщения: 9
Рейтинг: +0/-0
|
| Добавлено: Ср 06 Апр, 2011 9:17:59 Заголовок сообщения: |
|
|
| Нашел простое решение Logix'ом делаем экспорт не в экселевский файл, а в txt, а потом открываем файл *.txt EXCEL'ем. И всё норм! |
|
| Вернуться к началу |
|
|
dv_
Эксперт
Зарегистрирован: Sep 14, 2006
Сообщения: 776
Рейтинг: +41/-1
Откуда: Донецк
|
| Добавлено: Ср 06 Апр, 2011 9:34:46 Заголовок сообщения: |
|
|
| RTFM писал(а): | | Подскажите есть другие методы прочитать русский текст в CSV файле? |
Не в CSV и не для старых RSLogix 5K.
В итоге получишь текст, фрагмент:
| Код: | TAG FlareControl управление факельной установкой управление факельной установкой
TAG FlareControl.CH4_TRASHHOLD.HI Пуск по метану Пуск по метану
TAG FlareControl.CH4_TRASHHOLD.HIHI не используется не используется
TAG FlareControl.CH4_TRASHHOLD.LO Останов по метану Останов по метану
TAG FlareControl.CH4_TRASHHOLD.LOLO Не используется Не используется
TAG FlareControl.O2_TRASHHOLD.HI останов по кислороду останов по кислороду |
|
|
| Вернуться к началу |
|
|
RTFM
Новичок
Зарегистрирован: Apr 01, 2011
Сообщения: 9
Рейтинг: +0/-0
|
| Добавлено: Ср 06 Апр, 2011 9:42:12 Заголовок сообщения: |
|
|
| Спасибо |
|
| Вернуться к началу |
|
|
Eraser
Эксперт
Зарегистрирован: Oct 05, 2005
Сообщения: 106
Рейтинг: +8/-0
Откуда: Харьков
|
| Добавлено: Чт 07 Апр, 2011 7:00:46 Заголовок сообщения: |
|
|
| Цитата: | В итоге получишь текст, фрагмент:
Код:
TAG FlareControl управление факельной установкой управление факельной установкой
TAG FlareControl.CH4_TRASHHOLD.HI Пуск по метану Пуск по метану
TAG FlareControl.CH4_TRASHHOLD.HIHI не используется не используется
TAG FlareControl.CH4_TRASHHOLD.LO Останов по метану Останов по метану
TAG FlareControl.CH4_TRASHHOLD.LOLO Не используется Не используется
TAG FlareControl.O2_TRASHHOLD.HI останов по кислороду останов по кислороду |
ээм.. чуток не в тему.. IMHO, может тут в названии тэгов надо было бы "THRESHOLD"? а то какое-то "удержание мусора" получается |
|
| Вернуться к началу |
|
|
dv_
Эксперт
Зарегистрирован: Sep 14, 2006
Сообщения: 776
Рейтинг: +41/-1
Откуда: Донецк
|
| Добавлено: Чт 07 Апр, 2011 9:43:07 Заголовок сообщения: |
|
|
| Eraser писал(а): | | ээм.. чуток не в тему.. IMHO, может тут в названии тэгов надо было бы "THRESHOLD"? а то какое-то "удержание мусора" получается |
 Да, так и планировалось, ошибка из-за спешки, типа: "Пятилетку за три года".
Исправлять или нет подумаю, разве что мимоходом. |
|
| Вернуться к началу |
|
|
DIMIOKS
Эксперт
Зарегистрирован: May 14, 2005
Сообщения: 290
Рейтинг: +9/-0
Откуда: г.Самара
|
| Добавлено: Пн 11 Апр, 2011 20:16:20 Заголовок сообщения: |
|
|
Доброго всем времени суток!
Может немного не в тему, давно уже сам для себя писал чтобы не забыть:
Экспорт тегов в RSView32 с использованием Logix 5000 Tag Import:
1. Для импорта REAL в настройках языков ввести разделитель - точка.
2. Импортировать в *.CSV.
3. Открыть в блокноте *.CSV и сохранить с кодировкой ANCI.
4. Экспортировать в RSView32.
Примеч: если при импорте в поле "Add RSLinx topic to tag adress", то в RSView32 имя топика будет в адресе тега в квадратных скобках, иначе адрес топика надо ввести в настройках узла RSView32 в поле "Access Path", в этом случае напрямую из контроллера уже не удасться получить адрес.
Я это делал, чтобы дескрипторы тегов, написанные в RSLogix5000 на русском языке, правильно экспортировались в RSView32. |
|
| Вернуться к началу |
|
|
|
FAQ
Поиск
Группы
Профиль
Войти и проверить личные сообщения
Вход
