topbanner_forum
  *

avatar image

Welcome, Guest. Please login or register.
Did you miss your activation email?

Login with username, password and session length
  • Wednesday November 12, 2025, 11:50 pm
  • Proudly celebrating 15+ years online.
  • Donate now to become a lifetime supporting member of the site and get a non-expiring license key for all of our programs.
  • donate

Recent Posts

Pages: prev • 1 ... 143 144 145 146 147 [148] 149 150 151 152 153 ... 225 • next
3676
Finished Programs / Re: DONE: Generate sequential serial numbers
« Last post by 4wd on June 25, 2012, 07:54 PM »
I'm one of those strange people that always try to use the smallest amount of space possible: in electronics I pack components together on a board, (and then have fun finding the faults); packing items, I'll try to use the smallest practical space; in code, I'll look for less lines.

Easy to see it as boolean instead of string.) That's why I came up with _IniBool() function. It seems trivial but with it you can actually use Boolean values in AutoIt variables and True or False will be written to the .ini using IniWrite. If the user changes it to 1 for true and 0 for false, it still functions as expected.

[Select]
Func _IniBool($val)
    If $val = "True" Or $val = "1" Then Return True
    Return False
EndFunc   ;==>_IniBool
-MilesAhead (June 25, 2012, 04:45 PM)


Code: AutoIt [Select]
  1. Func _IniBool($temp)
  2.   Return ($temp = 1 Or (Not StringCompare($temp, "true")))
3677
Finished Programs / Re: DONE: Are any of the files missing???
« Last post by 4wd on June 25, 2012, 07:03 PM »
Using a bit of Google-fu:

This batch file will get you a list of files sans paths, (rename output file before running a second time):

Code: Text [Select]
  1. REM listfile.bat
  2. @echo off
  3. for /r %1 %%g in (*) do echo %%~nxg>>list.txt
  4. sort list.txt /O sorted.txt
  5. del list.txt

eg. listfile.bat c:\ will give you a file called sorted.txt containing a list of every file on C: drive

WinMerge, (free), will let you compare two text files for differences.

BTW, WinMerge will also compare folders but my way added a bit of scripting  :P

I suppose a simple GUI frontend could be made using Auto(It|HK) to automate all the steps, ie. pick two folders, hit Go.
3678
Finished Programs / Re: DONE: Batch adjust shortcut targets
« Last post by 4wd on June 24, 2012, 01:33 AM »
OK, I was bored so I thought I'd have a play around and came up with BSM, (guess what that stands for).

2012-07-09_20-21-43.jpg

It'll modify shortcuts according to the regex entered - for modify read: it will delete and then create a new shortcut according to the modified information.

You can test what will happen by checking the Test box, only the first 20 shortcut manglings will be displayed.  If you enter nothing in the regex fields and hit the Go button then it will delete and then create the existing shortcuts with no changes - think of it as 'refreshing' your stale shortcuts.

****NOTE**** All the pictures changed with v0.2+ - that's why they're not here anymore.

For a roundup of the regex you can use, see here, for more than you ever wanted know, see here.

You can also click on the RegEx to have it open the first page in your browser, (images were grabbed before I added the RegEx link - I'm not going crazy, it only looks like it).

DISCLAIMER: Because I code for my enjoyment and not others: No error checking, trapping, safety nets, etc.  :)

By design the program should only ever effect shortcuts, (*.lnk), but if you get it to launch a pre-emptive nuclear strike against Melbourne, Australia, just remember......I won't be around to fix the bug.

It's all in the archive up here.

Are you saying that you have 32,220 rules/entries in File Punter?  If so, why?
-skwire (June 23, 2012, 08:16 AM)

I think he means running over two lots of 16110 files, (number of image files quoted in another post).
3679
Living Room / Re: Show us the View Outside Your Window
« Last post by 4wd on June 23, 2012, 08:46 AM »
...and so as Melbourne Airport gets nuked into the wasteland of time we say farewell to another wintery day....

IMG_4820b.jpg
3680
Finished Programs / Re: DONE: Batch adjust shortcut targets
« Last post by 4wd on June 23, 2012, 02:42 AM »
OK, maybe this slightly modified version will get there:

Added:
  • Basic wildcard filter for file matching.
  • Option to output shortcuts to one directory.

So you should be able to put all your images in one directory, enter 50503*.* in the filter field and have a load of shortcuts for matching files created in another directory sans directory structure.

...so goes the theory.

Absolutely no error trapping or any of that kind of malarkey  - you put something stupid in the filter field it's your fault. :)

2012-06-23_17-41-48.jpg

See above for archive.

Added mouseover tooltips.
3681
General Software Discussion / Re: corrupt index (I think): how to fix?
« Last post by 4wd on June 23, 2012, 12:33 AM »
... after @4wd pointed me to use MediaInfo in another discussion thread:
-IainB (June 23, 2012, 12:02 AM)

Sorry  :-[

I tend to always look for the Lite version of things but never actually refer to them by name, eg. MediaInfo when I mean MediaInfo Lite.  That also extended to the laziness in which I just added a link to the main program site.......sorry again.

Plus I run UniExtract over installers to see if programs really need to be installed, so I miss a lot of the extra 'goodies' they put in installers.
3682
Finished Programs / Re: DONE: Batch adjust shortcut targets
« Last post by 4wd on June 23, 2012, 12:16 AM »
What about the world lacking and needing "Batch adjust shortcut targets"???
-nkormanik (June 22, 2012, 06:50 PM)

But what you are doing is copying the files with a new name to a new destination.

It would be easier to create a new shortcut.

Is the folder structure for the images and the shortcuts the same?

If so then try this: BSC (nothing to do with cows)

2012-06-23_17-41-48.jpg

Instructions:

Honestly, do you really want some?

Oh OK, it creates shortcuts in the Destination directory of whatever files are in the Source directory complete with directory structure - Bulk Shortcut Creator.

And yes, that is a cow icon :)

Also BSM in the other archive

2014-10-27 22_39_51.png

