Delete Files From Log - Revision history

Kichik: Reverted edits by 201.15.81.47 to last version by Anders

2012-02-15T02:56:33Z

Reverted edits by 201.15.81.47 to last version by Anders

â† Older revision		Revision as of 02:56, 15 February 2012
Line 47:		Line 47:
	;MessageBox MB_OK "Foldertest: $R5"		;MessageBox MB_OK "Foldertest: $R5"
	StrCmp $R5 "Output folder: " ChangeDir ; Line specifies a directory		StrCmp $R5 "Output folder: " ChangeDir ; Line specifies a directory
	S5"		StrCpy $R5 $R4 9
			;MessageBox MB_OK "Filetest: $R5"
	StrCmp $R5 "Extract: " ChangeFile ; Line specifies a file		StrCmp $R5 "Extract: " ChangeFile ; Line specifies a file
	StrCmp $R4 "" DoneAndDone ; Out of lines		StrCmp $R4 "" DoneAndDone ; Out of lines

201.15.81.47: /* The Function */

2012-02-14T02:23:12Z

The Function

â† Older revision		Revision as of 02:23, 14 February 2012
Line 47:		Line 47:
	;MessageBox MB_OK "Foldertest: $R5"		;MessageBox MB_OK "Foldertest: $R5"
	StrCmp $R5 "Output folder: " ChangeDir ; Line specifies a directory		StrCmp $R5 "Output folder: " ChangeDir ; Line specifies a directory
	~~StrCpy $R5 $R4 9~~		S5"
	~~;MessageBox MB_OK "Filetest: $R5~~"
	StrCmp $R5 "Extract: " ChangeFile ; Line specifies a file		StrCmp $R5 "Extract: " ChangeFile ; Line specifies a file
	StrCmp $R4 "" DoneAndDone ; Out of lines		StrCmp $R4 "" DoneAndDone ; Out of lines

Anders: Reverted edits by 177.106.252.166 to last version by Kichik

2012-01-14T19:14:19Z

Reverted edits by 177.106.252.166 to last version by Kichik

â† Older revision		Revision as of 19:14, 14 January 2012
Line 24:		Line 24:
	...		...
	</highlight-nsis>		</highlight-nsis>

			== The Function ==
			<highlight-nsis>
			function un.DeleteFromLog
			; R0 will be used as the log
			; R1 will be used as the current directory
			; R2 will be used as the current file
			; R3 will be the file handle
			; R4 will be the line
			; R5 will be temp space
			exch $R0 ; gets the log
			push $R1 ; Backup $R1
			push $R2 ; Backup $R2
			push $R3 ; Backup $R3. Stack is left in order $R0, $R1, $R2, etc
			push $R4
			push $R5
			FileOpen $R3 "$R0" "r"
			NewLine:
			FileRead $R3 $R4
			;MessageBox MB_OK "New Line: $R4"
			StrCpy $R5 $R4 15
			;MessageBox MB_OK "Foldertest: $R5"
			StrCmp $R5 "Output folder: " ChangeDir ; Line specifies a directory
			StrCpy $R5 $R4 9
			;MessageBox MB_OK "Filetest: $R5"
			StrCmp $R5 "Extract: " ChangeFile ; Line specifies a file
			StrCmp $R4 "" DoneAndDone ; Out of lines
			Goto NewLine ; If the line is none of the above, grab a new one.

			ChangeDir:
			RMDir $R1 ; Try to remove the last directory
			StrCpy $R5 $R1
			DeleteParents:
			; Will attempt to delete parent directorys until it runs out
			; not aggressive, just removes empty directories recurisvely
			; before moving onto a new directory to delete files from
			Push $R5
			Call un.GetParent
			Pop $R5
			StrCmp $R5 "" +2
			RMDir $R5
			StrCmp $R5 "" 0 DeleteParents

			StrCpy $R1 $R4 1024 15 ; Get the new directory
			StrLen $R5 $R1
			IntOp $R5 $R5 - "2"
			StrCpy $R1 $R1 $R5 ; trims off the newline at the end
			Goto NewLine

			ChangeFile:
			StrCpy $R2 $R4 1024 9 ; Get the new file
			StrLen $R5 $R2
			IntOp $R5 $R5 - "10"
			StrCpy $R2 $R2 $R5 ; trims off the ...100% and the newline
			Delete "$R1\$R2" ; Try to delete the new file
			Goto NewLine

			DoneAndDone:
			FileClose $R3
			Pop $R5 ; Restore the registers
			Pop $R4
			Pop $R3
			Pop $R2
			Pop $R1
			Exch $R0
			functionend
			</highlight-nsis>

			[[Category:Logging Functions]]

