File size: Difference between revisions
m
syntax highlighting fixup automation
Thundergnat (talk | contribs) m (syntax highlighting fixup automation) |
|||
Line 5:
=={{header|11l}}==
<
V size2 = fs:file_size(‘/input.txt’)</
=={{header|8086 Assembly}}==
Line 12:
This program runs under MS-DOS.
<
puts: equ 9 ; Print $-terminated string
setdta: equ 1Ah ; Set DTA
Line 79:
colspc: db ': $' ; Colon and space
section .bss
dta: resb 512 ; Disc transfer area</
{{out}}
Line 109:
DOS 2.5 returns file size in number of sectors. It is required to read the whole file to calculate its size in bytes.
{{libheader|Action! Tool Kit}}
<
PROC Dir(CHAR ARRAY filter)
Line 155:
size=FileSize(fname)
PrintF("Size of ""%S"" is %U bytes%E",fname,size)
RETURN</
{{out}}
<pre>
Line 169:
The '''Sparta DOS X''' system stores the size of the file in the directory. The readout of the values is performed with the XIO 39 operation. In the ICAX3, ICAX4, ICAX5 registers values are returned in 24-byte format. Calculation according to the formula: ICAX3 + ICAX4 * 256 + ICAX5 * 65536.
{{libheader|Action! Tool Kit}}
<
proc MAIN()
Line 183:
print("Size of REAL.ACT is ") printRD(DEVICE,FLEN) printe(" bytes")
return
</syntaxhighlight>
{{out}}
<pre>
Line 190:
=={{header|Ada}}==
<
with Ada.Text_IO; use Ada.Text_IO;
Line 197:
Put_Line (File_Size'Image (Size ("input.txt")) & " bytes");
Put_Line (File_Size'Image (Size ("/input.txt")) & " bytes");
end Test_File_Size;</
Note that reference to the root directory, if there is any, is [[OS]] specific.
=={{header|Aime}}==
<
o_("/Cygwin.ico".stat(ST_SIZE), "\n");</
=={{header|ALGOL 68}}==
Line 208:
special channel, e.g. a tape device.
Conceptually the procedure <
could be used to do a binary search find the last page's page number. And if it is known
that every page has the same number of lines, and every line has the same number of '''char'''[s],
Line 219:
=={{header|Arturo}}==
<
print volume "/input.txt"</
=={{header|AutoHotkey}}==
<
MsgBox, Size of input.txt is %FileSize% bytes
FileGetSize, FileSize, \input.txt, K ; Retrieve the size in Kbytes.
MsgBox, Size of \input.txt is %FileSize% Kbytes</
=={{header|AWK}}==
{{works with|gawk}}
<
function filesize(name ,fd) {
if ( stat(name, fd) == -1)
Line 240:
print filesize("input.txt")
print filesize("/input.txt")
}</
Some awk's don't have direct access to the filesystem, but can execute system-commands like dir (DOS/Windows) and ls
<
# Windows
Line 281:
close(command)
return ship
}</
Line 287:
=={{header|Axe}}==
<
Disp {I-2}ʳ▶Dec,i
Else
Disp "NOT FOUND",i
End</
=={{header|BaCon}}==
<
' Return the entire message, FILELEN returns a NUMBER
FUNCTION printlen$(STRING name$)
Line 305:
PRINT printlen$("input.txt")
PRINT printlen$("/input.txt")</
{{out}}
Line 320:
=={{header|Batch File}}==
Outputs file size of the first parameter (you can drag and drop a file in aswell).
<
@echo off
if not exist "%~1" exit /b 1 & rem If file doesn't exist exit with error code of 1.
for /f %%i in (%~1) do echo %~zi
pause>nul
</syntaxhighlight>
=={{header|BBC BASIC}}==
<
IF file% THEN
PRINT "File size = " ; EXT#file%
Line 338:
PRINT "File size = " ; EXT#file%
CLOSE #file%
ENDIF</
=={{header|Bracmat}}==
This solution assumes that the file can be opened for reading. The <code>fil</code> function is the Bracmat interface to the underlying C functions <code>fopen, fclose, fseek, ftell, fread, fgetc, fwrite, fputc</code> and <code>feof</code>. More than one file can be opened at the same time. Focus is shifted from one open file to another by mentioning the file name as the first argument.
<
size
. fil$(!arg,rb) {read in binary mode}
Line 357:
getFileSize$"c:\\boot.ini"
211
</syntaxhighlight>
=={{header|C}}==
<
#include <stdio.h>
Line 378:
printf("%ld\n", getFileSize("/input.txt"));
return 0;
}</
{{works with|POSIX}}
<
#include <stdio.h>
#include <sys/stat.h>
Line 393:
printf("%ld\n", foo.st_size);
return 0;
}</
=={{header|C sharp|C#}}==
<
using System.IO;
Line 408:
}
}
</syntaxhighlight>
=={{header|C++}}==
<
#include <fstream>
Line 426:
std::cout << getFileSize("/input.txt") << std::endl;
return 0;
}</
'''optimized '''
<
#include <fstream>
Line 436:
std::cout << std::ifstream("input.txt", std::ios::binary | std::ios::ate).tellg() << "\n"
<< std::ifstream("/input.txt", std::ios::binary | std::ios::ate).tellg() << "\n";
}</
===C++ 17===
<
#include <iostream>
Line 454:
print_file_size("input.txt");
print_file_size("/input.txt");
}</
{{out}}
Line 465:
There is not function to get the file size, therefore we seek to the end and query the file pointer position.
<
fileSize fileName world
Line 476:
= (size, world)
Start world = fileSize "input.txt" world</
=={{header|Clojure}}==
<
(defn show-size [filename]
(println filename "size:" (.length (io/file filename))))
(show-size "input.txt")
(show-size "/input.txt")</
=={{header|COBOL}}==
<syntaxhighlight lang="cobol">
identification division.
program-id. FileInfo.
Line 530:
end-if
.
</syntaxhighlight>
=={{header|ColdFusion}}==
<
localFile = getFileInfo(expandpath("input.txt"));
rootFile = getFileInfo("/input.txt");
Line 541:
Size of input.txt is #localFile.size# bytes.
Size of /input.txt is #rootFile.size# bytes.
</cfoutput></
=={{header|Common Lisp}}==
<
:direction :input
:if-does-not-exist nil)
Line 552:
:direction :input
:if-does-not-exist nil)
(print (if stream (file-length stream) 0)))</
(osicat-posix:stat-size (osicat-posix:stat #P"input.txt"))
=={{header|D}}==
<
std.mmfile;
Line 578:
e.msg.writefln;
}
}</
{{out}}
<pre>File 'file_size.exe' has size:
Line 586:
=={{header|Delphi}}==
<
{$APPTYPE CONSOLE}
Line 606:
Writeln('input.txt ', CheckFileSize('input.txt'));
Writeln('\input.txt ', CheckFileSize('\input.txt'));
end.</
=={{header|E}}==
<
println(`The size of $file is ${file.length()} bytes.`)
}</
=={{header|Eiffel}}==
<
class
APPLICATION
Line 638:
environment:EXECUTION_ENVIRONMENT
end
</syntaxhighlight>
=={{header|Elena}}==
ELENA 4.x :
<
import extensions;
Line 650:
console.printLine(File.assign("\input.txt").Length)
}</
=={{header|Elixir}}==
<
IO.puts File.stat!("/input.txt").size</
=={{header|Emacs Lisp}}==
Line 660:
<code>file-attributes</code> returns <code>nil</code> in that case.
<
(nth 7 (file-attributes "input.txt"))
(nth 7 (file-attributes "/input.txt")))</
=={{header|Erlang}}==
<
-export([file_size/0]).
Line 682:
io:format("~s could not be opened~n",[Filename])
end.
</syntaxhighlight>
=={{header|Euphoria}}==
<
function file_size(sequence file_name)
Line 708:
test("input.txt") -- in the current working directory
test("/input.txt") -- in the file system root</
=={{header|F_Sharp|F#}}==
<
open FsUnit
Line 719:
let local = System.IO.FileInfo(__SOURCE_DIRECTORY__ + "\input.txt")
let root = System.IO.FileInfo(System.IO.Directory.GetDirectoryRoot(__SOURCE_DIRECTORY__) + "input.txt")
local.Length = root.Length |> should be True</
=={{header|Factor}}==
<
1321
"file-does-not-exist.txt" file-info size>>
"Unix system call ``stat'' failed:"...</
=={{header|FBSL}}==
FileLen returns -1 if the file is not found. FileLen will also accept a file handle and give the file length of the open file.
<
print FileLen("sync.log")
print FileLen("\sync.log")
PAUSE
</syntaxhighlight>
=={{header|Forth}}==
<
r/o open-file throw
dup file-size throw <# #s #> type ." bytes long." cr
Line 744:
s" input.txt" .filesize
s" /input.txt" .filesize</
=={{header|Fortran}}==
Line 750:
Since Fortran 95 the size of standard external files may be determined simply by using INQUIRE(SIZE=...).
The following previous example pertains to FORTRAN 77 and is now superceded.
<syntaxhighlight lang="fortran">
use :: iso_fortran_env, only : FILE_STORAGE_SIZE
Line 761:
enddo
end
</
The original example, now obsolete ...
Line 773:
But if one wrote Fortran on a B6700 system, its F77 compiler offered additional attributes that could be returned via an INQUIRE statement: MAXRECSIZE really was the length of the longest record in the disc file (whether fixed record lengths or variable record lengths), BLOCKSIZE reported the number of records per block of disc space, AREASIZE the size of a disc space allocation area, and AREAS their number, while KIND reveals the code number of the type of file (not via a .txt suffix or whatever). Armed with these values, the file size could be determined in bits, bytes, words (six characters/word), records, blocks and areas.
These facilities were not carried forward into standardised Fortran 90, etc. So, one is stuck with devising a routine that reads all the records of a disc file, counting their length. This is straightforward, but tedious, as in the following fragment:<
21 FORMAT(Q) !This obviously indicates the record's length.
NRECS = NRECS + 1 !CALL LONGCOUNT(NRECS,1) !C O U N T A R E C O R D.
Line 784:
RMAXR = NRECS !Where it's at.
END IF !So much for the lengths.
GO TO 20 !All I wanted to know...</
The LONGCOUNT routine uses two 32-bit integers (the first parameter being a two-element array) to deliver a much larger capacity, given modern file size opportunities, but this is unnecessary if INTEGER*8 variables are available. The count will not include any contribution from record splitters such as CR, etc. A file more properly thought of as containing binary data (say, integer or floating-point values) will by chance have a CR or LF bit pattern here and there, and they will be taken as marking record splits when reading a file as being FORMATTED, which is the default setting.
=={{header|FreeBASIC}}==
<
#include "file.bi"
Print FileLen("input.txt"), FileLen(Environ("SystemRoot") + "\input.txt")
Sleep</
=={{header|Frink}}==
<
println[newJava["java.io.File", "/input.txt"].length[]]</
=={{header|Gambas}}==
<
Dim stInfo As Stat = Stat(User.home &/ "input.txt")
Dim stInfo1 As Stat = Stat("/input.txt")
Line 807:
Print "/input.txt = " & stInfo1.Size & " bytes"
End</
Output:
<pre>
Line 815:
=={{header|Go}}==
<
import "fmt"
Line 831:
printFileSize("input.txt")
printFileSize("/input.txt")
}</
=={{header|Groovy}}==
<
println new File('/index.txt').length();</
=={{header|Haskell}}==
<
printFileSize filename = withFile filename ReadMode hFileSize >>= print
main = mapM_ printFileSize ["input.txt", "/input.txt"]</
or
<
printFileSize filename = do stat <- getFileStatus filename
print (fileSize stat)
main = mapM_ printFileSize ["input.txt", "/input.txt"]</
=={{header|HicEst}}==
<
READ(FILE="C:\input.txt", LENgth=bytes) ! bytes = -1 if not existent </
=={{header|Icon}} and {{header|Unicon}}==
Icon doesn't support 'stat'; however, information can be obtained by use of the system function to access command line.
<
write("Size of ",f := dir || "input.txt"," = ",stat(f).size) |stop("failure for to stat ",f)
}</
Note: Icon and Unicon accept both / and \ for directory separators.
=={{header|J}}==
<
fsize 'input.txt';'/input.txt'</
=={{header|Java}}==
<
public class FileSize
Line 878:
}
}
</syntaxhighlight>
=={{header|JavaScript}}==
{{works with|JScript}}
<
fso.GetFile('input.txt').Size;
fso.GetFile('c:/input.txt').Size;</
The following works in all browsers, including IE10.
<
if (file) {
var reader = new FileReader();
Line 900:
function errorHandler(event) {
alert(event);
}</
=={{header|jq}}==
<
jq -Rs length /input.txt</
The -R option causes the file to be read as text, and the -s option causes it to be read as a single string.
=={{header|Julia}}==
<
println(filesize("/input.txt"))</
=={{header|K}}==
<
_size "/input.txt"</
=={{header|Kotlin}}==
<
import java.io.File
Line 926:
for (path in paths)
println("Length of $path is ${File(path).length()} bytes")
}</
=={{header|Lasso}}==
<
local(f = file('input.txt'))
handle => { #f->close }
Line 938:
handle => { #f->close }
#f->size
</syntaxhighlight>
=={{header|Liberty BASIC}}==
<
OPEN DefaultDir$ + "/input.txt" FOR input AS #m
PRINT "File size: "; lof(#m)
Line 949:
OPEN "c:/input.txt" FOR input AS #m
PRINT "File size: "; lof(#m)
CLOSE #m</
=={{header|Lingo}}==
<
-- Returns file size
-- @param {string} filename
Line 964:
fp.closeFile()
return len
end</
=={{header|LiveCode}}==
<
set the defaultfolder to "/"
repeat for each line fline in (the detailed files)
Line 986:
exit repeat
end if
end repeat</
=={{header|Lua}}==
<
local fp = io.open( filename )
if fp == nil then
Line 997:
fp:close()
return filesize
end</
=={{header|Maple}}==
<
<
=={{header|Mathematica}} / {{header|Wolfram Language}}==
<syntaxhighlight lang="mathematica">
FileByteCount["input.txt"]
FileByteCount[FileNameJoin[{$RootDirectory, "input.txt"}]]</
=={{header|MATLAB}} / {{header|Octave}}==
<
d2 = dir('/input.txt');
fprintf('Size of input.txt is %d bytes\n', d1.bytes)
fprintf('Size of /input.txt is %d bytes\n', d2.bytes)</
=={{header|MAXScript}}==
<
getFileSize "index.txt"
getFileSize "\index.txt"</
=={{header|Mirah}}==
<
puts File.new('file-size.mirah').length()
puts File.new("./#{File.separator}file-size.mirah").length()</
=={{header|mIRC Scripting Language}}==
<
echo -ag $file(C:\input.txt).size bytes</
=={{header|Modula-3}}==
<
IMPORT IO, Fmt, FS, File, OSError;
Line 1,045:
| OSError.E => IO.Put("ERROR: Could not get file status.\n");
END;
END FSize.</
=={{header|Nanoquery}}==
<
println new(File, "input.txt").length()
println new(File, "/input.txt").length()</
=={{header|NetRexx}}==
<
options replace format comments java symbols binary
Line 1,086:
end
return</
{{out}}
<pre>
Line 1,103:
=={{header|NewLISP}}==
<
(println (first (file-info "/input.txt")))</
=={{header|Nim}}==
<
echo getFileSize "input.txt"
echo getFileSize "/input.txt"</
=={{header|Objeck}}==
<
use IO;
...
File("input.txt")->Size()->PrintLine();
File("c:\input.txt")->Size()->PrintLine();
</syntaxhighlight>
=={{header|Objective-C}}==
<
// Pre-OS X 10.5
Line 1,127:
// OS X 10.5+
NSLog(@"%llu", [[fm attributesOfItemAtPath:@"input.txt" error:NULL] fileSize]);</
=={{header|OCaml}}==
<
let ic = open_in filename in
Printf.printf "%d\n" (in_channel_length ic);
Line 1,137:
printFileSize "input.txt" ;;
printFileSize "/input.txt" ;;</
For files greater than Pervasives.max_int, one can use the module [http://caml.inria.fr/pub/docs/manual-ocaml/libref/Pervasives.LargeFile.html Pervasives.LargeFile]:
<
let ic = open_in filename in
Printf.printf "%Ld\n" (LargeFile.in_channel_length ic);
close_in ic ;;</
Alternatively:
<
open Unix ;;
Printf.printf "%d\n" (stat "input.txt").st_size ;;
Printf.printf "%d\n" (stat "/input.txt").st_size ;;</
The module Unix has also a [http://caml.inria.fr/pub/docs/manual-ocaml/libref/Unix.LargeFile.html LargeFile sub-module].
Line 1,155:
=={{header|Oforth}}==
<
File new("/input.txt") size println</
=={{header|ooRexx}}==
<
Say v
fid='test.txt'
Line 1,171:
Say length(s)
Say 'file' fid
'type' fid</
{{out}}
<pre>J:\>rexx sft
Line 1,185:
=={{header|Oz}}==
<
[Path] = {Module.link ['x-oz://system/os/Path.ozf']}
in
{Show {Path.size "input.txt"}}
{Show {Path.size "/input.txt"}}</
=={{header|Pascal}}==
Line 1,196:
=={{header|Perl}}==
<
my $size2 = -s '/input.txt';</
Or, to be 100% cross-platform:
<
my $size1 = -s 'input.txt';
my $size2 = -s catfile rootdir, 'input.txt';</
Alternative way to get the size:
<
my $size2 = (stat '/input.txt')[7];</
=={{header|Phix}}==
{{libheader|Phix/basics}}
<!--<
<span style="color: #008080;">function</span> <span style="color: #000000;">file_size<span style="color: #0000FF;">(<span style="color: #004080;">sequence</span> <span style="color: #000000;">file_name<span style="color: #0000FF;">)</span>
<span style="color: #004080;">object</span> <span style="color: #000000;">d</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">dir<span style="color: #0000FF;">(<span style="color: #000000;">file_name<span style="color: #0000FF;">)</span>
Line 1,228:
<span style="color: #000000;">test<span style="color: #0000FF;">(<span style="color: #008000;">"input.txt"<span style="color: #0000FF;">)</span> <span style="color: #000080;font-style:italic;">-- in the current working directory</span>
<span style="color: #000000;">test<span style="color: #0000FF;">(<span style="color: #008000;">"/input.txt"<span style="color: #0000FF;">)</span> <span style="color: #000080;font-style:italic;">-- in the file system root
<!--</
=={{header|PHP}}==
<
echo filesize('input.txt'), "\n";
echo filesize('/input.txt'), "\n";
?></
=={{header|PicoLisp}}==
<
(println (car (info "/input.txt")))</
=={{header|Pike}}==
<
int main(){
write(file_size("input.txt") + "\n");
write(file_size("/input.txt") + "\n");
}</
=={{header|PL/I}}==
<syntaxhighlight lang="pl/i">
/* To obtain file size of files in root as well as from current directory. */
Line 1,276:
put skip list ('local file size=' || trim(i));
end test;
</syntaxhighlight>
<pre>
I used differently-named files to prove that local and root directory
Line 1,285:
=={{header|Pop11}}==
<
sysfilesize('input.txt') =>
sysfilesize('/input.txt') =></
=={{header|PostScript}}==
<code>status</code> returns status information about a file if given a file name. This includes the size in pages (implementation-dependent), the size in bytes, creation and modification time and a final <code>true</code>. The values not needed here are simply <code>pop</code>ed off the stack.
<
(input.txt) status pop pop pop = pop
(/input.txt ) print
(/input.txt) status pop pop pop = pop</
=={{header|PowerShell}}==
<
Get-ChildItem \input.txt | Select-Object Name,Length</
=={{header|PureBasic}}==
<
Debug FileSize("/input.txt")</
=={{header|Python}}==
<
size = os.path.getsize('input.txt')
size = os.path.getsize('/input.txt')</
=={{header|R}}==
Line 1,316:
R has a function file.info() in the base package that performs this function. Note that regardless of the OS, R uses forward slashes for the directories.
<
sizeinroot <- file.info('/input.txt')[["size"]]</
=={{header|Racket}}==
<
(file-size "input.txt")
(file-size "/input.txt")</
=={{header|Raku}}==
(formerly Perl 6)
{{works with|Rakudo|2015.12}}
<syntaxhighlight lang="raku"
say '/input.txt'.IO.s;</
Cross-platform version of the second one:
<syntaxhighlight lang="raku"
=={{header|RapidQ}}==
Line 1,338:
Method 1: display file size using file streams
<
DIM file AS QFileStream
Line 1,349:
PRINT "Size of input.txt is "; fileSize("input.txt")
PRINT "Size of \input.txt is "; fileSize("\input.txt")</
Method 2: using DIR$
<
PRINT "Size of input.txt is "; FileRec.Size
FileName$ = DIR$("\input.txt", 0)
PRINT "Size of \input.txt is "; FileRec.Size</
=={{header|Raven}}==
<
'/input.txt' status.size</
=={{header|REBOL}}==
<
size? %/info.txt
size? ftp://username:password@ftp.site.com/info.txt
size? http://rosettacode.org</
=={{header|Red}}==
<
== 39244
>> size? %/c/input.txt
== 39244</
=={{header|Retro}}==
The simple way is to open and read the size. This may crash if the file does not exist.
<
"input.txt" :R open &size sip close drop putn
"/input.txt" :R open &size sip close drop putn</
For added stability, check that the returned file handle is not zero:
<
"input.txt" :R open over 0 <> [ &size sip close drop ] ifTrue</
Or, if you need to do this more often, setup a function that'll also display an error message if the file does not exist:
<
: getFileSize ( $-n )
:R open 0 over =
Line 1,395:
"input.txt" getFileSize putn
"/input.txt" getFileSize putn</
=={{header|REXX}}==
Line 1,405:
Note that some operating systems don't have a concept of a ''current directory'' or a ''file system root''.
<
parse arg iFID . /*allow the user specify the file ID. */
if iFID=='' | iFID=="," then iFID='input.txt' /*Not specified? Then use the default.*/
Line 1,414:
fSize: parse arg f; $=0; do while chars(f)\==0; $ = $ + length( charin( f, , 1e4) )
end /*while*/; call lineout f /*close file.*/
return $</
{{out|output|text= when using the default input:}}
<pre>
Line 1,422:
===MS DOS version 2===
<
parse arg iFID . /*let user specify the file ID. */
if iFID=='' then iFID="FILESIZ.DAT" /*Not specified? Then use default*/
Line 1,437:
sz=sz+length(linein(f))
End
return sz</
{{out}}
<pre>size of FILESIZ.DAT:
Line 1,446:
Note that CMS hasn't a concept of a ''root''.
<br>Also note that the CMS system doesn't normally support the use of periods ('''.'''); it uses blanks instead.
<
parse arg iFID /*allow the user specify the file ID. */
if iFID=='' | iFID=="," then iFID= 'INPUT TXT' /*Not specified? Then use the default.*/
Line 1,454:
fSize: parse arg f; $= 0; do while lines(f)\==0; $= $ + length( linein(f) )
end /*while*/
return $</
=={{header|Ring}}==
<
see len(read('/input.txt')) + nl</
=={{header|Ruby}}==
<
size = File.size('/input.txt')</
=={{header|Run BASIC}}==
<
print fileSize("","input.txt") ' root directory
Line 1,472:
fileSize = lof(#f) ' Length Of File
close #f
end function</
=={{header|Rust}}==
<
use std::io::{self, Write};
use std::fmt::Display;
Line 1,492:
}
}</
=={{header|Scala}}==
{{libheader|Scala}}
<
object FileSize extends App {
Line 1,503:
println(s"$name : ${new File(name).length()} bytes")
println(s"/$name : ${new File(s"${File.separator}$name").length()} bytes")
}</
=={{header|Scheme}}==
<
(define (file-size filename)
(call-with-input-file filename (lambda (port)
Line 1,517:
(file-size "input.txt")
(file-size "/input.txt")
</syntaxhighlight>
=={{header|Seed7}}==
<
const proc: main is func
Line 1,526:
writeln(fileSize("input.txt"));
writeln(fileSize("/input.txt"));
end func;</
=={{header|Sidef}}==
<
say (Dir.root + %f'input.txt' -> size);</
=={{header|Slate}}==
<
(File newNamed: '/input.txt') fileInfo fileSize.</
=={{header|Smalltalk}}==
{{works with|GNU Smalltalk}}
<
(File name: '/input.txt') size printNl.</
{{works with|Smalltalk/X}}
{{works with|VisualWorks Smalltalk}}
<
'/input.txt' asFilename fileSize</
=={{header|Standard ML}}==
<
val size = OS.FileSys.fileSize "/input.txt" ;</
=={{header|Stata}}==
Line 1,554:
To get the size in byte of an arbitrary file, use [http://www.stata.com/help.cgi?file file seek]. Just replace input.txt with \input.txt if the file resides in the root directory of the current disk.
<
file seek f eof
file seek f query
display r(loc)
file close f</
However, what is usually interesting is the size of a datatset. Use [http://www.stata.com/help.cgi?describe describe], either on the currently loaded dataset, or on a dataset on disk. The describe command will print the file size, but it's possible to use [http://www.stata.com/help.cgi?stored_results stored results] as well.
<
display r(N)*r(width)</
=={{header|Tcl}}==
<
file size /input.txt</
=={{header|Toka}}==
A trivial method follows:
<
" /input.txt" "R" file.open dup file.size . file.close</
A better method would be to define a new function that actually
checks whether the file exists:
<
dup 0 <> [ dup file.size . file.close ] ifTrue
drop
Line 1,584:
" input.txt" display-size
" /input.txt" display-size</
=={{header|TorqueScript}}==
Line 1,592:
TGE Version (Works with all versions containing the basic file i/o):
{{works with|TGE}}
<
%File.openForRead("input.txt");
Line 1,601:
%File.close();
%File.delete();</
<br />
T3D Version (Only works with T3D):
{{works with|T3D}}
<
=={{header|TUSCRIPT}}==
<
$$ MODE TUSCRIPT
-- size of file input.txt
Line 1,620:
file_size=BYTES (file)
ERROR/STOP CLOSE (file)
</syntaxhighlight>
=={{header|UNIX Shell}}==
Line 1,628:
''ls'' most likely gets the length from the file's inode.
<
size2=$(ls -l /input.txt | tr -s ' ' | cut -d ' ' -f 5)</
''ls -l'' reports the size in 5th field, with spaces between fields.
Line 1,635:
and ''cut'' extracts 5th field.
<
echo "# ls:"
ls -la input.txt
Line 1,646:
size2=$(wc -c < input.txt | tr -d ' ')
echo $size1, $size2
</syntaxhighlight>
{{Out}} Test run at compileonline.com:
<pre>
Line 1,666:
''wc'' may actually read the whole file and count the bytes. Some implementations, like [http://git.savannah.gnu.org/cgit/coreutils.git/tree/src/wc.c wc.c] from GNU coreutils, can optimize ''wc -c'' by getting the length from the file's inode.
<
size2=$(wc -c < /input.txt | tr -d ' ')</
The peculiar use of ''wc -c < file'', not ''wc -c file'', is to prevent printing the file's name. Then ''wc'' only reports the size. Some versions of ''wc'' print spaces before the number; ''tr'' deletes all these spaces.
Line 1,678:
{{works with|OpenBSD|3.8}}
<
size2=$(stat -f %z /input.txt)</
===Z Shell===
{{works with|zsh}}
<
zmodload -F zsh/stat b:zstat
size1=$(zstat +size input.txt)
size2=$(zstat +size /input.txt)</
=={{header|Ursa}}==
<
f.open "input.txt"
Line 1,699:
f.open "/input.txt"
out (size f) endl console
f.close</
=={{header|VBScript}}==
{{works with|Windows Script Host|*}}
<syntaxhighlight lang="vbscript">
With CreateObject("Scripting.FileSystemObject")
WScript.Echo .GetFile("input.txt").Size
WScript.Echo .GetFile("\input.txt").Size
End With
</syntaxhighlight>
=={{header|Vedit macro language}}==
<
Num_Type(File_Size("/input.txt"))</
=={{header|Visual Basic}}==
{{works with|Visual Basic|6}}
<
----
Line 1,741:
DisplayFileSize Environ$("SystemRoot"), "input.txt"
End Sub
</syntaxhighlight>
{{out}}
<pre>file size: 37 Bytes
Line 1,752:
{{works with|Visual Basic .NET|9.0+}}
<
Console.WriteLine(local.Length)
Dim root As New IO.FileInfo("\input.txt")
Console.WriteLine(root.Length)</
=={{header|Wren}}==
Line 1,762:
To check the size of a file in the root, just change "input.txt" to "/input.txt" in the following script.
<
var name = "input.txt"
System.print("'%(name)' has a a size of %(File.size(name)) bytes")</
{{out}}
Line 1,773:
=={{header|X86 Assembly}}==
<
; x86_64 linux nasm
Line 1,842:
mov rdi, 1
syscall
</syntaxhighlight>
=={{header|XPL0}}==
<
char FileName; int Size, C;
[Trap(false); \disable abort on error
Line 1,859:
[ShowSize("input.txt");
ShowSize("/input.txt"); \root under Linux
]</
=={{header|zkl}}==
<
File.info("/input.txt").println();</
-->T(size,creation time,last mod time,isDir,mode), from stat(2)
{{out}}
|