Recent Posts

Pages: prev • 1 ... 143 144 145 146 147 [148] 149 150 151 152 153 ... 225 • next

3676

Post New Requests Here / Re: Wish list program

« Last post by 4wd on June 25, 2012, 11:15 PM »

What can i do ?
-Contro (June 25, 2012, 09:31 AM)

3677

Finished Programs / Re: DONE: Batch adjust shortcut targets

« Last post by 4wd on June 25, 2012, 09:27 PM »

Albeit hard to find, there already is a GUI tool that can alter shortcuts: Shortcuts Search And Replace
-lujomu (June 25, 2012, 04:46 PM)

I don't think that can change the actual target, just the target path, (and other bits).

3678

General Software Discussion / Re: Checking Bad sector in HDD and ExtHDD

« Last post by 4wd on June 25, 2012, 09:19 PM »

No offence, but I think it is very inappropriate to advocate the idea that HDD with bad sectors (or clusters) can still be healed ... by whatever program, you named it.
-tslim (June 25, 2012, 11:58 AM)

None taken, (and I hope I don't cause any), but my point was: until you know what you're dealing with, (software or hardware, temporary or permanent), then just saying the drive is terminal, (for me anyway), goes against all the years I spent as a technician.

But I also understand the point you and SJ make where you're dealing with business/critical systems, which is why I said it depends on the circumstances.

How much is your data worth?
How much time do you want to spend on it?
How much money do you want to spend?
Can you live with the potential failure or worry about it constantly?

It's a purely subjective decision.

The OP has now said the drive was dropped, (it's like getting blood from a stone with some people

), if it was me, I wouldn't be using it any more - most likely the heads would have bounced which won't have done them any good.

3679

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]

Func _IniBool($temp)
  Return ($temp = 1 Or (Not StringCompare($temp, "true")))
EndFunc

3680

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]

REM listfile.bat
@echo off
for /r %1 %%g in (*) do echo %%~nxg>>list.txt
sort list.txt /O sorted.txt
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

I suppose a simple GUI frontend could be made using Auto(It|HK) to automate all the steps, ie. pick two folders, hit Go.

3681

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).

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).

3682

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....

3683

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.

See above for archive.

Added mouseover tooltips.

3684

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.

3685

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)

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]

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=cow.ico
#AutoIt3Wrapper_Outfile=BSC.exe
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Res_requestedExecutionLevel=asInvoker
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#Include <GUIConstantsEx.au3>
#include <EditConstants.au3>
#include <ProgressConstants.au3>
#Include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include 'RecFileListToArray.au3'
 
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("BSC v0.1", 349, 180, 192, 124)
$Go = GUICtrlCreateButton("Go", 255, 137, 75, 25)
GUICtrlSetTip(-1, 'Starts shortcut creation')
$Button1 = GUICtrlCreateButton("Source", 280, 13, 50, 25)
GUICtrlSetTip(-1, 'Select a source folder to create' & @CRLF & 'shortcuts for files')
$Button2 = GUICtrlCreateButton("Dest", 280, 56, 50, 25)
GUICtrlSetTip(-1, 'Select a destination folder to put' & @CRLF & 'the shortcuts in')
$progress = GUICtrlCreateProgress(15, 96, 314, 17)
$Input1 = GUICtrlCreateInput("", 16, 14, 258, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_READONLY))
$Input2 = GUICtrlCreateInput("", 17, 57, 256, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_READONLY))
$cRecurse = GUICtrlCreateCheckbox("Recurse", 152, 127, 66, 17)
GUICtrlSetTip(-1, 'Recurse down through folder structure')
$Input3 = GUICtrlCreateInput("*.*", 16, 139, 121, 21)
GUICtrlSetTip(-1, 'Wildcard filter for files to' & @CRLF & 'create shortcuts for')
$oDir = GUICtrlCreateCheckbox("One folder", 152, 151, 79, 17)
GUICtrlSetTip(-1, 'Outputs shortcuts to destination folder,' & @CRLF & 'does not duplicate folder tree')
GUICtrlSetState(-1, $GUI_DISABLE)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
 
 
While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $cRecurse
                        If (GUICtrlRead($cRecurse) = 1) Then
                                GUICtrlSetState($oDir, $GUI_ENABLE)
                        Else
                                GUICtrlSetState($oDir, $GUI_UNCHECKED)
                                GUICtrlSetState($oDir, $GUI_DISABLE)
                        EndIf
                Case $Button1
                        $sPath = FileSelectFolder('Source folder:', '', 4)
                        If @error = 1 Then $sPath = ''
                        GUICtrlSetData($Input1, $sPath)
                Case $Button2
                        $dPath = FileSelectFolder('Destination folder:', '', 4)
                        If @error = 1 Then $dPath = ''
                        GUICtrlSetData($Input2, $dPath)
                Case $Go
                        If $sPath <> '' And $dPath <> '' Then
                                $filter = GUICtrlRead($Input3)
                                If (GUICtrlRead($cRecurse) = 1) Then
                                        If Not (GUICtrlRead($oDir) = 1) Then
                                                $output = _RecFileListToArray($sPath, '*', 2, 1, 0, 1, '*.lnk')
                                                _DupeTree($sPath, $dPath)
                                        EndIf
                                        $output = _RecFileListToArray($sPath, $filter, 1, 1, 0, 1, '*.lnk')
                                Else
                                        $output = _RecFileListToArray($sPath, $filter, 1, 0, 0, 1, '*.lnk')
                                EndIf
                                _BSC($sPath, $dPath, (GUICtrlRead($oDir) = 1))
                        EndIf
                Case $GUI_EVENT_CLOSE
                        Exit
        EndSwitch
