home > 基礎編 >

ForNext

Shut the fuck up and write some code

第一引数に指定されたファイルから読んで、標準出力に書く

VBScript

更新日 : 2008.05.23
Dim objFs   : Set objFs   = CreateObject("Scripting.FileSystemObject")
Dim objText : Set objText = objFs.OpenTextFile(WScript.Arguments(0))

Do Until objText.AtEndOfStream
    WScript.StdOut.WriteLine objText.ReadLine
Loop

objText.Close

Set objText  = Nothing
Set objFs    = Nothing
S:\>cscript //nologo s:\lesson003.vbs s:\lesson002.vbs
Dim var1: var1 = "Hello"
Dim var2: var2 = "World"
WScript.Echo var1 + ", " + var2 + "!"

JScript

更新日 : 2008.05.23
var objFs   = WScript.CreateObject("Scripting.FileSystemObject");
var objText = objFs.OpenTextFile(WScript.Arguments(0));

do
{
    WScript.StdOut.WriteLine(objText.ReadLine());
}
while (! objText.AtEndOfStream);

objText.Close();
S:\>cscript //nologo s:\lesson003.js s:\lesson002.js
var var1 = "Hello";
var var2 = "World";
WScript.Echo(var1 + ", " + var2 + "!");

Perl

更新日 : 2008.05.23
print while(<>);
S:\>perl s:\lesson003.pl s:\lesson002.pl
$var1 = "Hello";
$var2 = "World";
print $var1, ", ", $var2, "!", "\n";

PHP

更新日 : 2008.05.23
<?php
$fp = fopen($argv[1], "r");

while (!feof($fp))
{
    print(fgets($fp));
}

fclose($fp);
?>
S:\>php s:\lesson003.php s:\lesson004.php
<?php
$var1 = "Hello";
$var2 = "World";
print $var1, ", ", $var2, "!", "\n";
?>

Python



Ruby

更新日 : 2008.05.23
ARGF.each do |line|
  puts line
end
S:\>ruby s:\lesson003.rb s:\lesson003.rb
var1 = "Hello";
var2 = "World";
print var1, ", ", var2, "!", "\n";

PowerShell

Scala



F#



C

C++

C++Builder

VC++

C#

更新日 : 2012.05.10
using System;
using System.IO;

class lesson0002
{
    static void Main(string[] args)
    {
        TextReader input = new StreamReader(args[0]);
        string line;

        while ((line = input.ReadLine()) != null)
        {
            Console.WriteLine(line);
        }

        input.Close();
        input.Dispose();
    }
}
S:\>csc lesson0002.cs /nologo

S:\>lesson0002 s:\lesson001.rb
var1 = "Hello";
var2 = "World";
print var1, ", ", var2, "!", "\n";

Java

更新日 : 2012.05.10
import java.io.*;

public class lesson0003 {
    public static void main(String args[]) throws Exception {

        BufferedReader input = new BufferedReader(new InputStreamReader(new FileInputStream(args[0])));
        String line;

        while ((line = input.readLine()) != null) {
            System.out.println(line);
        }

        input.close();
    }
}
S:\009 ファイル入出力>javac lesson0003.java

S:\009 ファイル入出力>java -cp . lesson0003 s:\lesson001.rb
var1 = "Hello";
var2 = "World";
print var1, ", ", var2, "!", "\n";

Objective-C

D

VB

VB.NET

Delphi

Ada

PL/SQL

T-SQL

関数型

inserted by FC2 system