177.106.252.166: /* The Function */

2012-01-14T18:54:32Z

The Function

â† Older revision		Revision as of 18:54, 14 January 2012
Line 24:		Line 24:
	...		...
	</highlight-nsis>		</highlight-nsis>

	~~== The Function ==~~
	~~<highlight-nsis>~~
	~~function un.DeleteFromLog~~
	~~; R0 will be used as the log~~
	~~; R1 will be used as the current directory~~
	~~; R2 will be used as the current file~~
	~~; R3 will be the file handle~~
	~~; R4 will be the line~~
	~~; R5 will be temp space~~
	~~exch $R0 ; gets the log~~
	~~push $R1 ; Backup $R1~~
	~~push $R2 ; Backup $R2~~
	~~push $R3 ; Backup $R3. Stack is left in order $R0, $R1, $R2, etc~~
	~~push $R4~~
	~~push $R5~~
	~~FileOpen $R3 "$R0" "r"~~
	~~NewLine:~~
	~~FileRead $R3 $R4~~
	~~;MessageBox MB_OK "New Line: $R4"~~
	~~StrCpy $R5 $R4 15~~
	~~;MessageBox MB_OK "Foldertest: $R5"~~
	~~StrCmp $R5 "Output folder: " ChangeDir ; Line specifies a directory~~
	~~StrCpy $R5 $R4 9~~
	~~;MessageBox MB_OK "Filetest: $R5"~~
	~~StrCmp $R5 "Extract: " ChangeFile ; Line specifies a file~~
	~~StrCmp $R4 "" DoneAndDone ; Out of lines~~
	~~Goto NewLine ; If the line is none of the above, grab a new one.~~

	~~ChangeDir:~~
	~~RMDir $R1 ; Try to remove the last directory~~
	~~StrCpy $R5 $R1~~
	~~DeleteParents:~~
	~~; Will attempt to delete parent directorys until it runs out~~
	~~; not aggressive, just removes empty directories recurisvely~~
	~~; before moving onto a new directory to delete files from~~
	~~Push $R5~~
	~~Call un.GetParent~~
	~~Pop $R5~~
	~~StrCmp $R5 "" +2~~
	~~RMDir $R5~~
	~~StrCmp $R5 "" 0 DeleteParents~~

	~~StrCpy $R1 $R4 1024 15 ; Get the new directory~~
	~~StrLen $R5 $R1~~
	~~IntOp $R5 $R5 - "2"~~
	~~StrCpy $R1 $R1 $R5 ; trims off the newline at the end~~
	~~Goto NewLine~~

	~~ChangeFile:~~
	~~StrCpy $R2 $R4 1024 9 ; Get the new file~~
	~~StrLen $R5 $R2~~
	~~IntOp $R5 $R5 - "10"~~
	~~StrCpy $R2 $R2 $R5 ; trims off the ...100% and the newline~~
	~~Delete "$R1\$R2" ; Try to delete the new file~~
	~~Goto NewLine~~

	~~DoneAndDone:~~
	~~FileClose $R3~~
	~~Pop $R5 ; Restore the registers~~
	~~Pop $R4~~
	~~Pop $R3~~
	~~Pop $R2~~
	~~Pop $R1~~
	~~Exch $R0~~
	~~functionend~~
	~~</highlight-nsis>~~

	~~[[Category:Logging Functions]]~~

Kichik at 16:38, 20 July 2011

2011-07-20T16:38:10Z

@@ Line 1: / Line 1: @@
 {{PageAuthor|Namrok}}
-page manutenção
+== Description ==
-nunca mais funcionara
+I wrote a function that will read the log file written out using "[[Dump log to file]]" and delete just those files that were written, as well as any empty directories left.  Just push the location of the logfile onto the stack before you run it.  It will leave it there, so you could always pop it off again.

187.6.163.150: Error

2011-07-20T16:09:23Z

Error

@@ Line 1: / Line 1: @@
 {{PageAuthor|Namrok}}