WEnd
 
 
Func _BSC($src, $dest, $oneDir = 0)
        $prg = 0
        $diff = 100 / $output[0]
        GUICtrlSetData($progress, $prg)
        For $i = 1 To $output[0]
                If $oneDir = 0 Then
                        $temp = $dest & '\' & $output[$i]
                Else
                        $temp = $dest & StringMid($output[$i], StringInStr($output[$i], '\', 0, -1))
                EndIf
                FileCreateShortcut($src & '/' & $output[$i], $temp)
                $prg += $diff
                GUICtrlSetData($progress, $prg)
        Next
EndFunc
 
 
Func _DupeTree($src, $dest)
        Local $i
        For $i = 1 To $output[0]
                If Not FileExists($dest & '\' & $output[$i]) Then DirCreate($dest & '\' & $output[$i])
        Next
EndFunc

BSM source:

Code: AutoIt [Select]

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Outfile=BSM.exe
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Res_Fileversion=0.7.0.4
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
 
#include <GUIConstantsEx.au3>
#include <EditConstants.au3>
#include <ProgressConstants.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <GuiStatusBar.au3>
#include <GuiListView.au3>
#include <ListViewConstants.au3>
#include <Array.au3>
#include <Date.au3>
#include <File.au3>
 
Global $inifile = StringLeft(@ScriptName, StringLen(@ScriptName) - 4) & '.ini'
Global $iSRC = 'C:\', $iPRS = '(.*)', $iPRR = '\1', $iNRS = '(.*)', $iNRR = '\1', $iREC = False, $iTST = False
 
_GetIni()
 
#Region ### START Koda GUI section ### Form=
$guiBSM = GUICreate("BSM v0.7", 354, 251)
$Go = GUICtrlCreateButton("Go", 256, 193, 75, 25)
GUICtrlSetTip(-1, "Starts shortcut modification")
$Button1 = GUICtrlCreateButton("Folder", 280, 13, 50, 25)
GUICtrlSetTip(-1, "Folder with shortcuts")
$progress = GUICtrlCreateProgress(16, 152, 314, 17)
$Input1 = GUICtrlCreateInput($iSRC, 16, 14, 258, 21, $GUI_SS_DEFAULT_INPUT)
 
$cRecurse = GUICtrlCreateCheckbox("Recurse", 170, 194, 66, 17)
If $iREC Then GUICtrlSetState($cRecurse, $GUI_CHECKED)
GUICtrlSetTip(-1, "Recurse down through folder structure")
$cTest = GUICtrlCreateCheckbox("Test", 90, 190, 56, 25)
If $iTST Then GUICtrlSetState($cTest, $GUI_CHECKED)
GUICtrlSetTip(-1, "Display test output")
 
$labelRx = GUICtrlCreateLabel("RegEx", 19, 196, 36, 17)
GUICtrlSetTip(-1, "Click to open browser at RegEx page")
GUICtrlSetColor(-1, '0x000099')
 
$Input2 = GUICtrlCreateInput($iPRS, 16, 80, 140, 21)
GUICtrlSetTip(-1, "Path RegEx to search for")
$Input4 = GUICtrlCreateInput($iPRR, 16, 110, 140, 21)
GUICtrlSetTip(-1, "Path RegEx replacement text")
$Input5 = GUICtrlCreateInput($iNRS, 190, 80, 140, 21)
GUICtrlSetTip(-1, "Name RegEx to search for")
$Input6 = GUICtrlCreateInput($iNRR, 190, 110, 140, 21)
GUICtrlSetTip(-1, "Name RegEx replacement text")
GUICtrlCreateLabel("Path of target", 52, 48, 70, 17)
GUICtrlCreateLabel("Name of target", 215, 49, 75, 17)
GUICtrlCreateLabel("Old", 160, 85, 25, 21, $SS_CENTER)
GUICtrlCreateLabel("New", 160, 115, 25, 21, $SS_CENTER)
$StatusBar1 = _GUICtrlStatusBar_Create($guiBSM)
WinMove("BSM v0.7", '', IniRead($inifile, 'Main', 'XPos', 20), IniRead($inifile, 'Main', 'YPos', 20))
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
 
While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $labelRx
                        ShellExecute('http://www.autoitscript.com/autoit3/docs/functions/StringRegExp.htm')
                Case $Button1
                        $iSRC = FileSelectFolder('Select folder:', '', 4)
                        If @error = 1 Then $iSRC = ''
                        GUICtrlSetData($Input1, $iSRC)
                Case $Go
                        $iSRC = GUICtrlRead($Input1)
                        If Not FileExists($iSRC) Then
                                MsgBox(48, 'BSM Error', 'Not a valid path')
                        Else
                                $output = ''
                                GUICtrlSetData($progress, 0)
                                $iPRS = GUICtrlRead($Input2)
                                $iPRR = GUICtrlRead($Input4)
                                $iNRS = GUICtrlRead($Input5)
                                $iNRR = GUICtrlRead($Input6)
 
                                If $iPRS = '' Then $iPRS = '(.*)'
                                If $iPRR = '' Then $iPRR = '\1'
                                If $iNRS = '' Then $iNRS = '(.*)'
                                If $iNRR = '' Then $iNRR = '\1'
 
                                If $iSRC <> '' Then
                                        _GUICtrlStatusBar_SetText($StatusBar1, 'Finding shortcuts')
                                        Global $start = TimerInit()
                                        If (GUICtrlRead($cRecurse) = 1) Then
                                                $output = _FileListToArrayPlus($iSRC, "*.lnk", 1, 0, "", 2, True)
                                        Else
                                                $output = _FileListToArrayPlus($iSRC, "*.lnk", 1, 0, "", 2, False)
                                        EndIf
                                        If @error = 0 Or IsArray($output) Then
                                                _BSM($output, (GUICtrlRead($cTest) = 1))
                                        Else
                                                MsgBox(48, 'BSM Error', 'No shortcuts found')
                                        EndIf
                                EndIf
                        EndIf
                Case $GUI_EVENT_CLOSE
                        $wPos = WinGetPos("BSM v0.7")
                        IniWrite($inifile, 'Main', 'Folder', $iSRC)
                        IniWrite($inifile, 'Main', 'PathSearch', $iPRS)
                        IniWrite($inifile, 'Main', 'PathReplace', $iPRR)
                        IniWrite($inifile, 'Main', 'NameSearch', $iNRS)
                        IniWrite($inifile, 'Main', 'NameReplace', $iNRR)
                        IniWrite($inifile, 'Main', 'Recurse', (GUICtrlRead($cRecurse) = 1))
                        IniWrite($inifile, 'Main', 'Test', (GUICtrlRead($cTest) = 1))
                        IniWrite($inifile, 'Main', 'XPos', $wPos[0])
                        IniWrite($inifile, 'Main', 'YPos', $wPos[1])
                        Exit
        EndSwitch
WEnd
 
 
Func _BSM($files, $test = False)
        Local $j = 1, $target, $targetPath, $newTarget, $newWorking, $prg = 1, $fDScut = 0, $fDLog = '', $fCScut = 0, $fCLog = '', $max, $nMsg2
        Local $Percent, $Percent_prev, $interrupt = False
        Dim $temp[101][2]
 
        $max = $files[0]
        Switch $test
                Case True
                        _GUICtrlStatusBar_SetText($StatusBar1, 'Creating test output')
                        If $files[0] > 100 Then $max = 100
                Case Else
                        _GUICtrlStatusBar_SetText($StatusBar1, 'Processing ' & $max & ' shortcuts')
        EndSwitch
 
        GUICtrlSetData($Go, 'Stop')
 
        For $i = 1 To $max
                $nMsg2 = GUIGetMsg()
                Switch $nMsg2
                        Case $Go
                                $interrupt = True
                                ExitLoop
                        Case Else
                                $details = FileGetShortcut($files[$i])
                                If $details[0] = "" Then
                                        _ArrayDelete($files, $i)
                                        $max -= 1
                                        $i -= 1
                                Else
                                        $targetPath = StringLeft($details[0], StringInStr($details[0], '\', 0, -1) - 1)
                                        $target = StringMid($details[0], StringInStr($details[0], '\', 0, -1) + 1)
 
                                        $newTarget = StringRegExpReplace($targetPath, $iPRS, $iPRR) & '\' & StringRegExpReplace($target, $iNRS, $iNRR)
                                        $newWorking = StringRegExpReplace($details[1], $iPRS, $iPRR)
                                        Select
                                                Case $test
                                                        $temp[$i][0] = $details[0]
                                                        $temp[$i][1] = $newTarget
                                                        $temp[0][0] = $i
                                                Case Else
                                                        If FileDelete($files[$i]) Then
                                                                If Not FileCreateShortcut($newTarget, $files[$i], $newWorking, $details[2], $details[3], $details[4], '', $details[5], $details[6]) Then
                                                                        $fCScut += 1
                                                                        $fCLog &= $files[$i] & @CRLF
                                                                EndIf
                                                        Else
                                                                $fDScut += 1
                                                                $fDLog &= $files[$i] & @CRLF
                                                        EndIf
                                        EndSelect
                                        $Percent = Round(($i / $max) * 100, 0)
                                        If $Percent <> $Percent_prev Then
                                                GUICtrlSetData($progress, $Percent)
                                                $Percent_prev = $Percent
                                        EndIf
                                EndIf
                EndSwitch
        Next
 
        GUICtrlSetData($Go, 'Go')
        If $interrupt Then
                _GUICtrlStatusBar_SetText($StatusBar1, 'Interrupted')
        Else
                _GUICtrlStatusBar_SetText($StatusBar1, 'Finished: ' & Round(TimerDiff($start) / 1000, 1) & ' seconds')
        EndIf
 
        If $test Then
                _ArrayBox($temp, 1, 'BSM Test Output', '|Old Shortcut Target|New Shortcut Target', True)
        Else
                If $fDScut > 0 Or $fCScut > 0 Or $interrupt Then
                        _Log($fCLog, $fCScut, $fDLog, $fDScut, $files[0], $interrupt)
                Else
                        MsgBox(64, 'BSM Results', 'Total shortcuts: ' & $files[0] & @CRLF & 'No failures during Delete/Create')
                EndIf
        EndIf
 
        GUICtrlSetData($progress, 0)
EndFunc   ;==>_BSM
 
 
Func _Log($cl, $cc, $dl, $dc, $tot, $int)
        Local $fLog = FileOpen(@TempDir & '\BSM.log', 138)
        If $fLog = -1 Then
                MsgBox(64, 'BSM Error', 'Unable to open log file:' & @CRLF & @TempDir & '\BSM.log' & @CRLF & 'for output')
        Else
                FileWrite($fLog, 'BSM results ' & _Now() & @CRLF & 'Total shortcuts: ' & $tot & @CRLF & @CRLF)
                If $int Then FileWrite($fLog, '**** INTERRUPTED ****' & @CRLF & @CRLF)
                FileWrite($fLog, 'Shortcuts that failed to be deleted: ' & $dc & @CRLF)
                If $dc > 0 Then FileWrite($fLog, $dl & @CRLF & @CRLF)
                FileWrite($fLog, 'Shortcuts that failed to be created: ' & $cc & @CRLF)
                If $cc > 0 Then FileWrite($fLog, $cl & @CRLF & @CRLF)
                FileClose($fLog)
                ShellExecuteWait(@TempDir & '\BSM.log')
        EndIf
EndFunc   ;==>_Log
 
 
Func _GetIni()
        If FileExists($inifile) Then
                $iSRC = IniRead($inifile, 'Main', 'Folder', 'C:\')
                $iPRS = IniRead($inifile, 'Main', 'PathSearch', '(.*)')
                $iPRR = IniRead($inifile, 'Main', 'PathReplace', '\1')
                $iNRS = IniRead($inifile, 'Main', 'NameSearch', '(.*)')
                $iNRR = IniRead($inifile, 'Main', 'NameReplace', '\1')
                $iREC = IniRead($inifile, 'Main', 'Recurse', 'False')
                $iTST = IniRead($inifile, 'Main', 'Test', 'False')
        EndIf
EndFunc   ;==>_GetIni
 
 
;===============================================================================
;
; Function Name:    _ArrayBox()
; Description:      Shows an array in a GUI window.  Improved version of _ArrayDisplay
; Parameter(s):     $Array - An array, 1d or 2d, 0-based or 1-based
; $ArrayBase - 1 or 0 - tells what base the array is
; $sTitle - the title to put on the output window
; $Width, $Height, $Left, $Top - Set the size and position of the output window
; Requirement(s):   $Array must be 1d or 2d.  If 1-based, then arraysize is assumed to be $Array[0] or $Array[0][0]
; Return Value(s):  -1 = $Array is not an array, error=1
; Author(s):        Mike Ratzlaff <[email protected]>
; Revision: 20050620A
;
;===============================================================================
;
Func _ArrayBox(ByRef $Array, $ArrayBase = 1, $sTitle = 'Array Box', $sTemp = '', $sIni = False, $Width = 400, $Height = 200, $Left = -1, $Top = -1)
        Dim $AllDone = 0, $msg, $i, $j, $ArrayDimensions = UBound($Array, 0)
        Dim $hndForm_Main, $hndListView_Display
 
        If $ArrayDimensions = 0 Then
                SetError(1)
                Return -1
        EndIf
 
        ;Setup
        If $ArrayBase <> 0 Then $ArrayBase = 1
        If $ArrayBase Then
                Select
                        Case $ArrayDimensions = 1
                                $ArrayMax = $Array[0]
                        Case $ArrayDimensions = 2
                                $ArrayMax = $Array[0][0]
                EndSelect
        Else
                $ArrayMax = UBound($Array, 1) - 1
        EndIf
 
        ;Create GUI
        If $Height < 100 Then $Height = 100
        If $Width < 100 Then $Width = 100
        $hndForm_Main = GUICreate($sTitle, $Width, $Height, $Left, $Top, BitOR($WS_POPUP, $WS_CAPTION, $WS_SIZEBOX, $WS_MAXIMIZEBOX, $WS_EX_DLGMODALFRAME))
 
        ;Create List Box
        If $ArrayDimensions = 1 Then
                If $sTemp = '' Then $sTemp = 'Index|Value'
        ElseIf $ArrayDimensions = 2 Then
                If $sTemp = '' Then
                        $sTemp = 'Index'
                        For $i = 0 To UBound($Array, 2) - 1
                                $sTemp = $sTemp & '|' & $i
                        Next
                EndIf
        EndIf
        $hndListView_Display = GUICtrlCreateListView($sTemp, 0, 0, $Width, $Height - 24, BitOR($LVS_SHOWSELALWAYS, $LVS_SINGLESEL, $LVS_NOSORTHEADER))
        GUICtrlSetResizing($hndListView_Display, BitOR($GUI_DockLeft, $GUI_DockTop, $GUI_DockRight, $GUI_DockBottom))
        _GUICtrlListView_SetColumnWidth($hndListView_Display, 0, 36)
 
        ;Create Controls, Show GUI
        $hndButton_Close = GUICtrlCreateButton('&Close', $Width - 80, $Height - 24, 80, 24)
        GUICtrlSetResizing($hndButton_Close, BitOR($GUI_DockRight, $GUI_DockBottom, $GUI_DockSize))
        GUICtrlSetState($hndButton_Close, $GUI_DefButton)
        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))
        GUISetState(@SW_SHOW, $hndForm_Main)
 
        ;Display Array
        Select
                Case $ArrayDimensions = 1 ;1-Dimensional Array
                        For $i = $ArrayBase To $ArrayMax
                                GUICtrlCreateListViewItem($i & '|' & $Array[$i], $hndListView_Display)
                        Next ;$i
                Case $ArrayDimensions = 2 ;2-Dimensional Array
                        For $i = $ArrayBase To $ArrayMax
                                $sTemp = $Array[$i][0]
                                For $j = 1 To UBound($Array, 2) - 1
                                        $sTemp = $sTemp & '|' & $Array[$i][$j]
                                Next ;$j
                                GUICtrlCreateListViewItem('[' & $i & ']|' & $sTemp, $hndListView_Display)
                        Next ;$i
                Case Else ;Unhandled Type
 
        EndSelect
        _GUICtrlListView_SetColumnWidth($hndListView_Display, 1, $LVSCW_AUTOSIZE)
        _GUICtrlListView_SetColumnWidth($hndListView_Display, 2, $LVSCW_AUTOSIZE)
 
        ;Wait for user to close box
        Do
                $msg = GUIGetMsg()
                Select
                        Case $msg = $GUI_EVENT_CLOSE
                                $AllDone = 1
                        Case $msg = $hndButton_Close
                                $AllDone = 1
                EndSelect
        Until $AllDone
        Local $wPos = WinGetPos($sTitle)
        If @error = 0 And $sIni Then
                IniWrite($inifile, 'Test', 'XPos', $wPos[0])
                IniWrite($inifile, 'Test', 'YPos', $wPos[1])
                IniWrite($inifile, 'Test', 'Width', $wPos[2])
                IniWrite($inifile, 'Test', 'Height', $wPos[3])
        EndIf
        GUIDelete($hndForm_Main)
        Return 0
EndFunc   ;==>_ArrayBox
 
 
; #FUNCTION# =====================================================================================================================
; _FileListToArrayPlus($sPath, $sInclude = "*", $iFlag = 0, $sExcludeFolder = "", $sExclude = "", $iPathType = 0, $bRecursive = False)
; Name...........:  _FileListToArray_Rec
; Parameters ....:  $sPath: Folder to search
;     $sInclude: String to match on (wildcards allowed, multiples delimited by ;)
;     $iFlag: Returned data type. 0 = Files and folders (default), 1 = Files only, 2 = Folders only
;     $sExcludeFolder: List of folders to exclude from search (wildcards allowed, multiples delimited by ;)
;     $sExclude: List of filenames to exclude from search (wildcards allowed, multiples delimited by ;)
;     $iPathType: Returned data format. 0 = Filename only (default), 1 = Path relative to $sPath, 2 = Full path/filename
;     $bRecursive: False = Search $sPath folder only (default), True = Search $sPath and all subfolders
; Author ........:  Half the Autoit Community (Forum thread #96952)
;===================================================================================================================================
 
Func _FileListToArrayPlus($sPath, $sInclude = "", $iFlag = 0, $sExcludeFolder = "", $sExclude = "", $iPathType = 0, $bRecursive = False)
        Local $sRet = "", $sReturnFormat = "", $interrupt = False
        $sPath = StringRegExpReplace($sPath, "[\\/]+\z", "") & "\" ; ensure single trailing slash
        If Not FileExists($sPath) Then Return SetError(1, 1, "")
        ; Edit include files list
        If $sInclude = "*" Then $sInclude = ""
        If $sInclude Then
                If StringRegExp($sInclude, "[\\/ :><\|]|(?s)\A\s*\z") Then Return SetError(2, 2, "") ; invalid characters test
                $sInclude = StringRegExpReplace(StringRegExpReplace($sInclude, "(\s*;\s*)+", ";"), "\A;|;\z", "") ; Strip unwanted whitespace
                $sInclude = StringRegExpReplace($sInclude, "[][$.+^{}()]", "\\$0"); Ignore special characters
                $sInclude = StringReplace(StringReplace(StringReplace($sInclude, "?", "."), "*", ".*?"), ";", "$|") ; Convert ? to ., * to .*?, and ; to |
                $sInclude = "(?i)\A(" & $sInclude & "$)"; case-insensitive, match from first char, terminate strings
        EndIf
        ; Edit exclude folders list
        If $sExcludeFolder Then
                $sExcludeFolder = StringRegExpReplace(StringRegExpReplace($sExcludeFolder, "(\s*;\s*)+", ";"), "\A;|;\z", "") ; Strip unwanted whitespace
                $sExcludeFolder = StringRegExpReplace($sExcludeFolder, "[][$.+^{}()]", "\\$0"); Ignore special characters
                $sExcludeFolder = StringReplace(StringReplace(StringReplace($sExcludeFolder, "?", "."), "*", ".*?"), ";", "$|") ; Convert ?=.  *=.*?  ;=|
                $sExcludeFolder = "(?i)\A(?!" & $sExcludeFolder & "$)"; case-insensitive, match from first char, terminate strings
        EndIf
        ; Edit exclude files list
        If $sExclude Then
                $sExclude = StringRegExpReplace(StringRegExpReplace($sExclude, "(\s*;\s*)+", ";"), "\A;|;\z", "") ; Strip unwanted whitespace
                $sExclude = StringRegExpReplace($sExclude, "[][$.+^{}()]", "\\$0"); Ignore special characters
                $sExclude = StringReplace(StringReplace(StringReplace($sExclude, "?", "."), "*", ".*?"), ";", "$|") ; Convert ?=.  *=.*?  ;=|
                $sExclude = "(?i)\A(?!" & $sExclude & "$)"; case-insensitive, match from first char, terminate strings
        EndIf
        ;   MsgBox(1,"Masks","File include: " & $sInclude & @CRLF & "File exclude: " & $sExclude & @CRLF & "Dir exclude : " & $sExcludeFolder)
 
        If Not ($iFlag = 0 Or $iFlag = 1 Or $iFlag = 2) Then Return SetError(3, 3, "")
 
        Local $sOrigPathLen = StringLen($sPath), $aQueue[64] = [1, $sPath], $iQMax = 63
        While $aQueue[0]
                $WorkFolder = $aQueue[$aQueue[0]]
                $aQueue[0] -= 1
                $search = FileFindFirstFile($WorkFolder & "*")
                If @error Then ContinueLoop
                Switch $iPathType
                        Case 1 ; relative path
                                $sReturnFormat = StringTrimLeft($WorkFolder, $sOrigPathLen)
                        Case 2 ; full path
                                $sReturnFormat = $WorkFolder
                EndSwitch
                While 1
                        $nMsg2 = GUIGetMsg()
                        Switch $nMsg2
                                Case $Go
                                        $interrupt = True
                                        ExitLoop
                                Case Else
                                        $file = FileFindNextFile($search)
                                        If @error Then ExitLoop
                                        If @extended Then ; Folder
                                                If $sExcludeFolder And Not StringRegExp($file, $sExcludeFolder) Then ContinueLoop
                                                If $bRecursive Then
                                                        If $aQueue[0] = $iQMax Then
                                                                $iQMax += 128
                                                                ReDim $aQueue[$iQMax + 1]
                                                        EndIf
                                                        $aQueue[0] += 1
                                                        $aQueue[$aQueue[0]] = $WorkFolder & $file & "\"
                                                EndIf
                                                If $iFlag = 1 Then ContinueLoop
                                                $sRet &= $sReturnFormat & $file & "|"
                                        Else ; File
                                                If $iFlag = 2 Then ContinueLoop
                                                If $sInclude And Not StringRegExp($file, $sInclude) Then ContinueLoop
                                                If $sExclude And Not StringRegExp($file, $sExclude) Then ContinueLoop
                                                $sRet &= $sReturnFormat & $file & "|"
                                        EndIf
                        EndSwitch
                WEnd
                FileClose($search)
                If $interrupt Then ExitLoop
        WEnd
        If Not $sRet Then Return SetError(4, 4, "")
        Return StringSplit(StringTrimRight($sRet, 1), "|")
EndFunc   ;==>_FileListToArrayPlus

3686

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.

3687

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.

3688

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

3689

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:

Click on the image for the Steam store page.

3690

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]

$mySerial = '000001gh'
$myFactor = 2
$mySerial += $myFactor  ; With the implicit call becomes: Number($mySerial) += $myFactor

$mySerial = 3

Add this:

Code: AutoIt [Select]

StringFormat('%06s', $mySerial) ; With the implicit call becomes: StringFormat('%06s', String($mySerial))

$mySerial = '000003'

Keep up the bad practice if you like!

I'll take function over form any day as long as it gets the job done

3691

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?

3692

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:

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).

3693

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

3694

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).

3695

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.

3696

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]

Also, this article from May 21, 2012.

3697

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...

* Yes, both those drives are still happily working.

3698

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

3699

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:

3700

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 between	Estimated Invited to order date	Estimated shipping lead-time*
6th March - 12th March	Tuesday 19 June	9 weeks
13th March - 21st March	Wednesday 20 June	10 weeks
22nd March - 5th April	Thursday 21 June	11 weeks
6th April - 16 April	Friday 22 June	11 weeks
17th April - 25 April	Monday 25 June	12 weeks
26th April - 8th May	Tuesday 26 June	12 weeks
9th May - 23rd May	Wednesday 27 June	13 weeks
24th May - 7th June	Thursday 28 June	14 weeks
8th June onwards	Friday 29 June	14 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

Pages: prev • 1 ... 143 144 145 146 147 [148] 149 150 151 152 153 ... 225 • next

Recent Posts

Post New Requests Here / Re: Wish list program

Finished Programs / Re: DONE: Batch adjust shortcut targets

General Software Discussion / Re: Checking Bad sector in HDD and ExtHDD

Finished Programs / Re: DONE: Generate sequential serial numbers

Finished Programs / Re: DONE: Are any of the files missing???

Finished Programs / Re: DONE: Batch adjust shortcut targets

Living Room / Re: Show us the View Outside Your Window

Finished Programs / Re: DONE: Batch adjust shortcut targets

General Software Discussion / Re: corrupt index (I think): how to fix?

Finished Programs / Re: DONE: Batch adjust shortcut targets

Living Room / Re: silly humor - post 'em here! [warning some NSFW and adult content]

Screenshot Captor / Re: Time Interval in Auto Capture Timer

General Software Discussion / Re: corrupt index (I think): how to fix?

DC Gamer Club / [EXPIRED] Steam Weekend Deal - 75% off All Deus Ex Titles

Finished Programs / Re: DONE: Generate sequential serial numbers

Finished Programs / Re: DONE: Generate sequential serial numbers

DC Gamer Club / [EXPIRED] Commandos 3: Destination Berlin *FREE* + 10% voucher

Living Room / Re: Science News Roundup

Living Room / Re: Raspberry Pi's $35 Linux PC

General Software Discussion / Re: corrupt index (I think): how to fix?

Living Room / Re: Raspberry Pi's $35 Linux PC

General Software Discussion / Re: Checking Bad sector in HDD and ExtHDD

Living Room / Re: Petaflop is a stupid word

General Software Discussion / Re: Checking Bad sector in HDD and ExtHDD

Living Room / Re: Raspberry Pi's $35 Linux PC

DC Gamer Club / [EXPIRED] Commandos 3: Destination Berlin FREE + 10% voucher