Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Форумы TDMS → Технический раздел → Программирование → Присвоение имен файлам!
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Добрый день!
Я снова обращаюсь к ссобщемству умных людей с просьбой такого рода:
Как выглядет команда позволяющая при добавлении файла к объекту с диска, с шаблона ему присваивалось имя объекта к которому он принадлежит????????????????????????
И если бы добавлялись несколько файлов к объекту то начинал работать какой нибудь перебор типа присваивать при совпадении имени какое нибудь значение???????
Добрые люди обратите внимание на сее проблему!!!!!!!! :)
Обратите внимание на события File_BeforeAdd и File_Added
Sub File_Added(File, Object) FileNameExt = Split(File.FileName,".") File.FileName = Object.Description & "." & FileNameExt(1) End Sub
я бы сделал так:
Sub File_Added(File, Object)
dim nFile, n1, n2, n3
dim fName, ras
if Object.Files.Count > 1 then
set nFile = Object.Files.Item(Object.Files.Count - 2)
n1 = InStr(nFile.FileName, "_")
n2 = Len(nFile.FileName) - 4
n3 = Mid(nFile.FileName, n1 + 1, n2 - n1)
n3 = CInt(n3) + 1
fName = file.FileName
ras = Right(fname, 4)
fname = Object.Description & "_" & CStr(n3) & ras
file.FileName = fname
else
'stop
fName = file.FileName
ras = Right(fname, 4)
fname = Object.Description & "_1" & ras
file.FileName = fname
end if
End Subа далее зависит только от фантазии :rolleyes:
А вот теперь самое интересное!!! Куда этот скрипт закинуть?
А вот теперь самое интересное!!! Куда этот скрипт закинуть?
Можно открыть хелпник по API TDMS, открыть вкладку поиск и искать по названию процедуры "File_Added".
2. Обработчик может быть размещен в скриптах объекта, профиля и/или общесистемном (см. рисунок). Если обработчики определены на всех уровнях, то последовательность их вызова такова:
скрипт объекта;
скрипт профиля пользователя;
общесистемный скрипт.
Если на каком-либо уровне событие было отменено (параметру bCancel присвоено значение TRUE), то обработчики события, размещенные на последующих уровнях, вызваны не будут.
в моем случае скрипт был размещен в объекте.
Я разместил скрипт в своем объекте, но при добавлении файла ни с диска ни с шаблона...имя файла не меняется на то что у объекта:(
Че делать???
каким образом добавляется файл ? UI или COM ?
каким образом добавляется файл ? UI или COM ?
у него версия тдмс 3.0.99. там просто событий таких нет =)
В скрипте косячок (он "вылазит" наружу, когда добавляется несколько файлов):
n3 = Mid(nFile.FileName, n1 + 1, n2 - n1) n3 = CInt(n3) + 1
Аргументом функции CInt является "кусок" строки, и в результате - ошибка!
В скрипте косячок (он "вылазит" наружу, когда добавляется несколько файлов):
n3 = Mid(nFile.FileName, n1 + 1, n2 - n1) n3 = CInt(n3) + 1Аргументом функции CInt является "кусок" строки, и в результате - ошибка!
не спорю такое возможно. если расширение файла будет состоять из 4-х символов тогда в функцию CInt попадает точка, за счет чего аргументом функции и является "кусок" строки :rolleyes: При желании можно усовершенствовать скрипт и все будет хорошо ;)
Странно, но у меня выдаёт ошибку при любом количестве символов в имени файла! <_<
Странно, но у меня выдаёт ошибку при любом количестве символов в имени файла! <_<
Ну тогда остается только думать что у вас в описании объекта(Object.Description) к которому "лепиться" файл имеется символ "_"(нижнее подчеркивание). У себя в названиях объектов я такой символ не использую поэтому при переименовании файлов использую этот символ. В этом случае вам лучше его заменить на символ который вы не используете в описании объектов :rolleyes:
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Форумы TDMS → Технический раздел → Программирование → Присвоение имен файлам!
Форум работает на PunBB, при поддержке Informer Technologies, Inc