Вверх ↑
Этот топик читают: Гость
Гость
Ответов: 17029
Рейтинг: 0
#1: 2007-09-16 18:06:38 правка | ЛС | профиль | цитата


Редактировалось 1 раз(а), последний 2017-03-03 04:31:24
карма: 0

0
Ответов: 8926
Рейтинг: 823
#2: 2007-09-16 19:37:37 ЛС | профиль | цитата
Ntl-M, ошибки в скрипте: точки нельзя называть зарезервированными словами "String" ; функции надо заканчивать "End ***" ; переменные надо обозначать. При работе с VB пользуйтесь справкой от Ecxel-97 она на русском языке.
Add(VBJScript,15883492,243,120)
{
WorkPoints=#6:doRead|
EventPoints=#6:onRead|
DataPoints=#7:String1|
Script=#15:Option Explicit|11: Dim Datas1|27:' Global var for this scrip|0:|0:|0:|27:Function doWork(Data,Index)|21: Datas1 = Sys.String1|19: Select Case Datas1|29: Case "ааа" : Sys.onRead "1"|29: Case "ббб" : Sys.onRead "2"|18: '***************|30: Case Else : Sys.onRead "999"|14: End Select |12:End Function|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|
link(onRead,1763181:doText,[(288,126)(288,125)])
link(String1,10221475:Value,[(249,108)(235,108)(235,164)(202,164)])
}
Add(Label,1763181,301,119)
{
Left=220
Top=20
Width=45
Color=12639424
}
Add(Edit,9923549,147,112)
{
Left=105
Top=15
link(onEnter,10221475:doValue,[])
}
Add(Memory,10221475,196,119)
{
link(onData,15883492:doRead,[(236,125)(236,126)])
}
карма: 19

0
Гость
Ответов: 17029
Рейтинг: 0
#3: 2007-09-17 18:12:29 правка | ЛС | профиль | цитата


Редактировалось 1 раз(а), последний 2017-03-03 04:31:24
карма: 0

0
Ответов: 2058
Рейтинг: 28
#4: 2007-09-17 18:27:33 ЛС | профиль | цитата
Ntl-M писал(а):
Леонид, у меня нет компонента End

Леонид имел ввиду не компонент а оператор "End" в языке VB. Сравни свой скрипт и Леонида.
карма: 1

0
Ответов: 1891
Рейтинг: 110
#5: 2007-09-17 18:35:00 ЛС | профиль | цитата
Ntl-M, скрипт не работает из-за глюков нового форума со смайликами и сам скрипт копируется не до конца (вот почему нет End). Вот скопируй - должно работать


[size=-2]------ Добавлено в 18:35
code_1924.txt
карма: 0
%time%
0
файлы: 1code_1924.txt [923B] [302]
Ответов: 8926
Рейтинг: 823
#6: 2007-09-17 18:40:07 ЛС | профиль | цитата
Ntl-M, скрипт Ваш, чуть исправленный, внутри конструкция Select Case:
Case "ааа" : Sys.onRead "1"
замените "ааа" на нужные Вам строки, а "1" на нужные выходные данные.
End это не компонент, а окончание конструкций в VB.
Не исключено, что с форума копируется с ошибками - сравните, что есть в скрипте в HiAsm-е и что в моём предыдущем сообщении.

[size=-2]------ Добавлено в 18:40
Ntl-M, не пропадёте
карма: 19

0
Гость
Ответов: 17029
Рейтинг: 0
#7: 2007-09-18 18:02:51 правка | ЛС | профиль | цитата


Редактировалось 1 раз(а), последний 2017-03-03 04:31:24
карма: 0

0
Главный модератор
Ответов: 2999
Рейтинг: 396
#8: 2007-09-18 22:14:16 ЛС | профиль | цитата
http://hiasm.1gb.ru/xf/topic.php?p=66980#P66980
карма: 6
Дорогу осилит идущий. Install/Update HiAsm.NET
0
Ответов: 8926
Рейтинг: 823
#9: 2007-09-18 22:29:45 ЛС | профиль | цитата
Ntl-M, действительно, скачайте справку Nic
В крайнем случае, избавтесь от
code_1929.txt
карма: 19

0
файлы: 1code_1929.txt [1KB] [370]
Гость
Ответов: 17029
Рейтинг: 0
#10: 2007-09-19 02:10:43 правка | ЛС | профиль | цитата


Редактировалось 1 раз(а), последний 2017-03-03 04:31:25
карма: 0

0
Ответов: 1891
Рейтинг: 110
#11: 2007-09-21 23:55:26 ЛС | профиль | цитата
Леонид, че за Ecxel-97 у тебя? Перерыл все 97-е, но справки на русском так и не нашел?
карма: 0
%time%
0
Ответов: 8926
Рейтинг: 823
#12: 2007-09-22 09:35:42 ЛС | профиль | цитата
Alexbootch, справка по VBA для оффисных приложений, если хочешь вышлю на почту.
карма: 19

0
Ответов: 1891
Рейтинг: 110
#13: 2007-09-23 16:20:58 ЛС | профиль | цитата
Леонид, писал(а):
Alexbootch, справка по VBA для оффисных приложений, если хочешь вышлю на почту.


Леонид, вышли на alexbootch@mail.ru

[size=-2]------ Добавлено в 16:20
Леонид, скачал, но вот только справка на английском. Может ты не все файлы скинул? Насчет размера файла в 6.5 mb, то mail.ru принимает такой размер
карма: 0
%time%
0
Ответов: 8926
Рейтинг: 823
#14: 2007-09-23 22:08:43 ЛС | профиль | цитата
Alexbootch, я щёлкал по этому файлу и получал вот такую картинку:
карма: 19

0
файлы: 1Help_97.png [17.8KB] [323]
Ответов: 1891
Рейтинг: 110
#15: 2007-09-23 22:34:41 ЛС | профиль | цитата
Леонид, писал(а):
Alexbootch, я щёлкал по этому файлу и получал вот такую картинку:


Леонид, это потому что у тебя есть все файлы, в том числе и файлы CNT (файлы руссификации)
карма: 0
%time%
0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)