kjactive Posted March 4, 2007 Share Posted March 4, 2007 I have a VB code that I want to translate into autoit3 to use in some Component but can't figura out how to thanslate it into Autoit3, can anybody help me on this and is it posible at all... VB code: Dim Animation As Variant For Each Animation In Agent.Characters("Agent").AnimationNames List1.AddItem Animation Next kjactive Au3PP 4.1 - Autoit3 preprocessor, optimize speed, performance to scripts and do executes....[/url]Au3Calibur - Create libraries of commonly used code excerptsWords manipulate UDF, functions that is lent from the rexx language, topics and index file includedCustomDialog UDF to include custom made dialogs like a extended colorpick requester to scripts...[url="ftp://fritidshjemmet.com/Autoit3/SysColor.zip"]SysColor UDF a low level color library to manipulate RGB and Hex values...Shell32 UDF to Automate Windows® operating tasks from native dialog and Wizards browsers... Optimized the CodeWicard with options to generate browser code etc... Link to comment Share on other sites More sharing options...
MrCreatoR Posted March 4, 2007 Share Posted March 4, 2007 Where is the rest of code? and what are you trying to do? i have some funcs for Characters, but you must tell as what you want to do on AutoIt .P.SSee also this Spoiler Using OS: Win 7 Professional, Using AutoIt Ver(s): 3.3.6.1 / 3.3.8.1 AutoIt Russian Community My Work... Spoiler Projects: ATT - Application Translate Tool {new}| BlockIt - Block files & folders {new}| SIP - Selected Image Preview {new}| SISCABMAN - SciTE Abbreviations Manager {new}| AutoIt Path Switcher | AutoIt Menu for Opera! | YouTube Download Center! | Desktop Icons Restorator | Math Tasks | KeyBoard & Mouse Cleaner | CaptureIt - Capture Images Utility | CheckFileSize ProgramUDFs: OnAutoItErrorRegister - Handle AutoIt critical errors {new}| AutoIt Syntax Highlight {new}| Opera Library! | Winamp Library | GetFolderToMenu | Custom_InputBox()! | _FileRun UDF | _CheckInput() UDF | _GUIInputSetOnlyNumbers() UDF | _FileGetValidName() UDF | _GUICtrlCreateRadioCBox UDF | _GuiCreateGrid() | _PathSplitByRegExp() | _GUICtrlListView_MoveItems - UDF | GUICtrlSetOnHover_UDF! | _ControlTab UDF! | _MouseSetOnEvent() UDF! | _ProcessListEx - UDF | GUICtrl_SetResizing - UDF! | Mod. for _IniString UDFs | _StringStripChars UDF | _ColorIsDarkShade UDF | _ColorConvertValue UDF | _GUICtrlTab_CoverBackground | CUI_App_UDF | _IncludeScripts UDF | _AutoIt3ExecuteCode | _DragList UDF | Mod. for _ListView_Progress | _ListView_SysLink | _GenerateRandomNumbers | _BlockInputEx | _IsPressedEx | OnAutoItExit Handler | _GUICtrlCreateTFLabel UDF | WinControlSetEvent UDF | Mod. for _DirGetSizeEx UDF Examples: ScreenSaver Demo - Matrix included | Gui Drag Without pause the script | _WinAttach()! | Turn Off/On Monitor | ComboBox Handler Example | Mod. for "Thinking Box" | Cool "About" Box | TasksBar Imitation Demo Like the Projects/UDFs/Examples? Please rate the topic (up-right corner of the post header: Rating ) * === My topics === * ================================================== ================================================== AutoIt is simple, subtle, elegant. © AutoIt Team Link to comment Share on other sites More sharing options...
tAKTelapis Posted March 4, 2007 Share Posted March 4, 2007 Yes, it is posisble. However, in its current form it is essentially useless (seems to add all values in variabl "animations" to a Combo/List box to be selected) all the needed functions are in the helpfile (search index for: Loops, GUI functions. and look at the contents for the UDFs that manage combo boxes) its all in the help file, and none of it is any more complicated to understand what you have just listed (so if you understand the code you have already given.. understanding how to do it in auto IT will take a negligible amount of time) /tAK Link to comment Share on other sites More sharing options...
kjactive Posted March 4, 2007 Author Share Posted March 4, 2007 It is a Event for a component that holds all actions available to this particulare component... VB code Dim Animation As Variant For Each Animation In Agent.Characters("Agent").AnimationNames List1.AddItem Animation Next Should be something like: Func Event_Animations() Dim Animation $a = 0 For Each Animation In $Agent.Characters("Agent").AnimationNames; '.AnimationNames' holds all animations available $a += 1 Consolewrite(Animation[$a] & @CRLF) Next Consolewrite(Animation[0] & @CRLF) Endfunc How do I translate the VB function "'For Each' Animation In" into AutoIt3 - any VB coders around? kjactive Au3PP 4.1 - Autoit3 preprocessor, optimize speed, performance to scripts and do executes....[/url]Au3Calibur - Create libraries of commonly used code excerptsWords manipulate UDF, functions that is lent from the rexx language, topics and index file includedCustomDialog UDF to include custom made dialogs like a extended colorpick requester to scripts...[url="ftp://fritidshjemmet.com/Autoit3/SysColor.zip"]SysColor UDF a low level color library to manipulate RGB and Hex values...Shell32 UDF to Automate Windows® operating tasks from native dialog and Wizards browsers... Optimized the CodeWicard with options to generate browser code etc... Link to comment Share on other sites More sharing options...
randallc Posted March 4, 2007 Share Posted March 4, 2007 hi, quick answer; "for each ___ in" == "for ____ in" longer answer might take some working outl depends if the object/ array (which is it//?) translates easily Randall ExcelCOM... AccessCom.. Word2... FileListToArrayNew...SearchMiner... Regexps...SQL...Explorer...Array2D.. _GUIListView...array problem...APITailRW Link to comment Share on other sites More sharing options...
Moderators SmOke_N Posted March 4, 2007 Moderators Share Posted March 4, 2007 (edited) I started writing a vb to au3 script a while ago, but lost interest in it, considering I don't know anything about vb . Anyway, from what I had read up on it at the time, and the little bit I had scripted, this is the output it gave me for what you were asking for:Func Event_Animations() Dim $Animation Local $a = 0 For $Animation In $Agent.Characters("Agent").AnimationNames; $a += 1 Consolewrite($Animation[$a] & @CRLF) Next Consolewrite($Animation[0] & @CRLF) EndfuncoÝ÷ ØGb´ Ý~º&¶»-¦-jëh×6Dim $Animation; As Variant Dim $List1 For $Animation In $Agent.Characters("Agent").AnimationNames $List1.AddItem($Animation) Next Edited March 4, 2007 by SmOke_N Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer. Link to comment Share on other sites More sharing options...
kjactive Posted March 4, 2007 Author Share Posted March 4, 2007 Hey SmOke_N with a little fiddle and your great help it worked - thanks... kjactive Au3PP 4.1 - Autoit3 preprocessor, optimize speed, performance to scripts and do executes....[/url]Au3Calibur - Create libraries of commonly used code excerptsWords manipulate UDF, functions that is lent from the rexx language, topics and index file includedCustomDialog UDF to include custom made dialogs like a extended colorpick requester to scripts...[url="ftp://fritidshjemmet.com/Autoit3/SysColor.zip"]SysColor UDF a low level color library to manipulate RGB and Hex values...Shell32 UDF to Automate Windows® operating tasks from native dialog and Wizards browsers... Optimized the CodeWicard with options to generate browser code etc... Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now