BSC source:
Code: AutoIt [Select]
  1. #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
  2. #AutoIt3Wrapper_Icon=cow.ico
  3. #AutoIt3Wrapper_Outfile=BSC.exe
  4. #AutoIt3Wrapper_UseUpx=n
  5. #AutoIt3Wrapper_Res_requestedExecutionLevel=asInvoker
  6. #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
  7. #Include <GUIConstantsEx.au3>
  8. #include <EditConstants.au3>
  9. #include <ProgressConstants.au3>
  10. #Include <WindowsConstants.au3>
  11. #include <StaticConstants.au3>
  12. #include 'RecFileListToArray.au3'
  13.  
  14. #Region ### START Koda GUI section ### Form=
  15. $Form1 = GUICreate("BSC v0.1", 349, 180, 192, 124)
  16. $Go = GUICtrlCreateButton("Go", 255, 137, 75, 25)
  17. GUICtrlSetTip(-1, 'Starts shortcut creation')
  18. $Button1 = GUICtrlCreateButton("Source", 280, 13, 50, 25)
  19. GUICtrlSetTip(-1, 'Select a source folder to create' & @CRLF & 'shortcuts for files')
  20. $Button2 = GUICtrlCreateButton("Dest", 280, 56, 50, 25)
  21. GUICtrlSetTip(-1, 'Select a destination folder to put' & @CRLF & 'the shortcuts in')
  22. $progress = GUICtrlCreateProgress(15, 96, 314, 17)
  23. $Input1 = GUICtrlCreateInput("", 16, 14, 258, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_READONLY))
  24. $Input2 = GUICtrlCreateInput("", 17, 57, 256, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_READONLY))
  25. $cRecurse = GUICtrlCreateCheckbox("Recurse", 152, 127, 66, 17)
  26. GUICtrlSetTip(-1, 'Recurse down through folder structure')
  27. $Input3 = GUICtrlCreateInput("*.*", 16, 139, 121, 21)
  28. GUICtrlSetTip(-1, 'Wildcard filter for files to' & @CRLF & 'create shortcuts for')
  29. $oDir = GUICtrlCreateCheckbox("One folder", 152, 151, 79, 17)
  30. GUICtrlSetTip(-1, 'Outputs shortcuts to destination folder,' & @CRLF & 'does not duplicate folder tree')
  31. GUICtrlSetState(-1, $GUI_DISABLE)
  33. #EndRegion ### END Koda GUI section ###
  34.  
  35.  
  37.         $nMsg = GUIGetMsg()
  38.         Switch $nMsg
  39.                 Case $cRecurse
  40.                         If (GUICtrlRead($cRecurse) = 1) Then
  41.                                 GUICtrlSetState($oDir, $GUI_ENABLE)
  42.                         Else
  43.                                 GUICtrlSetState($oDir, $GUI_UNCHECKED)
  44.                                 GUICtrlSetState($oDir, $GUI_DISABLE)
  45.                         EndIf
  46.                 Case $Button1
  47.                         $sPath = FileSelectFolder('Source folder:', '', 4)
  48.                         If @error = 1 Then $sPath = ''
  49.                         GUICtrlSetData($Input1, $sPath)
  50.                 Case $Button2
  51.                         $dPath = FileSelectFolder('Destination folder:', '', 4)
  52.                         If @error = 1 Then $dPath = ''
  53.                         GUICtrlSetData($Input2, $dPath)
  54.                 Case $Go
  55.                         If $sPath <> '' And $dPath <> '' Then
  56.                                 $filter = GUICtrlRead($Input3)
  57.                                 If (GUICtrlRead($cRecurse) = 1) Then
  58.                                         If Not (GUICtrlRead($oDir) = 1) Then
  59.                                                 $output = _RecFileListToArray($sPath, '*', 2, 1, 0, 1, '*.lnk')
  60.                                                 _DupeTree($sPath, $dPath)
  61.                                         EndIf
  62.                                         $output = _RecFileListToArray($sPath, $filter, 1, 1, 0, 1, '*.lnk')
  63.                                 Else
  64.                                         $output = _RecFileListToArray($sPath, $filter, 1, 0, 0, 1, '*.lnk')
  65.                                 EndIf
  66.                                 _BSC($sPath, $dPath, (GUICtrlRead($oDir) = 1))
  67.                         EndIf
  68.                 Case $GUI_EVENT_CLOSE
  69.                         Exit
  70.         EndSwitch
  72.  
  73.  
  74. Func _BSC($src, $dest, $oneDir = 0)
  75.         $prg = 0
  76.         $diff = 100 / $output[0]
  77.         GUICtrlSetData($progress, $prg)
  78.         For $i = 1 To $output[0]
  79.                 If $oneDir = 0 Then
  80.                         $temp = $dest & '\' & $output[$i]
  81.                 Else
  82.                         $temp = $dest & StringMid($output[$i], StringInStr($output[$i], '\', 0, -1))
  83.                 EndIf
  84.                 FileCreateShortcut($src & '/' & $output[$i], $temp)
  85.                 $prg += $diff
  86.                 GUICtrlSetData($progress, $prg)
  87.         Next
  89.  
  90.  
  91. Func _DupeTree($src, $dest)
  92.         Local $i
  93.         For $i = 1 To $output[0]
  94.                 If Not FileExists($dest & '\' & $output[$i]) Then DirCreate($dest & '\' & $output[$i])
  95.         Next

BSM source:
Code: AutoIt [Select]
  1. #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
  2. #AutoIt3Wrapper_Outfile=BSM.exe
  3. #AutoIt3Wrapper_UseUpx=n
  4. #AutoIt3Wrapper_Res_Fileversion=0.7.0.4
  5. #AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y
  6. #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
  7.  
  8. #include <GUIConstantsEx.au3>
  9. #include <EditConstants.au3>
  10. #include <ProgressConstants.au3>
  11. #include <WindowsConstants.au3>
  12. #include <StaticConstants.au3>
  13. #include <GuiStatusBar.au3>
  14. #include <GuiListView.au3>
  15. #include <ListViewConstants.au3>
  16. #include <Array.au3>
  17. #include <Date.au3>
  18. #include <File.au3>
  19.  
  21. Global $iSRC = 'C:\', $iPRS = '(.*)', $iPRR = '\1', $iNRS = '(.*)', $iNRR = '\1', $iREC = False, $iTST = False
  22.  
  23. _GetIni()
  24.  
  25. #Region ### START Koda GUI section ### Form=
  26. $guiBSM = GUICreate("BSM v0.7", 354, 251)
  27. $Go = GUICtrlCreateButton("Go", 256, 193, 75, 25)
  28. GUICtrlSetTip(-1, "Starts shortcut modification")
  29. $Button1 = GUICtrlCreateButton("Folder", 280, 13, 50, 25)
  30. GUICtrlSetTip(-1, "Folder with shortcuts")
  31. $progress = GUICtrlCreateProgress(16, 152, 314, 17)
  32. $Input1 = GUICtrlCreateInput($iSRC, 16, 14, 258, 21, $GUI_SS_DEFAULT_INPUT)
  33.  
  34. $cRecurse = GUICtrlCreateCheckbox("Recurse", 170, 194, 66, 17)
  35. If $iREC Then GUICtrlSetState($cRecurse, $GUI_CHECKED)
  36. GUICtrlSetTip(-1, "Recurse down through folder structure")
  37. $cTest = GUICtrlCreateCheckbox("Test", 90, 190, 56, 25)
  38. If $iTST Then GUICtrlSetState($cTest, $GUI_CHECKED)
  39. GUICtrlSetTip(-1, "Display test output")
  40.  
  41. $labelRx = GUICtrlCreateLabel("RegEx", 19, 196, 36, 17)
  42. GUICtrlSetTip(-1, "Click to open browser at RegEx page")
  43. GUICtrlSetColor(-1, '0x000099')
  44.  
  45. $Input2 = GUICtrlCreateInput($iPRS, 16, 80, 140, 21)
  46. GUICtrlSetTip(-1, "Path RegEx to search for")
  47. $Input4 = GUICtrlCreateInput($iPRR, 16, 110, 140, 21)
  48. GUICtrlSetTip(-1, "Path RegEx replacement text")
  49. $Input5 = GUICtrlCreateInput($iNRS, 190, 80, 140, 21)
  50. GUICtrlSetTip(-1, "Name RegEx to search for")
  51. $Input6 = GUICtrlCreateInput($iNRR, 190, 110, 140, 21)
  52. GUICtrlSetTip(-1, "Name RegEx replacement text")
  53. GUICtrlCreateLabel("Path of target", 52, 48, 70, 17)
  54. GUICtrlCreateLabel("Name of target", 215, 49, 75, 17)
  55. GUICtrlCreateLabel("Old", 160, 85, 25, 21, $SS_CENTER)
  56. GUICtrlCreateLabel("New", 160, 115, 25, 21, $SS_CENTER)
  57. $StatusBar1 = _GUICtrlStatusBar_Create($guiBSM)
  58. WinMove("BSM v0.7", '', IniRead($inifile, 'Main', 'XPos', 20), IniRead($inifile, 'Main', 'YPos', 20))
  60. #EndRegion ### END Koda GUI section ###
  61.  
  63.         $nMsg = GUIGetMsg()
  64.         Switch $nMsg
  65.                 Case $labelRx
  66.                         ShellExecute('http://www.autoitscript.com/autoit3/docs/functions/StringRegExp.htm')
  67.                 Case $Button1
  68.                         $iSRC = FileSelectFolder('Select folder:', '', 4)
  69.                         If @error = 1 Then $iSRC = ''
  70.                         GUICtrlSetData($Input1, $iSRC)
  71.                 Case $Go
  72.                         $iSRC = GUICtrlRead($Input1)
  73.                         If Not FileExists($iSRC) Then
  74.                                 MsgBox(48, 'BSM Error', 'Not a valid path')
  75.                         Else
  76.                                 $output = ''
  77.                                 GUICtrlSetData($progress, 0)
  78.                                 $iPRS = GUICtrlRead($Input2)
  79.                                 $iPRR = GUICtrlRead($Input4)
  80.                                 $iNRS = GUICtrlRead($Input5)
  81.                                 $iNRR = GUICtrlRead($Input6)
  82.  
  83.                                 If $iPRS = '' Then $iPRS = '(.*)'
  84.                                 If $iPRR = '' Then $iPRR = '\1'
  85.                                 If $iNRS = '' Then $iNRS = '(.*)'
  86.                                 If $iNRR = '' Then $iNRR = '\1'
  87.  
  88.                                 If $iSRC <> '' Then
  89.                                         _GUICtrlStatusBar_SetText($StatusBar1, 'Finding shortcuts')
  90.                                         Global $start = TimerInit()
  91.                                         If (GUICtrlRead($cRecurse) = 1) Then
  92.                                                 $output = _FileListToArrayPlus($iSRC, "*.lnk", 1, 0, "", 2, True)
  93.                                         Else
  94.                                                 $output = _FileListToArrayPlus($iSRC, "*.lnk", 1, 0, "", 2, False)
  95.                                         EndIf
  96.                                         If @error = 0 Or IsArray($output) Then
  97.                                                 _BSM($output, (GUICtrlRead($cTest) = 1))
  98.                                         Else
  99.                                                 MsgBox(48, 'BSM Error', 'No shortcuts found')
  100.                                         EndIf
  101.                                 EndIf
  102.                         EndIf
  103.                 Case $GUI_EVENT_CLOSE
  104.                         $wPos = WinGetPos("BSM v0.7")
  105.                         IniWrite($inifile, 'Main', 'Folder', $iSRC)
  106.                         IniWrite($inifile, 'Main', 'PathSearch', $iPRS)
  107.                         IniWrite($inifile, 'Main', 'PathReplace', $iPRR)
  108.                         IniWrite($inifile, 'Main', 'NameSearch', $iNRS)
  109.                         IniWrite($inifile, 'Main', 'NameReplace', $iNRR)
  110.                         IniWrite($inifile, 'Main', 'Recurse', (GUICtrlRead($cRecurse) = 1))
  111.                         IniWrite($inifile, 'Main', 'Test', (GUICtrlRead($cTest) = 1))
  112.                         IniWrite($inifile, 'Main', 'XPos', $wPos[0])
  113.                         IniWrite($inifile, 'Main', 'YPos', $wPos[1])
  114.                         Exit
  115.         EndSwitch
  117.  
  118.  
  119. Func _BSM($files, $test = False)
  120.         Local $j = 1, $target, $targetPath, $newTarget, $newWorking, $prg = 1, $fDScut = 0, $fDLog = '', $fCScut = 0, $fCLog = '', $max, $nMsg2
  121.         Local $Percent, $Percent_prev, $interrupt = False
  122.         Dim $temp[101][2]
  123.  
  124.         $max = $files[0]
  125.         Switch $test
  126.                 Case True
  127.                         _GUICtrlStatusBar_SetText($StatusBar1, 'Creating test output')
  128.                         If $files[0] > 100 Then $max = 100
  129.                 Case Else
  130.                         _GUICtrlStatusBar_SetText($StatusBar1, 'Processing ' & $max & ' shortcuts')
  131.         EndSwitch
  132.  
  133.         GUICtrlSetData($Go, 'Stop')
  134.  
  135.         For $i = 1 To $max
  136.                 $nMsg2 = GUIGetMsg()
  137.                 Switch $nMsg2
  138.                         Case $Go
  139.                                 $interrupt = True
  140.                                 ExitLoop
  141.                         Case Else
  142.                                 $details = FileGetShortcut($files[$i])
  143.                                 If $details[0] = "" Then
  144.                                         _ArrayDelete($files, $i)
  145.                                         $max -= 1
  146.                                         $i -= 1
  147.                                 Else
  148.                                         $targetPath = StringLeft($details[0], StringInStr($details[0], '\', 0, -1) - 1)
  149.                                         $target = StringMid($details[0], StringInStr($details[0], '\', 0, -1) + 1)
  150.  
  151.                                         $newTarget = StringRegExpReplace($targetPath, $iPRS, $iPRR) & '\' & StringRegExpReplace($target, $iNRS, $iNRR)
  152.                                         $newWorking = StringRegExpReplace($details[1], $iPRS, $iPRR)
  153.                                         Select
  154.                                                 Case $test
  155.                                                         $temp[$i][0] = $details[0]
  156.                                                         $temp[$i][1] = $newTarget
  157.                                                         $temp[0][0] = $i
  158.                                                 Case Else
  159.                                                         If FileDelete($files[$i]) Then
  160.                                                                 If Not FileCreateShortcut($newTarget, $files[$i], $newWorking, $details[2], $details[3], $details[4], '', $details[5], $details[6]) Then
  161.                                                                         $fCScut += 1
  162.                                                                         $fCLog &= $files[$i] & @CRLF
  163.                                                                 EndIf
  164.                                                         Else
  165.                                                                 $fDScut += 1
  166.                                                                 $fDLog &= $files[$i] & @CRLF
  167.                                                         EndIf
  168.                                         EndSelect
  169.                                         $Percent = Round(($i / $max) * 100, 0)
  170.                                         If $Percent <> $Percent_prev Then
  171.                                                 GUICtrlSetData($progress, $Percent)
  172.                                                 $Percent_prev = $Percent
  173.                                         EndIf
  174.                                 EndIf
  175.                 EndSwitch
  176.         Next
  177.  
  178.         GUICtrlSetData($Go, 'Go')
  179.         If $interrupt Then
  180.                 _GUICtrlStatusBar_SetText($StatusBar1, 'Interrupted')
  181.         Else
  182.                 _GUICtrlStatusBar_SetText($StatusBar1, 'Finished: ' & Round(TimerDiff($start) / 1000, 1) & ' seconds')
  183.         EndIf
  184.  
  185.         If $test Then
  186.                 _ArrayBox($temp, 1, 'BSM Test Output', '|Old Shortcut Target|New Shortcut Target', True)
  187.         Else
  188.                 If $fDScut > 0 Or $fCScut > 0 Or $interrupt Then
  189.                         _Log($fCLog, $fCScut, $fDLog, $fDScut, $files[0], $interrupt)
  190.                 Else
  191.                         MsgBox(64, 'BSM Results', 'Total shortcuts: ' & $files[0] & @CRLF & 'No failures during Delete/Create')
  192.                 EndIf
  193.         EndIf
  194.  
  195.         GUICtrlSetData($progress, 0)
  196. EndFunc   ;==>_BSM
  197.  
  198.  
  199. Func _Log($cl, $cc, $dl, $dc, $tot, $int)
  200.         Local $fLog = FileOpen(@TempDir & '\BSM.log', 138)
  201.         If $fLog = -1 Then
  202.                 MsgBox(64, 'BSM Error', 'Unable to open log file:' & @CRLF & @TempDir & '\BSM.log' & @CRLF & 'for output')
  203.         Else
  204.                 FileWrite($fLog, 'BSM results ' & _Now() & @CRLF & 'Total shortcuts: ' & $tot & @CRLF & @CRLF)
  205.                 If $int Then FileWrite($fLog, '**** INTERRUPTED ****' & @CRLF & @CRLF)
  206.                 FileWrite($fLog, 'Shortcuts that failed to be deleted: ' & $dc & @CRLF)
  207.                 If $dc > 0 Then FileWrite($fLog, $dl & @CRLF & @CRLF)
  208.                 FileWrite($fLog, 'Shortcuts that failed to be created: ' & $cc & @CRLF)
  209.                 If $cc > 0 Then FileWrite($fLog, $cl & @CRLF & @CRLF)
  210.                 FileClose($fLog)
  211.                 ShellExecuteWait(@TempDir & '\BSM.log')
  212.         EndIf
  213. EndFunc   ;==>_Log
  214.  
  215.  
  216. Func _GetIni()
  217.         If FileExists($inifile) Then
  218.                 $iSRC = IniRead($inifile, 'Main', 'Folder', 'C:\')
  219.                 $iPRS = IniRead($inifile, 'Main', 'PathSearch', '(.*)')
  220.                 $iPRR = IniRead($inifile, 'Main', 'PathReplace', '\1')
  221.                 $iNRS = IniRead($inifile, 'Main', 'NameSearch', '(.*)')
  222.                 $iNRR = IniRead($inifile, 'Main', 'NameReplace', '\1')
  223.                 $iREC = IniRead($inifile, 'Main', 'Recurse', 'False')
  224.                 $iTST = IniRead($inifile, 'Main', 'Test', 'False')
  225.         EndIf
  226. EndFunc   ;==>_GetIni
  227.  
  228.  
  229. ;===============================================================================
  230. ;
  231. ; Function Name:    _ArrayBox()
  232. ; Description:      Shows an array in a GUI window.  Improved version of _ArrayDisplay
  233. ; Parameter(s):     $Array - An array, 1d or 2d, 0-based or 1-based
  234. ; $ArrayBase - 1 or 0 - tells what base the array is
  235. ; $sTitle - the title to put on the output window
  236. ; $Width, $Height, $Left, $Top - Set the size and position of the output window
  237. ; Requirement(s):   $Array must be 1d or 2d.  If 1-based, then arraysize is assumed to be $Array[0] or $Array[0][0]
  238. ; Return Value(s):  -1 = $Array is not an array, error=1
  239. ; Author(s):        Mike Ratzlaff <[email protected]>
  240. ; Revision: 20050620A
  241. ;
  242. ;===============================================================================
  243. ;
  244. Func _ArrayBox(ByRef $Array, $ArrayBase = 1, $sTitle = 'Array Box', $sTemp = '', $sIni = False, $Width = 400, $Height = 200, $Left = -1, $Top = -1)
  245.         Dim $AllDone = 0, $msg, $i, $j, $ArrayDimensions = UBound($Array, 0)
  246.         Dim $hndForm_Main, $hndListView_Display
  247.  
  248.         If $ArrayDimensions = 0 Then
  249.                 SetError(1)
  250.                 Return -1
  251.         EndIf
  252.  
  253.         ;Setup
  254.         If $ArrayBase <> 0 Then $ArrayBase = 1
  255.         If $ArrayBase Then
  256.                 Select
  257.                         Case $ArrayDimensions = 1
  258.                                 $ArrayMax = $Array[0]
  259.                         Case $ArrayDimensions = 2
  260.                                 $ArrayMax = $Array[0][0]
  261.                 EndSelect
  262.         Else
  263.                 $ArrayMax = UBound($Array, 1) - 1
  264.         EndIf
  265.  
  266.         ;Create GUI
  267.         If $Height < 100 Then $Height = 100
  268.         If $Width < 100 Then $Width = 100
  269.         $hndForm_Main = GUICreate($sTitle, $Width, $Height, $Left, $Top, BitOR($WS_POPUP, $WS_CAPTION, $WS_SIZEBOX, $WS_MAXIMIZEBOX, $WS_EX_DLGMODALFRAME))
  270.  
  271.         ;Create List Box
  272.         If $ArrayDimensions = 1 Then
  273.                 If $sTemp = '' Then $sTemp = 'Index|Value'
  274.         ElseIf $ArrayDimensions = 2 Then
  275.                 If $sTemp = '' Then
  276.                         $sTemp = 'Index'
  277.                         For $i = 0 To UBound($Array, 2) - 1
  278.                                 $sTemp = $sTemp & '|' & $i
  279.                         Next
  280.                 EndIf
  281.         EndIf
  282.         $hndListView_Display = GUICtrlCreateListView($sTemp, 0, 0, $Width, $Height - 24, BitOR($LVS_SHOWSELALWAYS, $LVS_SINGLESEL, $LVS_NOSORTHEADER))
  283.         GUICtrlSetResizing($hndListView_Display, BitOR($GUI_DockLeft, $GUI_DockTop, $GUI_DockRight, $GUI_DockBottom))
  284.         _GUICtrlListView_SetColumnWidth($hndListView_Display, 0, 36)
  285.  
  286.         ;Create Controls, Show GUI
  287.         $hndButton_Close = GUICtrlCreateButton('&Close', $Width - 80, $Height - 24, 80, 24)
  288.         GUICtrlSetResizing($hndButton_Close, BitOR($GUI_DockRight, $GUI_DockBottom, $GUI_DockSize))
  289.         GUICtrlSetState($hndButton_Close, $GUI_DefButton)
  290.         If $sIni Then WinMove($sTitle, '', IniRead($inifile, 'Test', 'XPos', 20), IniRead($inifile, 'Test', 'YPos', 20), IniRead($inifile, 'Test', 'Width', 400), IniRead($inifile, 'Test', 'Height', 200))
  291.         GUISetState(@SW_SHOW, $hndForm_Main)
  292.  
  293.         ;Display Array
  294.         Select
  295.                 Case $ArrayDimensions = 1 ;1-Dimensional Array
  296.                         For $i = $ArrayBase To $ArrayMax
  297.                                 GUICtrlCreateListViewItem($i & '|' & $Array[$i], $hndListView_Display)
  298.                         Next ;$i
  299.                 Case $ArrayDimensions = 2 ;2-Dimensional Array
  300.                         For $i = $ArrayBase To $ArrayMax
  301.                                 $sTemp = $Array[$i][0]
  302.                                 For $j = 1 To UBound($Array, 2) - 1
  303.                                         $sTemp = $sTemp & '|' & $Array[$i][$j]
  304.                                 Next ;$j
  305.                                 GUICtrlCreateListViewItem('[' & $i & ']|' & $sTemp, $hndListView_Display)
  306.                         Next ;$i
  307.                 Case Else ;Unhandled Type
  308.  
  309.         EndSelect
  310.         _GUICtrlListView_SetColumnWidth($hndListView_Display, 1, $LVSCW_AUTOSIZE)
  311.         _GUICtrlListView_SetColumnWidth($hndListView_Display, 2, $LVSCW_AUTOSIZE)
  312.  
  313.         ;Wait for user to close box
  314.         Do
  315.                 $msg = GUIGetMsg()
  316.                 Select
  317.                         Case $msg = $GUI_EVENT_CLOSE
  318.                                 $AllDone = 1
  319.                         Case $msg = $hndButton_Close
  320.                                 $AllDone = 1
  321.                 EndSelect
  322.         Until $AllDone
  323.         Local $wPos = WinGetPos($sTitle)
  324.         If @error = 0 And $sIni Then
  325.                 IniWrite($inifile, 'Test', 'XPos', $wPos[0])
  326.                 IniWrite($inifile, 'Test', 'YPos', $wPos[1])
  327.                 IniWrite($inifile, 'Test', 'Width', $wPos[2])
  328.                 IniWrite($inifile, 'Test', 'Height', $wPos[3])
  329.         EndIf
  330.         GUIDelete($hndForm_Main)
  331.         Return 0
  332. EndFunc   ;==>_ArrayBox
  333.  
  334.  
  335. ; #FUNCTION# =====================================================================================================================
  336. ; _FileListToArrayPlus($sPath, $sInclude = "*", $iFlag = 0, $sExcludeFolder = "", $sExclude = "", $iPathType = 0, $bRecursive = False)
  337. ; Name...........:  _FileListToArray_Rec
  338. ; Parameters ....:  $sPath: Folder to search
  339. ;     $sInclude: String to match on (wildcards allowed, multiples delimited by ;)
  340. ;     $iFlag: Returned data type. 0 = Files and folders (default), 1 = Files only, 2 = Folders only
  341. ;     $sExcludeFolder: List of folders to exclude from search (wildcards allowed, multiples delimited by ;)
  342. ;     $sExclude: List of filenames to exclude from search (wildcards allowed, multiples delimited by ;)
  343. ;     $iPathType: Returned data format. 0 = Filename only (default), 1 = Path relative to $sPath, 2 = Full path/filename
  344. ;     $bRecursive: False = Search $sPath folder only (default), True = Search $sPath and all subfolders
  345. ; Author ........:  Half the Autoit Community (Forum thread #96952)
  346. ;===================================================================================================================================
  347.  
  348. Func _FileListToArrayPlus($sPath, $sInclude = "", $iFlag = 0, $sExcludeFolder = "", $sExclude = "", $iPathType = 0, $bRecursive = False)
  349.         Local $sRet = "", $sReturnFormat = "", $interrupt = False
  350.         $sPath = StringRegExpReplace($sPath, "[\\/]+\z", "") & "\" ; ensure single trailing slash
  351.         If Not FileExists($sPath) Then Return SetError(1, 1, "")
  352.         ; Edit include files list
  353.         If $sInclude = "*" Then $sInclude = ""
  354.         If $sInclude Then
  355.                 If StringRegExp($sInclude, "[\\/ :><\|]|(?s)\A\s*\z") Then Return SetError(2, 2, "") ; invalid characters test
  356.                 $sInclude = StringRegExpReplace(StringRegExpReplace($sInclude, "(\s*;\s*)+", ";"), "\A;|;\z", "") ; Strip unwanted whitespace
  357.                 $sInclude = StringRegExpReplace($sInclude, "[][$.+^{}()]", "\\$0"); Ignore special characters
  358.                 $sInclude = StringReplace(StringReplace(StringReplace($sInclude, "?", "."), "*", ".*?"), ";", "$|") ; Convert ? to ., * to .*?, and ; to |
  359.                 $sInclude = "(?i)\A(" & $sInclude & "$)"; case-insensitive, match from first char, terminate strings
  360.         EndIf
  361.         ; Edit exclude folders list
  362.         If $sExcludeFolder Then
  363.                 $sExcludeFolder = StringRegExpReplace(StringRegExpReplace($sExcludeFolder, "(\s*;\s*)+", ";"), "\A;|;\z", "") ; Strip unwanted whitespace
  364.                 $sExcludeFolder = StringRegExpReplace($sExcludeFolder, "[][$.+^{}()]", "\\$0"); Ignore special characters
  365.                 $sExcludeFolder = StringReplace(StringReplace(StringReplace($sExcludeFolder, "?", "."), "*", ".*?"), ";", "$|") ; Convert ?=.  *=.*?  ;=|
  366.                 $sExcludeFolder = "(?i)\A(?!" & $sExcludeFolder & "$)"; case-insensitive, match from first char, terminate strings
  367.         EndIf
  368.         ; Edit exclude files list
  369.         If $sExclude Then
  370.                 $sExclude = StringRegExpReplace(StringRegExpReplace($sExclude, "(\s*;\s*)+", ";"), "\A;|;\z", "") ; Strip unwanted whitespace
  371.                 $sExclude = StringRegExpReplace($sExclude, "[][$.+^{}()]", "\\$0"); Ignore special characters
  372.                 $sExclude = StringReplace(StringReplace(StringReplace($sExclude, "?", "."), "*", ".*?"), ";", "$|") ; Convert ?=.  *=.*?  ;=|
  373.                 $sExclude = "(?i)\A(?!" & $sExclude & "$)"; case-insensitive, match from first char, terminate strings
  374.         EndIf
  375.         ;   MsgBox(1,"Masks","File include: " & $sInclude & @CRLF & "File exclude: " & $sExclude & @CRLF & "Dir exclude : " & $sExcludeFolder)
  376.  
  377.         If Not ($iFlag = 0 Or $iFlag = 1 Or $iFlag = 2) Then Return SetError(3, 3, "")
  378.  
  379.         Local $sOrigPathLen = StringLen($sPath), $aQueue[64] = [1, $sPath], $iQMax = 63
  380.         While $aQueue[0]
  381.                 $WorkFolder = $aQueue[$aQueue[0]]
  382.                 $aQueue[0] -= 1
  383.                 $search = FileFindFirstFile($WorkFolder & "*")
  384.                 If @error Then ContinueLoop
  385.                 Switch $iPathType
  386.                         Case 1 ; relative path
  387.                                 $sReturnFormat = StringTrimLeft($WorkFolder, $sOrigPathLen)
  388.                         Case 2 ; full path
  389.                                 $sReturnFormat = $WorkFolder
  390.                 EndSwitch
  391.                 While 1
  392.                         $nMsg2 = GUIGetMsg()
  393.                         Switch $nMsg2
  394.                                 Case $Go
  395.                                         $interrupt = True
  396.                                         ExitLoop
  397.                                 Case Else
  398.                                         $file = FileFindNextFile($search)
  399.                                         If @error Then ExitLoop
  400.                                         If @extended Then ; Folder
  401.                                                 If $sExcludeFolder And Not StringRegExp($file, $sExcludeFolder) Then ContinueLoop
  402.                                                 If $bRecursive Then
  403.                                                         If $aQueue[0] = $iQMax Then
  404.                                                                 $iQMax += 128
  405.                                                                 ReDim $aQueue[$iQMax + 1]
  406.                                                         EndIf
  407.                                                         $aQueue[0] += 1
  408.                                                         $aQueue[$aQueue[0]] = $WorkFolder & $file & "\"
  409.                                                 EndIf
  410.                                                 If $iFlag = 1 Then ContinueLoop
  411.                                                 $sRet &= $sReturnFormat & $file & "|"
  412.                                         Else ; File
  413.                                                 If $iFlag = 2 Then ContinueLoop
  414.                                                 If $sInclude And Not StringRegExp($file, $sInclude) Then ContinueLoop
  415.                                                 If $sExclude And Not StringRegExp($file, $sExclude) Then ContinueLoop
  416.                                                 $sRet &= $sReturnFormat & $file & "|"
  417.                                         EndIf
  418.                         EndSwitch
  419.                 WEnd
  420.                 FileClose($search)
  421.                 If $interrupt Then ExitLoop
  422.         WEnd
  423.         If Not $sRet Then Return SetError(4, 4, "")
  424.         Return StringSplit(StringTrimRight($sRet, 1), "|")
  425. EndFunc   ;==>_FileListToArrayPlus
3683
Living Room / Re: silly humor - post 'em here! [warning some NSFW and adult content]
« Last post by 4wd on June 22, 2012, 09:59 PM »
We called it a 'Prophylactic Power Refresh' when I was with Telstra, ie. it solved the likelihood of further problems.  :D
3684
Screenshot Captor / Re: Time Interval in Auto Capture Timer
« Last post by 4wd on June 22, 2012, 08:54 PM »
Or create a screen-movie, using something like the free CamStudio
-Ath (June 22, 2012, 06:06 AM)

CamStudio I think don't have the pause button.
So I only can see the super-quick warning.
-Contro (June 22, 2012, 12:07 PM)

Play back the CamStudio capture file with another program, eg. MPC, VLC, etc.

Then you can pause and step through the AVI.
3685
General Software Discussion / Re: corrupt index (I think): how to fix?
« Last post by 4wd on June 22, 2012, 08:27 PM »
http://mediainfo.sourceforge.net/en

Mediainfo: want to hear some shady shit??  Check this out:
-superboyac (June 22, 2012, 03:06 PM)

MediaInfo Lite - "just the facts m'am"

Always look for the lite ;)
3686
DC Gamer Club / [EXPIRED] Steam Weekend Deal - 75% off All Deus Ex Titles
« Last post by 4wd on June 22, 2012, 05:30 AM »
Via OzBargain again:

2012-06-22_20-29-16.jpg

Click on the image for the Steam store page.
3687
Finished Programs / Re: DONE: Generate sequential serial numbers
« Last post by 4wd on June 22, 2012, 03:00 AM »
Please explain to me how the code would work correctly, even if variable data types are allowed. What is the outcome of mySerial += myFactor when mySerial is something like "000001" (a string). I would be very surprised if you claimed it would equal 3 (integer).
-Ruffnekk (June 22, 2012, 02:30 AM)

While I'm no good at AutoHK, it did spring from AutoIt - so here's a little excerpt from the help file:
In AutoIt there is only one datatype called a Variant.  A variant can contain numeric or string data and decides how to use the data depending on the situation it is being used in.  For example, if you try and multiply two variants they will be treated as numbers, if you try and concatenate (join) two variants they will be treated as strings.

If a string is used as a number, an implicit call to Number() function is done. So if it doesn't contain a valid number, it will be assumed to equal 0.

So this:
Code: AutoIt [Select]
  1. $mySerial = '000001gh'
  2. $myFactor = 2
  3. $mySerial += $myFactor  ; With the implicit call becomes: Number($mySerial) += $myFactor

$mySerial = 3

Add this:
Code: AutoIt [Select]
  1. StringFormat('%06s', $mySerial) ; With the implicit call becomes: StringFormat('%06s', String($mySerial))

$mySerial = '000003'

Keep up the bad practice if you like!  :Thmbsup:

I'll take function over form any day as long as it gets the job done  ;)
3688
Finished Programs / Re: DONE: Generate sequential serial numbers
« Last post by 4wd on June 22, 2012, 02:20 AM »
... in languages like C#, ...
-Ruffnekk (June 22, 2012, 01:31 AM)

But it's not C# - each language has it's own set of rules and restrictions.

AutoHK allows typeless variables, as does AutoIt and REXX.

Whether or not a variable is reused for a type other than what it started with comes down to readability and if it works.

Why create more variables than you need?
3689
DC Gamer Club / [EXPIRED] Commandos 3: Destination Berlin *FREE* + 10% voucher
« Last post by 4wd on June 21, 2012, 09:49 PM »
Deal valid until 1100 UTC 22nd June 2012

Via OzBargain:

2012-06-22_12-47-28.jpg

Direct link to cart with it already added: Commandos 3: Destination Berlin

*** You also get a 10% discount voucher. ***
Voucher valid until July 4th, 2012, (well, mine was).
3690
Living Room / Re: Science News Roundup
« Last post by 4wd on June 21, 2012, 09:12 PM »
Maybe if they just short-stroked the population  ;) and left emotions out of it, we'd all be better off. And possibly be left smiling a lot more too.
-40hz (June 21, 2012, 12:41 PM)

Yep, I think cranio's going to have his work cut out for him  :P
3691
Living Room / Re: Raspberry Pi's $35 Linux PC
« Last post by 4wd on June 21, 2012, 09:08 PM »
....
Quite a range out there. The $19 board freaks me out. But, there are lots of options.
-Renegade (June 20, 2012, 02:47 PM)

You've also got the Android 4.0 based MK802, (Engadget link), for $78, (DX link).
3692
General Software Discussion / Re: corrupt index (I think): how to fix?
« Last post by 4wd on June 21, 2012, 08:48 PM »
Um, that's ~89GB, (23562998*4096/1024/1024/1024), of drive that chkdsk has just found to be bad, ie. the equivalent of all your free space.

I'd be taking the SJ approach here and copying all the data you can to another drive forthwith - only then would I even consider running any further tools over the drive.
3693
Living Room / Re: Raspberry Pi's $35 Linux PC
« Last post by 4wd on June 21, 2012, 04:46 AM »
Melbourne's The Age newspaper today:

[3.3MB]
IMG_4819.JPG


Also, this article from May 21, 2012.
3694
General Software Discussion / Re: Checking Bad sector in HDD and ExtHDD
« Last post by 4wd on June 20, 2012, 08:29 PM »
Whether or not you can find a program to mark existing bad sectors, that does not matter. My very sincere advice is: Do not attempt to continue using a HDD once you find it start developing bad sector.
-tslim (June 20, 2012, 09:37 AM)

While I'm not seeking an argument or trying to get overly pedantic, I think this comes down to what you are going to use the drive for and whether or not you're prepared to wear the consequences.

I have a 1TB drive that developed, as it happened, software bad blocks - I LLF'd it and it's been happily running with constant use every day without any further errors for the last 2 years - well past even the 1 year warranty they provide.

Be that as it may, it carries no data that I'm not prepared to lose and none of it is backed up....but then I have a fatalistic approach to computers, "Shit happens, get over it."

Of course, if the drive in question is your only source of backups or that you deem your data is your life then what you and SJ have said x 2.

The fact that manufacturers provide spare blocks shows that they expect there to be sector failures over the life of the drive - it's whether or not the number of those is excessive, in what circumstances, (time frame), they occurred and the life of the drive that would be of more interest to me in determining whether or not the drive is still suitable for my purposes.

One sector fail does automatically consign the drive to the dustbin in my circumstances - hell, you only have to look at the screen grab above and this one* to see that :)

All the OP wanted was a way to mark the sector as bad, to me that shows willingness to continue using the drive, beyond that... th_106.gif


* Yes, both those drives are still happily working.
3695
Living Room / Re: Petaflop is a stupid word
« Last post by 4wd on June 19, 2012, 10:27 PM »
I vote that after zetta and yotta we have lotta  :D
3696
General Software Discussion / Re: Checking Bad sector in HDD and ExtHDD
« Last post by 4wd on June 19, 2012, 10:08 PM »
Normally the controller on the drive will perform any remapping of hardware bad blocks, (eg. platter defects), to its spare area and add them to its Grown Defects List, (G-list), without any user intervention.

You can also have software bad blocks where the ECC data is no longer valid for the sectors affected, (probably a greatly simplified explanation but good enough for me).  You can attempt to 'repair' these by running a Low Level Format, (which isn't really), or by running MHDD in ERASE mode.

However, as Shades has said, they are destructive procedures so don't do them until you have a backup or don't require the data.

Apart from specific test hardware/software I don't know of anything that will let you insert sectors into the G or P list.

You could also try reading the S.M.A.R.T. data and see if there has been any sector remappings.

eg. Here's Hard Disk Sentinel on one of my drives:

2012-06-20_13-13-33.jpg
3697
Living Room / Re: Raspberry Pi's $35 Linux PC
« Last post by 4wd on June 19, 2012, 05:06 AM »
Your Raspberry Pi Id number is 244205
-4wd (June 16, 2012, 07:59 PM)

Woohoo!  I'll get to order at the end of the week!!!   ...and then I get to wait..... :(

Registration date recorded betweenEstimated Invited to order dateEstimated shipping lead-time*
6th March - 12th MarchTuesday 19 June9 weeks
13th March - 21st MarchWednesday 20 June10 weeks
22nd March - 5th AprilThursday 21 June11 weeks
6th April - 16 AprilFriday 22 June11 weeks
17th April - 25 AprilMonday 25 June12 weeks
26th April - 8th MayTuesday 26 June12 weeks
9th May - 23rd MayWednesday 27 June13 weeks
24th May - 7th JuneThursday 28 June14 weeks
8th June onwardsFriday 29 June14 weeks
             
RS Components Australia Raspberry Pi FAQ

Not even worth buying an extra one to extort more money from Renegade since he's would arrive three weeks later anyway  :P
3698
Living Room / Re: Science News Roundup
« Last post by 4wd on June 18, 2012, 11:50 PM »
27.gif  He's sleeping....
3699
Finished Programs / Re: DONE: Folder Properties Auto-Update....
« Last post by 4wd on June 18, 2012, 11:46 PM »
Thanks, I think we can get skwire to move this into the Finished area now :)
3700
Living Room / Re: Science News Roundup
« Last post by 4wd on June 18, 2012, 10:23 PM »
One earlier study on reproductive success, in common European birds called great tits, found smaller clutches near roaring highways.

It's quite often that you'll find great tits in a clutch....usually when attempting reproduction.
Pages: prev • 1 ... 143 144 145 146 147 [148] 149 150 151 152 153 ... 225 • next