BartvanBeek

GOOD TIP!!

Yes a GUI is nice but not for Scheduled Tasks in Windows... But if you start it manually.. yes it's nice! Thanks for testing!

Here a simple tool to generate a licence based on the mac address of the end-user. How to use it? - Add code to your program that will create an encrypted text string. - The end-user must send this string to you - you run this program and paste the received string. - Click on Decrypt (You will see the mac address of the end-user) - Click Generate Licence. - Send the Licence to the end-user - Don't forget to add a check on this licence. Note: this is only use-full for small projects/tools (not for world wide :-) Cheers and enjoy! Licence Generater.au3

Here a simple tool to organize your temp/desktop/test/download/etc. folders. Simple log each file in an Excel sheet format. Enjoy it! Archive_Current_Folder.au3

It's impossible to run ObjCreate("Outlook.Application") under Windows 7 (64-bit) Can anyone help me please to solve this problem? Thanks! Func _OutlookOpen() Local $oOutlook = ObjCreate("Outlook.Application") If @error Or Not IsObj($oOutlook) Then Return SetError(1, 0, 0) EndIf Return $oOutlook EndFunc

Here a short version: MsgBox(0,"",_StringSubstitute("Name=%1, Function=%2, Age=%3","David|Salesperson|48","|")) Func _StringSubstitute($iTxt_String,$iTxt_Values,$iTxt_Seperator) Local $Arr_Values = StringSplit($iTxt_Values,$iTxt_Seperator) Local $i Do $i +=1 IF StringInStr($iTxt_String,"%" & $i) > 0 Then $iTxt_String = StringReplace($iTxt_String,"%" & $i,$Arr_Values[$i]) EndIf Until $i = $Arr_Values[0] Return $iTxt_String EndFunc

Thanks for your time and solution, but this is not where I'm looking for. I want to use the XML DOM wrapper functionality for saving data etc, not the FileWrite or something else. My excuse for this. And my test is only to show how slow this function is, maybe someone had a faster script function for me!?!?! Please, help me!!!

Hi, please read the code, TimerInit() and TimerDiff() are used (#Include <Timers.au3> is needed) But how can I speedup the funcion?

Hi, How do I speedup the function: _XMLCreateRootChild(...) This code takes 138,29 seconds! Thanks for your replys! #Include <Timers.au3> #include <_XMLDomWrapper.au3> $XML = @ScriptDir & "\XML.xml" $Root = "XML" _XMLCreateFile($XML,$Root,true) _XMLFileOpen($XML) _XMLSetAutoSave(False) $starttime = _Timer_Init() For $r = 1 to 10 _XMLCreateRootChild ("Root" & $r,"RootItem","" ) For $c1 = 1 to 10 _XMLCreateChildNode ($Root & "/Root" & $r,"Root" & $r & "." & $c1,$r * $c1,"") For $c2 = 1 to 10 _XMLCreateChildNode ($Root & "/Root" & $r & "/Root" & $r & "." & $c1,"Root" & $r & "." & $c1 & "." & $c2 ,$r * $c1 * $C2,"") Next Next Next MsgBox(0,"",Round(_Timer_Diff($starttime) / 1000,2)) ;138,29 seconds

I need to do this from the Explorer. How to change this in Explorer? @j0linus: Thanks for reply. I can't explain it to the end users to use my program with the 'Send-To menu'.

Can anybody help me please?

Right, that's the problem. How to solve this? I want to open 2 files in one exe. not each file in an exe. I select and open 2 files like this:

Hi, When I select two or more files in the File Explorer of Windows and click on "Open" I want to know all the selected files i've selected. My code is: MsgBox(0,"Message","Script Started") IF $CmdLine[0] > 0 Then For $i = 1 to $CmdLine[0] MsgBox(0,"Selected File",$CmdLine[$i]) Next EndIf With one file it goes fine, but more files, I don't get the message "Script Started" (line 1 in my script). The windows setting is for example: "D:\My Program.exe" "%1" (in Folder Options > File Types) How do I solve this problem? Thanks!

Yes, i want to filter on a date collumn in a listview. But the date collumn can have more date format. monoceres: I know what you mean. Is this an idea? Func _FormatDate($Date,$Sep = "/") $Now = _NowDate() $Now = StringReplace($Now,".",$Sep) $Now = StringReplace($Now,"\",$Sep) $Now = StringReplace($Now,"-",$Sep) $Now = StringReplace($Now," ",$Sep) $Part = StringSplit($Now,$Sep) $Date = StringReplace($Date,".",$Sep) $Date = StringReplace($Date,"\",$Sep) $Date = StringReplace($Date,"-",$Sep) $Date = StringReplace($Date," ",$Sep) $Part2 = StringSplit($Date,$Sep) $Part[1] = INT($Part[1]) $Part[2] = INT($Part[2]) $Part[3] = INT($Part[3]) Switch True Case $Part[1] = Int(@YEAR) AND $Part[2] = Int(@MON) AND $Part[3] = Int(@MDAY) ; Y M D Return _AddZero($Part2[1]) & $Sep & $Part2[2] & $Sep & $Part2[3] Case $Part[1] = Int(@YEAR) AND $Part[3] = Int(@MON) AND $Part[2] = Int(@MDAY) ; Y D M Return _AddZero($Part2[1]) & $Sep & $Part2[3] & $Sep & $Part2[2] Case $Part[3] = Int(@YEAR) AND $Part[2] = Int(@MON) AND $Part[1] = Int(@MDAY) ; D M Y Return _AddZero($Part2[3]) & $Sep & $Part2[2] & $Sep & $Part2[1] Case $Part[3] = Int(@YEAR) AND $Part[1] = Int(@MON) AND $Part[2] = Int(@MDAY) ; M D Y Return _AddZero($Part2[3]) & $Sep & $Part2[1] & $Sep & $Part2[2] Case Else MsgBox(48,$AppName,"Date cannot be formatted correctly.") Return "" EndSwitch EndFunc

Is it realy unpossible??? A script with a date format DD-MM-YYYY can written in each script en runs on each PC with another date format. That's how to solve this issue?