-== The Function ==
+page manutenção
-<highlight-nsis>
+nunca mais funcionara

187.6.163.150: /* Description */

2011-07-20T16:07:25Z

Description

â† Older revision		Revision as of 16:07, 20 July 2011
Line 1:		Line 1:
	{{PageAuthor\|Namrok}}		{{PageAuthor\|Namrok}}

	~~== Description ==~~
	I wrote a function that will read the log file written out using "[[Dump log to file]]" and delete just those files that were written, as well as any empty directories left. Just push the location of the logfile onto the stack before you run it. It will leave it there, so you could always pop it off again.

	Bo: Depending on which compression you use, this might not work, because for example the lzma compressor generates log files with file entries that do not have the trailing "...100%" that this script relies on.

	~~Bo: This script needs "[[Get_parent_directory]]" renamed to un.GetParent to work.~~

	~~Boris: This script is not compatible with [[ZipDLL_plug-in]]. To use it with zipdll make the following changes:~~
	~~<highlight-nsis>~~
	~~...~~
	~~StrCpy $R5 $R4 11~~
	~~;MessageBox MB_OK "Filetest: $R5"~~
	~~StrCmp $R5 " Extract :" ChangeFile ; Line specifies a file~~
	~~...~~
	~~ChangeFile:~~
	~~StrCpy $R2 $R4 1024 12 ; Get the new file~~
	~~StrLen $R5 $R2~~
	~~IntOp $R5 $R5 - "2"~~
	~~StrCpy $R2 $R2 $R5 ; trims off the the newline~~
	~~Delete "$R1\$R2" ; Try to delete the new file~~
	~~Goto NewLine~~
	~~...~~
	~~</highlight-nsis>~~

	== The Function ==		== The Function ==

82.83.103.101: /* Description */

2006-07-11T21:25:05Z

Description

â† Older revision		Revision as of 21:25, 11 July 2006
Line 8:		Line 8:
	Bo: This script needs "[[Get_parent_directory]]" renamed to un.GetParent to work.		Bo: This script needs "[[Get_parent_directory]]" renamed to un.GetParent to work.

	Boris: This script is not compatible with ~~zipdll~~. To use it with zipdll make the following changes:		Boris: This script is not compatible with [[ZipDLL_plug-in]]. To use it with zipdll make the following changes:
	<highlight-nsis>		<highlight-nsis>
	...		...

82.83.103.101: /* Description */

2006-07-11T21:22:00Z

Description

â† Older revision		Revision as of 21:22, 11 July 2006
Line 7:		Line 7:

	Bo: This script needs "[[Get_parent_directory]]" renamed to un.GetParent to work.		Bo: This script needs "[[Get_parent_directory]]" renamed to un.GetParent to work.

			Boris: This script is not compatible with zipdll. To use it with zipdll make the following changes:
			<highlight-nsis>
			...
			StrCpy $R5 $R4 11
			;MessageBox MB_OK "Filetest: $R5"
			StrCmp $R5 " Extract :" ChangeFile ; Line specifies a file
			...
			ChangeFile:
			StrCpy $R2 $R4 1024 12 ; Get the new file
			StrLen $R5 $R2
			IntOp $R5 $R5 - "2"
			StrCpy $R2 $R2 $R5 ; trims off the the newline
			Delete "$R1\$R2" ; Try to delete the new file
			Goto NewLine
			...
			</highlight-nsis>

	== The Function ==		== The Function ==

Marrs at 22:22, 14 January 2006

2006-01-14T22:22:25Z

â† Older revision		Revision as of 22:22, 14 January 2006
Line 3:		Line 3:
	== Description ==		== Description ==
	I wrote a function that will read the log file written out using "[[Dump log to file]]" and delete just those files that were written, as well as any empty directories left. Just push the location of the logfile onto the stack before you run it. It will leave it there, so you could always pop it off again.		I wrote a function that will read the log file written out using "[[Dump log to file]]" and delete just those files that were written, as well as any empty directories left. Just push the location of the logfile onto the stack before you run it. It will leave it there, so you could always pop it off again.

			Bo: Depending on which compression you use, this might not work, because for example the lzma compressor generates log files with file entries that do not have the trailing "...100%" that this script relies on.

			Bo: This script needs "[[Get_parent_directory]]" renamed to un.GetParent to work.

	== The Function ==		== The Function ==