Why and how to use File Handlers - Revision history

Vliedel: enhanced example script

2011-03-07T23:25:15Z

enhanced example script

← Older revision		Revision as of 23:25, 7 March 2011
Line 128:		Line 128:
	==Example==		==Example==
	A test alias showing speed differences of /fwrite & /write and $fread & $read		A test alias showing speed differences of /fwrite & /write and $fread & $read
	alias filetest {
	if ($isfile(filetest.txt)) { echo -ag The file filetest.txt already exists! \| halt }		[[alias]] filetest {
	if ($fopen(filetest)) { .fclose filetest }		[[If-Then-Else\|if]] ([[$isfile]](filetest.txt)) { [[echo]] -ag The file filetest.txt already exists! \| halt }
			[[If-Then-Else\|if]] ($fopen(filetest)) { .[[fclose]] filetest }

	~~;; WRITE-part~~		[[Local_Variables\|var]] %max = 1000, %str = [[$str]](x,100)

	~~.fopen~~ -~~n filetest [[$qt]]([[$mircdir]]filetest.txt)~~		;; WRITE-part
	~~var %str = [[$str]](x,100)~~

	var %x = 1, %t = [[$ticks]]		[[Local_Variables\|var]] %x = %max, %t = [[$ticks]]
	while (%x ~~<= 5000~~) {		.[[fopen]] -n filetest filetest.txt
	.fwrite -n filetest %str		[[while]] (%x) {
	~~inc~~ %x		.[[fwrite]] -n filetest %str
	}		[[dec]] %x
	.fclose filetest		}
	echo -ag /fwrite with ~~5000~~ lines: [[$calc]]($ticks - %t) [[DollarPlus\|$+]] ms		.[[fclose]] filetest
	.[[remove]] ~~$qt($mircdirfiletest~~.txt)		[[echo]] -ag /fwrite with %max lines: [[$calc]]([[$ticks]] - %t) [[DollarPlus\|$+]] ms
			.[[remove]] filetest.txt

	var %x = 1,%t = $ticks		[[Local_Variables\|var]] %x = %max, %t = [[$ticks]]
	while (%x ~~<= 5000~~) {		[[while]] (%x) {
	write filetest.txt %str		[[write]] filetest.txt %str
	~~inc~~ %x		[[dec]] %x
	}		}
	echo -ag /write with ~~5000~~ lines: $calc($ticks - %t) $+ ms		[[echo]] -ag /write with %max lines: [[$calc]]([[$ticks]] - %t) [[DollarPlus\|$+]] ms

	;; READ-part		;; READ-part

	~~.fopen filetest $qt($mircdirfiletest.txt)~~		[[Local_Variables\|var]] %t = [[$ticks]]
	var %t = $ticks		.[[fopen]] filetest filetest.txt
	while (!$fopen(filetest).eof) {		[[while]] (!$fopen(filetest).eof) {
	~~.echo~~ -qg $fread(filetest)		[[noop]] -qg $fread(filetest)
	}		}
	echo -ag $ $+ fread with ~~5000~~ lines: $calc($ticks - %t) $+ ms		.[[fclose]] filetest
			[[echo]] -ag $ [[DollarPlus\|$+]] fread with %max lines: [[$calc]]([[$ticks]] - %t) [[DollarPlus\|$+]] ms

	var %x = 1,%t = $ticks		[[Local_Variables\|var]] %x = %max,%t = [[$ticks]]
	while (%x ~~<= 5000~~) {		[[while]] (%x) {
	~~.echo -qg~~ $read(filetest.txt,%x)		[[noop]] [[$read]](filetest.txt,%x)
	~~inc~~ %x		[[dec]] %x
	}		}
	~~.fclose filetest~~		[[echo]] -ag $ [[DollarPlus\|$+]] read with %max lines: [[$calc]]([[$ticks]] - %t) [[DollarPlus\|$+]] ms
	echo -ag $ $+ read with ~~5000~~ lines: $calc($ticks - %t) $+ ms		.[[remove]] filetest.txt

	.remove ~~$qt($mircdirfiletest~~.txt)
	}		}

Vliedel: grrrr

2007-04-17T08:06:12Z

grrrr

