Template:WorkingWithResrouceList: Difference between revisions
Jump to navigation
Jump to search
(Created page with "==== VectorScript ==== <code lang="pas"> PROCEDURE Test; CONST ObjectType = 97; { Texture Definition } FolderIndex = 100; { BuildResourceList Def for Texture Folder ...") |
No edit summary |
||
| Line 16: | Line 16: | ||
MyName := GetNameFromResourceList(MyList, 1); { change this number to get the names of other textures } | MyName := GetNameFromResourceList(MyList, 1); { change this number to get the names of other textures } | ||
Message( Date(2, 2), ': The Name is ', MyName, ' *** Total items in list: ', NumItems); | Message( Date(2, 2), ': The Name is ', MyName, ' *** Total items in list: ', NumItems); | ||
DeleteResourceFromList(MyList, 1); | |||
END; | END; | ||
RUN(Test); | RUN(Test); | ||
| Line 29: | Line 30: | ||
MyName = vs.GetNameFromResourceList(MyList, 1); #{ change this number to get the names of other textures } | MyName = vs.GetNameFromResourceList(MyList, 1); #{ change this number to get the names of other textures } | ||
vs.Message( vs.Date(2, 2), ': The Name is ', MyName, ' *** Total items in list: ', NumItems); | vs.Message( vs.Date(2, 2), ': The Name is ', MyName, ' *** Total items in list: ', NumItems); | ||
vs.DeleteResourceFromList(MyList, 1) | |||
Test() | Test() | ||
</code> | </code> | ||
Revision as of 13:34, 15 July 2014
VectorScript
PROCEDURE Test;
CONST
ObjectType = 97; { Texture Definition }
FolderIndex = 100; { BuildResourceList Def for Texture Folder See Func. Ref }
SubFolderName = ''; { Nul subfolder get all folders and subfolders }
VAR
MyName : STRING;
MyList : LONGINT;
NumItems : LONGINT;
BEGIN
MyList := BuildResourceList(ObjectType, FolderIndex, '', NumItems);
MyName := GetNameFromResourceList(MyList, 1); { change this number to get the names of other textures }
Message( Date(2, 2), ': The Name is ', MyName, ' *** Total items in list: ', NumItems);
DeleteResourceFromList(MyList, 1);
END;
RUN(Test);
Python
def Test():
ObjectType = 97; #{ Texture Definition }
FolderIndex = 100; #{ BuildResourceList Def for Texture Folder See Func. Ref }
SubFolderName = ''; #{ Nul subfolder get all folders and subfolders }
MyList, NumItems = vs.BuildResourceList(ObjectType, FolderIndex, '');
MyName = vs.GetNameFromResourceList(MyList, 1); #{ change this number to get the names of other textures }
vs.Message( vs.Date(2, 2), ': The Name is ', MyName, ' *** Total items in list: ', NumItems);
vs.DeleteResourceFromList(MyList, 1)
Test()