Core Function FileReadBinary - Revision history

UberFoX: 1 revision

2015-06-14T12:38:12Z

1 revision

← Older revision

Revision as of 12:38, 14 June 2015

UberFoX: 1 revision

2014-08-11T21:40:32Z

1 revision

← Older revision

Revision as of 21:40, 11 August 2014

UberFoX: /* Example */

2013-09-27T16:33:09Z

Example

← Older revision		Revision as of 16:33, 27 September 2013
Line 42:		Line 42:
	}		}

−	$File = FileOpen("~~MyFile~~.~~txt~~", "r");	+	$File = FileOpen("Main.spk", "r");
	If ( isVarObj($File, "file") )		If ( isVarObj($File, "file") )
	{		{
Line 54:		Line 54:
	println( "Info: " . $binary );		println( "Info: " . $binary );
	println( "Size: " . UBound($binary) );		println( "Size: " . UBound($binary) );
−	println( "TEXT BELOW\n" . Trim(Unpack("z0", $binary)) . "\nTEXT ABOVE" );	+	println( "TEXT BELOW\n" . Trim(Unpack("A*", $binary, 3)) . "\nTEXT ABOVE" );
	FileClose( $File );		FileClose( $File );
	}		}

UberFoX: /* Return Value */

2013-08-29T11:40:46Z

Return Value

← Older revision		Revision as of 11:40, 29 August 2013
Line 23:		Line 23:
	Success: Returns a binary variable filled with data read from file.		Success: Returns a binary variable filled with data read from file.

−	Failure: Returns 0 if error occurs.	+	Failure: Returns null if error occurs.

	=== Remarks ===		=== Remarks ===

UberFoX: /* Example */

2011-11-19T01:42:11Z

Example

← Older revision		Revision as of 01:42, 19 November 2011
Line 32:		Line 32:

	<syntaxhighlight lang="sputnik">		<syntaxhighlight lang="sputnik">
−	$File = FileOpen("MyFile.txt", "w")	+	$File = FileOpen("MyFile.txt", "w");
−	If ~~isObj~~($File, "file") ~~Then ; You could just use isObj($File~~) ~~however adding the "file" will make sure it is indeed a file~~	+	If ( isVarObj($File, "file") )
−	FileAppend( $File, "This is line 1\n" )	+	{
−	FileAppend( $File, "This is line 2\n" )	+	FileAppend( $File, "This is line 1\n" );
−	FileAppend( $File, "This is line 3\n" )	+	FileAppend( $File, "This is line 2\n" );
−	FileAppend( $File, $lines )	+	FileAppend( $File, "This is line 3\n" );
−	FileClose( $File )	+	FileAppend( $File, $lines );
−		+	FileClose( $File );
−	~~EndIf~~	+	}
−		+
−	$File = FileOpen("MyFile.txt", "r")	+	$File = FileOpen("MyFile.txt", "r");
−	If ~~isObj~~($File, "file") ~~Then~~	+	If ( isVarObj($File, "file") )
−	$binary = FileReadBinary($File)	+	{
−	$k = 0	+	$binary = FileReadBinary($File);
−	~~For $i In~~ $binary	+	$k = 0;
−	println( DecPad($k, 5) . " Byte: " . $i . " \| Hex: " . Hex($i) . " \| Char: " . Chr($i) )	+	Foreach ($binary as $i)
−	$k++	+	{
−	~~Next~~	+	println( DecPad($k, 5) . " Byte: " . $i . " \| Hex: " . Hex($i) . " \| Char: " . Chr($i) );
−	println( "Info: " . $binary )	+	$k++;
−	println( "Size: " . ~~BinaryLen~~($binary) )	+	}
−	println( "TEXT BELOW\n" . Trim(Unpack("z0", $binary)) . "\nTEXT ABOVE" )	+	println( "Info: " . $binary );
−		+	println( "Size: " . UBound($binary) );
−	FileClose( $File )	+	println( "TEXT BELOW\n" . Trim(Unpack("z0", $binary)) . "\nTEXT ABOVE" );
−	~~EndIf~~	+	FileClose( $File );
		+	}
	</syntaxhighlight>		</syntaxhighlight>

	[[Category:Core Function]]		[[Category:Core Function]]

UberFoX: Created page with "

 FileReadBinary( ,  )

=== Description === Read a number of bytes from a previously opened file starting from current File Steam pointer location...."

2011-11-12T14:05:27Z

Created page with "<pre> FileReadBinary( <file>, <expression> ) </pre> === Description === Read a number of bytes from a previously opened file starting from current File Steam pointer location...."

New page

<pre>
FileReadBinary( <file>, <expression> )
</pre>

=== Description ===

Read a number of bytes from a previously opened file starting from current File Steam pointer location.

=== Parameters ===

==== file ====

A variable containing the File handle.

==== expression ====

Optional; Number of bytes to read.

If this param is not provided it will read to the end of the file.

=== Return Value ===

Success: Returns a binary variable filled with data read from file.

Failure: Returns 0 if error occurs.

=== Remarks ===

N/A

=== Example ===

<syntaxhighlight lang="sputnik">
$File = FileOpen("MyFile.txt", "w")
If isObj($File, "file") Then ; You could just use isObj($File) however adding the "file" will make sure it is indeed a file
FileAppend( $File, "This is line 1\n" )
FileAppend( $File, "This is line 2\n" )
FileAppend( $File, "This is line 3\n" )
FileAppend( $File, $lines )
FileClose( $File )

EndIf

$File = FileOpen("MyFile.txt", "r")
If isObj($File, "file") Then
$binary = FileReadBinary($File)
$k = 0
For $i In $binary
println( DecPad($k, 5) . " Byte: " . $i . " | Hex: " . Hex($i) . " | Char: " . Chr($i) )
$k++
Next
println( "Info: " . $binary )
println( "Size: " . BinaryLen($binary) )
println( "TEXT BELOW\n" . Trim(Unpack("z0", $binary)) . "\nTEXT ABOVE" )

FileClose( $File )
EndIf
</syntaxhighlight>

[[Category:Core Function]]