← Older revision		Revision as of 08:06, 17 April 2007
Line 143:		Line 143:
	}		}
	.fclose filetest		.fclose filetest
	echo -ag /fwrite with 5000 lines: [[$calc]]($ticks - %t) [[~~Dollar_Plus~~\|$+]] ms		echo -ag /fwrite with 5000 lines: [[$calc]]($ticks - %t) [[DollarPlus\|$+]] ms
	.[[remove]] $qt($mircdirfiletest.txt)		.[[remove]] $qt($mircdirfiletest.txt)

Vliedel at 08:05, 17 April 2007

2007-04-17T08:05:43Z

← Older revision		Revision as of 08:05, 17 April 2007
Line 143:		Line 143:
	}		}
	.fclose filetest		.fclose filetest
	echo -ag /fwrite with 5000 lines: [[$calc]]($ticks - %t) [[$Dollar_Plus\|$+]] ms		echo -ag /fwrite with 5000 lines: [[$calc]]($ticks - %t) [[Dollar_Plus\|$+]] ms
	.[[remove]] $qt($mircdirfiletest.txt)		.[[remove]] $qt($mircdirfiletest.txt)

Vliedel: added links to wikipages again

2007-04-17T08:01:02Z

added links to wikipages again

← Older revision		Revision as of 08:01, 17 April 2007
Line 5:		Line 5:
	[[Aliases\|alias]] example {		[[Aliases\|alias]] example {
	[[var]] %i = 1		[[var]] %i = 1
	while (%i [[If#.3C\|~~<~~]] [[$lines]](examplefile.txt)) {		while (%i [[If#.3C.3D\|<=]] [[$lines]](examplefile.txt)) {
	[[noop]] $read(examplefile.txt,n,%i)		[[noop]] $read(examplefile.txt,n,%i)
	[[inc]] %i		[[inc]] %i
Line 67:		Line 67:
	.fopen bancheck bans.txt		.fopen bancheck bans.txt
	while (!$fopen(bancheck).eof) {		while (!$fopen(bancheck).eof) {
	[[var]] %thisAddress = $fread(bancheck)		var %thisAddress = $fread(bancheck)
	}		}
	}		}
Line 134:		Line 134:
	;; WRITE-part		;; WRITE-part

	.fopen -n filetest $qt($~~mircdirfiletest~~.txt)		.fopen -n filetest [[$qt]]([[$mircdir]]filetest.txt)
	var %str = $str(x,100)		var %str = [[$str]](x,100)

	var %x = 1, %t = $ticks		var %x = 1, %t = [[$ticks]]
	while (%x <= 5000) {		while (%x <= 5000) {
	.fwrite -n filetest %str		.fwrite -n filetest %str
Line 143:		Line 143:
	}		}
	.fclose filetest		.fclose filetest
	echo -ag /fwrite with 5000 lines: $calc($ticks - %t) $+ ms		echo -ag /fwrite with 5000 lines: [[$calc]]($ticks - %t) [[$Dollar_Plus\|$+]] ms
	.remove $qt($mircdirfiletest.txt)		.[[remove]] $qt($mircdirfiletest.txt)

	var %x = 1,%t = $ticks		var %x = 1,%t = $ticks

Cail: dippadai

2007-04-16T19:16:22Z

dippadai

← Older revision		Revision as of 19:16, 16 April 2007
Line 134:		Line 134:
	;; WRITE-part		;; WRITE-part

	.fopen -n filetest [[$qt]]([[$~~mircdir]]filetest~~.txt)		.fopen -n filetest $qt($mircdirfiletest.txt)
	~~;The $regsubex() below is to generate a random string of a-z of a 100 bytes.~~		var %str = $str(x,100)
	var %str = ~~[[$regsubex]]([[~~$str]](x,100~~),/x/g,[[$rand\|$r]](a,z)~~)
			var %x = 1, %t = $ticks
	var %x = 1, %t = [[$ticks]]
	while (%x <= 5000) {		while (%x <= 5000) {
	.fwrite -n filetest %str		.fwrite -n filetest %str
	[[inc]] %x		inc %x
	}		}
	.fclose filetest		.fclose filetest
	echo -ag /fwrite with 5000 lines: [[$calc]]($ticks - %t) ~~[[$Dollar_Plus\|~~$+]] ms		echo -ag /fwrite with 5000 lines: $calc($ticks - %t) $+ ms
	.[[remove]] $qt($mircdirfiletest.txt)		.remove $qt($mircdirfiletest.txt)

	var %x = 1,%t = $ticks		var %x = 1,%t = $ticks
Line 175:		Line 174:

	I got these results:		I got these results:
	/fwrite with 5000 lines: ~~156ms~~		/fwrite with 5000 lines: 171ms
	/write with 5000 lines: ~~7313ms~~		/write with 5000 lines: 1844ms
	$fread with 5000 lines: 156ms		$fread with 5000 lines: 156ms
	$read with 5000 lines: ~~14375ms~~		$read with 5000 lines: 16969ms

	{{Author\|aca20031}}		{{Author\|aca20031}}
	[[Category:Tutorials]]		[[Category:Tutorials]]
	[[Category:File Handling]]		[[Category:File Handling]]

Albie: changed example to make cail happy/happier :p

2007-04-16T19:08:01Z

changed example to make cail happy/happier :p

← Older revision		Revision as of 19:08, 16 April 2007
Line 135:		Line 135:

	.fopen -n filetest [[$qt]]([[$mircdir]]filetest.txt)		.fopen -n filetest [[$qt]]([[$mircdir]]filetest.txt)
	var %x = 1,%t = [[$ticks]]		;The $regsubex() below is to generate a random string of a-z of a 100 bytes.
			var %str = [[$regsubex]]([[$str]](x,100),/x/g,[[$rand\|$r]](a,z))

			var %x = 1, %t = [[$ticks]]
	while (%x <= 5000) {		while (%x <= 5000) {
	~~;The $regsubex() below is to generate a random string of a-z of a 100 bytes.~~		.fwrite -n filetest %str
	.fwrite -n filetest ~~[[$regsubex]]([[$~~str~~]](x,100),/x/g,[[$rand\|$r]](a,z))~~
	[[inc]] %x		[[inc]] %x
	}		}
Line 147:		Line 149:
	var %x = 1,%t = $ticks		var %x = 1,%t = $ticks
	while (%x <= 5000) {		while (%x <= 5000) {
	write filetest.txt $str~~($r(a,z),100)~~		write filetest.txt %str
	inc %x		inc %x
	}		}
Line 173:		Line 175:

	I got these results:		I got these results:
	/fwrite with 5000 lines: ~~281ms~~		/fwrite with 5000 lines: 156ms
	/write with 5000 lines: ~~2031ms~~		/write with 5000 lines: 7313ms
	$fread with 5000 lines: ~~172ms~~		$fread with 5000 lines: 156ms
	$read with 5000 lines: ~~17234ms~~		$read with 5000 lines: 14375ms

	{{Author\|aca20031}}		{{Author\|aca20031}}
	[[Category:Tutorials]]		[[Category:Tutorials]]
	[[Category:File Handling]]		[[Category:File Handling]]

Albie: corrected link for category binary files

2007-04-16T18:32:12Z

corrected link for category binary files

← Older revision		Revision as of 18:32, 16 April 2007
Line 60:		Line 60:
	*$fread(name\|number) will return the next line after the pointer, and advanced the pointer past that line.		*$fread(name\|number) will return the next line after the pointer, and advanced the pointer past that line.
	*$fread(name\|number,M,&bvar) will read from the current pointer position, the next M bytes into &bvar		*$fread(name\|number,M,&bvar) will read from the current pointer position, the next M bytes into &bvar
	**To learn about binary variables, see the [[Binary Files]] category.		**To learn about binary variables, see the [[:Category:Binary_Files\|Binary Files]] category.

	alias isbanned {		alias isbanned {

Albie: Added wikilinks, changed some links from external site to internal links to categories, fixed typo's, changed test to make slightly more fair comparison

2007-04-16T18:22:36Z

Added wikilinks, changed some links from external site to internal links to categories, fixed typo's, changed test to make slightly more fair comparison

Show changes

Cail: typo

2007-04-16T08:33:21Z

typo

← Older revision		Revision as of 08:33, 16 April 2007
Line 139:		Line 139:
	inc %x		inc %x
	}		}
	echo -ag /fwrite with ~~500~~ lines: $calc($ticks - %t) $+ ms		echo -ag /fwrite with 5000 lines: $calc($ticks - %t) $+ ms

	.fclose filetest		.fclose filetest

Cail: added a little benchmark example

2007-04-16T08:31:30Z

added a little benchmark example

@@ Line 124: / Line 124: @@
     return $false
+  }
 {{Author|aca20031}}
 [[Category:Tutorials]]
 [[Category:File Handling]]