Data update

Task/File-size/Ada/file-size.ada

@@ -1,8 +0,0 @@
-with Ada.Directories;  use Ada.Directories;
-with Ada.Text_IO;      use Ada.Text_IO;
-
-procedure Test_File_Size is
-begin
-   Put_Line (File_Size'Image (Size ("input.txt")) & " bytes");
-   Put_Line (File_Size'Image (Size ("/input.txt")) & " bytes");
-end Test_File_Size;

Task/File-size/Batch-File/file-size.bat

@@ -1,4 +0,0 @@
-@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

Task/File-size/COBOL/file-size.cobol

@@ -1,42 +0,0 @@
-       identification division.
-       program-id. FileInfo.
-
-       data division.
-       working-storage section.
-       01  file-name              pic x(256).
-       01  file-size-edited       pic zzz,zzz,zzz.
-       01  file-details.
-           05 file-size           pic x(8) comp-x.
-           05 file-date.
-              10 file-day         pic x comp-x.
-              10 file-month       pic x comp-x.
-              10 file-year        pic xx comp-x.
-           05 file-time.
-              10 file-hour        pic x comp-x.
-              10 file-minute      pic x comp-x.
-              10 file-second      pic x comp-x.
-              10 file-hundredths  pic x comp-x.
-
-       procedure division.
-       main.
-           move "input.txt" to file-name
-           perform file-info
-
-           move "\input.txt" to file-name
-           perform file-info
-
-           stop run
-           .
-
-       file-info.
-           call "CBL_CHECK_FILE_EXIST"
-              using file-name, file-details
-              returning return-code
-           if return-code = 0
-              move file-size to file-size-edited
-              display function trim(file-name) " "
-                      function trim(file-size-edited) " Bytes"
-           else
-              display function trim(file-name) " not found!"
-           end-if
-           .

Task/File-size/Elena/file-size.elena

@@ -1,7 +1,7 @@
 import system'io;
 import extensions;
 
-public program()
+public Program()
 {
     Console.printLine(File.assign("input.txt").Length);
 

Task/File-size/Emacs-Lisp/file-size.l

@@ -1,3 +0,0 @@
-(message "sizes are %s and %s"
-         (nth 7 (file-attributes "input.txt"))
-         (nth 7 (file-attributes "/input.txt")))

Task/File-size/Euphoria/file-size.ex

@@ -1,24 +0,0 @@
-include file.e
-
-function file_size(sequence file_name)
-    object x
-    x = dir(file_name)
-    if sequence(x) and length(x) = 1 then
-        return x[1][D_SIZE]
-    else
-        return -1 -- the file does not exist
-    end if
-end function
-
-procedure test(sequence file_name)
-    integer size
-    size = file_size(file_name)
-    if size < 0 then
-        printf(1,"%s file does not exist.\n",{file_name})
-    else
-        printf(1,"%s size is %d.\n",{file_name,size})
-    end if
-end procedure
-
-test("input.txt") -- in the current working directory
-test("/input.txt") -- in the file system root

Task/File-size/PowerShell/file-size.psh

@@ -1,2 +0,0 @@
-Get-ChildItem input.txt | Select-Object Name,Length
-Get-ChildItem \input.txt | Select-Object Name,Length

Task/File-size/REBOL/file-size.rebol

@@ -1,4 +0,0 @@
-size? %info.txt
-size? %/info.txt
-size? ftp://username:password@ftp.site.com/info.txt
-size? http://rosettacode.org

Task/File-size/VBScript/file-size.vb

@@ -1,4 +0,0 @@
-With CreateObject("Scripting.FileSystemObject")
-	WScript.Echo .GetFile("input.txt").Size
-	WScript.Echo .GetFile("\input.txt").Size
-End With