Вход на форум 
В начало e-Mail

Форум

Ресурсы Rockwell

Product Directory

Essential Components

Literature Library

Knowledge Base

Electronic News&Magazines

Блог

Encompass Program

Product Certification

  
Smart Solutions VDT :: Просмотр темы - VBA Replace
 FAQFAQ   ПоискПоиск   ГруппыГруппы   ПрофильПрофиль   Войти и проверить личные сообщенияВойти и проверить личные сообщения   ВходВход 

VBA Replace

 
Начать новую тему   Ответить на тему    Список форумов Smart Solutions VDT -> Программные средства систем автоматизации
Предыдущая тема :: Следующая тема  
Автор Сообщение
redi
Частый гость
Частый гость


Зарегистрирован: Mar 16, 2009
Сообщения: 14
Рейтинг: +0/-0

СообщениеДобавлено: Вт 31 Мар, 2009 14:43:16    Заголовок сообщения: VBA Replace Ответить с цитатой
Писал скрипт в WinCC на VB и пользовался командой:

Код:
k_ysv = Replace(k_ysv, ",", ".")


и у меня в стринговой переменной запятые менялись на точки

Теперь в RSView пишу на VBA, а команда не проходит. Пишет:

Sub, Function, or Property not defined (Error 35)

Может кто подскажет ошибку или аналог этой команды? Буду очень благодарен.

П.С. RSView32 старая версия
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
oldDad
Site Admin
Site Admin


Зарегистрирован: May 05, 2005
Сообщения: 2773
Рейтинг: +89/-5

СообщениеДобавлено: Вт 31 Мар, 2009 14:56:29    Заголовок сообщения: Ответить с цитатой
Попробуйте, будет так работать?

Код:

Dim TestString As String = "Shopping List"

' Returns "Shipping List".
Dim aString As String = Replace(TestString, "o", "i")
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail
redi
Частый гость
Частый гость


Зарегистрирован: Mar 16, 2009
Сообщения: 14
Рейтинг: +0/-0

СообщениеДобавлено: Вт 31 Мар, 2009 15:14:46    Заголовок сообщения: Ответить с цитатой
Нет, не получается. Тоже самое.
Может где-то есть описание команд на русском? Не подскажите?
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
oldDad
Site Admin
Site Admin


Зарегистрирован: May 05, 2005
Сообщения: 2773
Рейтинг: +89/-5

СообщениеДобавлено: Вт 31 Мар, 2009 15:30:43    Заголовок сообщения: Ответить с цитатой
Вот описание функции на русском:
http://www.vbnet.ru/vbguide/showfunction.asp?id=26

Вообще, код, который я привёл, совершенно корректен с точки зрения VisualBasic. Должно работать.

Какая у Вас версия RSView32? Попробуйте обновить её. Replace не входит в очень старые версии VB.
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail
redi
Частый гость
Частый гость


Зарегистрирован: Mar 16, 2009
Сообщения: 14
Рейтинг: +0/-0

СообщениеДобавлено: Вт 31 Мар, 2009 15:43:45    Заголовок сообщения: Ответить с цитатой
RSView32 Works 100K Build 6.30.16
придется обновлять и у заказчика
Спасибо Вам большое!
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
oldDad
Site Admin
Site Admin


Зарегистрирован: May 05, 2005
Сообщения: 2773
Рейтинг: +89/-5

СообщениеДобавлено: Вт 31 Мар, 2009 15:51:36    Заголовок сообщения: Ответить с цитатой
Не за что!
Не старая, а очень старая версия, нужно обновлять.
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail
AlexV
Эксперт
Эксперт


Зарегистрирован: Jan 10, 2007
Сообщения: 126
Рейтинг: +6/-0
Откуда: г.Мирный, Якутия
СообщениеДобавлено: Чт 02 Апр, 2009 0:02:56    Заголовок сообщения: Ответить с цитатой
oldDad писал(а):
Попробуйте, будет так работать?

Код:

Dim TestString As String = "Shopping List"

' Returns "Shipping List".
Dim aString As String = Replace(TestString, "o", "i")


Вообще, код, который я привёл, совершенно корректен с точки зрения VisualBasic. Должно работать.

Какая у Вас версия RSView32? Попробуйте обновить её. Replace не входит в очень старые версии VB.


Уважаемый OldDad, вы с какого дуба рухнули??? Shocked Surprised
Приведенный код совершенно корректен исключительно для VisualBasic.Net

Ни в VB6, ни в VBA тем более, никогда не было инициализаторов переменных Wink

Ну и функция Replace присутствует исключительно в чистом VB, в VBA её отродясь не было и нету до сих пор. Rolling Eyes


Заменить replace можно свякой из двух функций InStr и Mid
Первая ищет позицию, вторая прописывает нужные символы в указанную позицию.
Делается в цикле все это. Если автор не осилит сам, то могу написать реализацию, да их должно быть в интернете как грязи... Smile
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
oldDad
Site Admin
Site Admin


Зарегистрирован: May 05, 2005
Сообщения: 2773
Рейтинг: +89/-5

СообщениеДобавлено: Чт 02 Апр, 2009 7:30:13    Заголовок сообщения: Ответить с цитатой
Вот такой код проверенно работает в VBA Factorytalk View SE:

Код:
Dim TestString As String
TestString= "Shopping List"
aString  = Replace(TestString, "o", "i")



А в RSview32 попробуйте так:

Код:
Dim MyString
MyString = "The dog jumps"     ' Initialize string.
Mid(MyString, 5, 3) = "fox"     ' MyString = "The fox jumps".
Mid(MyString, 5) = "cow"     ' MyString = "The cow jumps".
Mid(MyString, 5) = "cow jumped over"     ' MyString = "The cow jumpe".
Mid(MyString, 5, 3) = "duck"     ' MyString = "The duc jumpe".
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail
Показать сообщения:   
Начать новую тему   Ответить на тему    Список форумов Smart Solutions VDT -> Программные средства систем автоматизации Часовой пояс: GMT + 1
Страница 1 из 1

 
Перейти:  
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах

Powered by phpBB © 2001, 2005 phpBB Group
Яндекс цитирования

Smart Solutions VDT GmbH | Friedrich-List-Allee 38, D-41844 Wegberg-Wildenrath, Germany
Tel.: +49 2432 933 57 83 | e-Mail: office@vdt-solutions.de
Все товарные знаки и торговые марки являются собственностью их владельцев.
При использовании материалов сайта ссылка на данный сайт обязательна.
Открытие страницы: 0.141 секунды
/n