Ini harus menjadi pertanyaan umum yang dimiliki semua programmer dari waktu ke waktu. Bagaimana cara membaca baris dari file teks? Maka pertanyaan selanjutnya adalah selalu bagaimana saya menulisnya kembali.

Tentu saja sebagian besar dari Anda menggunakan kerangka kerja tingkat tinggi dalam pemrograman sehari-hari (yang baik untuk digunakan dalam jawaban) tetapi kadang-kadang senang mengetahui bagaimana melakukannya di tingkat rendah juga.

Saya sendiri tahu cara melakukannya C, C++dan Objective-C, tapi tentu akan berguna untuk melihat bagaimana hal itu dilakukan dalam semua bahasa populer, jika hanya untuk membantu kami membuat keputusan yang lebih baik tentang bahasa apa yang digunakan untuk melakukan file io kami. Khususnya saya pikir itu akan menarik untuk melihat bagaimana yang dilakukan dalam bahasa manipulasi string, seperti: python, rubydan tentu saja perl.

Jadi saya pikir di sini kita dapat membuat sumber daya komunitas yang kita semua bisa bintangi ke profil kita dan merujuk ketika kita perlu melakukan file I / O dalam beberapa bahasa baru. Belum lagi paparan yang kita semua akan bahas dalam bahasa yang tidak kita tangani sehari-hari.

Inilah yang perlu Anda jawab:

1. Buat file teks baru yang disebut " fileio.txt "
2. Tulis baris pertama "halo" ke file teks.
3. Tambahkan "dunia" baris kedua ke file teks.
4. Baca "dunia" baris kedua menjadi string input.
5. Cetak string input ke konsol.

Klarifikasi:

• Anda harus menunjukkan cara melakukan ini dalam satu bahasa pemrograman per jawaban saja.
• Asumsikan bahwa file teks tidak ada sebelumnya
• Anda tidak perlu membuka kembali file teks setelah menulis baris pertama

Tidak ada batasan khusus pada bahasa. C, C++, C#, Java, Objective-CSemua besar.

Jika Anda tahu bagaimana melakukannya di Prolog, Haskell, Fortran, Lisp, atau Basicmaka silakan pergi kanan depan.

Python 3

with open('fileio.txt', 'w') as f:
   f.write('hello')
with open('fileio.txt', 'a') as f:
   f.write('\nworld')
with open('fileio.txt') as f:
   s = f.readlines()[1]
print(s)

Klarifikasi

• readlines () mengembalikan daftar semua baris dalam file. Oleh karena itu, invokation dari readlines () menghasilkan pembacaan setiap baris file. Dalam kasus tertentu, boleh saja menggunakan readlines () karena kita harus tetap membaca seluruh file (kita ingin baris terakhirnya). Tetapi jika file kami mengandung banyak baris dan kami hanya ingin mencetak baris ke-nnya, tidak perlu membaca seluruh file. Berikut adalah beberapa cara yang lebih baik untuk mendapatkan baris ke-n dari file dengan Python: Apa pengganti xreadlines () dalam Python 3? .

• Apa ini dengan pernyataan? Pernyataan with memulai blok kode di mana Anda dapat menggunakan variabel f ​​sebagai objek stream yang dikembalikan dari panggilan untuk membuka (). Ketika blok with berakhir, python memanggil f.close () secara otomatis. Ini menjamin file akan ditutup ketika Anda keluar dari blok dengan tidak peduli bagaimana atau kapan Anda keluar dari blok (bahkan jika Anda keluar melalui pengecualian tidak tertangani). Anda dapat memanggil f.close () secara eksplisit, tetapi bagaimana jika kode Anda menimbulkan pengecualian dan Anda tidak mendapatkan panggilan f.close ()? Itu sebabnya pernyataan with berguna.

• Anda tidak perlu membuka kembali file sebelum setiap operasi. Anda dapat menulis seluruh kode di dalam satu dengan blok.

  with open('fileio.txt', 'w+') as f:
      f.write('hello')
      f.write('\nworld')
      s = f.readlines()[1]
  print(s)
  

  Saya menggunakan tiga dengan blok untuk menekankan perbedaan antara tiga operasi: tulis (mode 'w'), append (mode 'a'), baca (mode 'r', default).

LOLCODE

Spesifikasinya samar untuk sedikitnya, tetapi saya melakukan yang terbaik yang saya bisa. Biarkan downvoting dimulai! :) Saya masih menganggapnya sebagai latihan yang menyenangkan.

HAI
CAN HAS STDIO?
PLZ OPEN FILE "FILEIO.TXT" ITZ "TehFilez"?
    AWSUM THX
        BTW #There is no standard way to output to files yet...
        VISIBLE "Hello" ON TehFilez
        BTW #There isn't a standard way to append to files either...
        MOAR VISIBLE "World" ON TehFilez
        GIMMEH LINES TehLinez OUTTA TehFilez
        I HAS A SecondLine ITZ 1 IN MAH TehLinez
        VISIBLE SecondLine
    O NOES
        VISIBLE "OH NOES!!!"
KTHXBYE

Otak *** k

,------------------------------------------------>,------------------------------------------------>,------------------------------------------------>[-]+++++++++>[-]+++++++++>[-]+++++++++<<<<<[>>>>>>+>>>+<<<<<<<<<-]>>>>>>>>>[<<<<<<<<<+>>>>>>>>>-]<<<<<<<<[>>>>>>+>>+<<<<<<<<-]>>>>>>>>[<<<<<<<<+>>>>>>>>-]<<<<<<<[>>>>>>+>+<<<<<<<-]>>>>>>>[<<<<<<<+>>>>>>>-]>>[-]<<<<<<<<[>>>>>>+>>+<<<<<<<<-]>>>>>>>>[<<<<<<<<+>>>>>>>>-]<<<<<[>>>>+>+<<<<<-]>>>>>[<<<<<+>>>>>-][-]<<[>>[-]<[>[-]+<[-]]<[-]]>[-]>[<<<<<<<<->>>->>>>>[-]<<<<<<<<[>>>>>>+>>+<<<<<<<<-]>>>>>>>>[<<<<<<<<+>>>>>>>>-]<<<<<[>>>>+>+<<<<<-]>>>>>[<<<<<+>>>>>-][-]<<[>>[-]<[>[-]+<[-]]<[-]]>[-]>][-]<<<<<<<[>>>>>+>>+<<<<<<<-]>>>>>>>[<<<<<<<+>>>>>>>-]<<<<[>>>+>+<<<<-]>>>>[<<<<+>>>>-][-]<<[>>[-]<[>[-]+<[-]]<[-]]>[-]>[<<<<<<<->>>->>>>[-]<<<<<<<[>>>>>+>>+<<<<<<<-]>>>>>>>[<<<<<<<+>>>>>>>-]<<<<[>>>+>+<<<<-]>>>>[<<<<+>>>>-][-]<<[>>[-]<[>[-]+<[-]]<[-]]>[-]>][-]<<<<<<[>>>>+>>+<<<<<<-]>>>>>>[<<<<<<+>>>>>>-]<<<[>>+>+<<<-]>>>[<<<+>>>-][-]<<[>>[-]<[>[-]+<[-]]<[-]]>[-]>[<<<<<<->>>->>>[-]<<<<<<[>>>>+>>+<<<<<<-]>>>>>>[<<<<<<+>>>>>>-]<<<[>>+>+<<<-]>>>[<<<+>>>-][-]<<[>>[-]<[>[-]+<[-]]<[-]]>[-]>]<[-]+<[-]+<<<<<<[>>>>>>[-]<<<<<<[-]]>>>>>>[[-]+<<<<<[>>>>>[-]<<<<<[-]]>>>>>[[-]+<<<<[>>>>[-]<<<<[-]]>>>>[[-]+<<<[>>>[-]<<<[-]]>>>[[-]+<<[>>[-]<<[-]]>>[[-]+<[>[-]<[-]]>[[-]+++++++++++++++++++++++++++++++++++++++++++++++++.-...>[-]<[-]]<>[-]]<<>>[-]]<<<>>>[-]]<<<<>>>>[-],------------------------------------------------>,------------------------------------------------>,------------------------------------------------>[-]+++++++++>[-]+++++++++>[-]+++++++++<<<<<[>>>>>>+>>>+<<<<<<<<<-]>>>>>>>>>[<<<<<<<<<+>>>>>>>>>-]<<<<<<<<[>>>>>>+>>+<<<<<<<<-]>>>>>>>>[<<<<<<<<+>>>>>>>>-]<<<<<<<[>>>>>>+>+<<<<<<<-]>>>>>>>[<<<<<<<+>>>>>>>-]>>[-]<<<<<<<<[>>>>>>+>>+<<<<<<<<-]>>>>>>>>[<<<<<<<<+>>>>>>>>-]<<<<<[>>>>+>+<<<<<-]>>>>>[<<<<<+>>>>>-][-]<<[>>[-]<[>[-]+<[-]]<[-]]>[-]>[<<<<<<<<->>>->>>>>[-]<<<<<<<<[>>>>>>+>>+<<<<<<<<-]>>>>>>>>[<<<<<<<<+>>>>>>>>-]<<<<<[>>>>+>+<<<<<-]>>>>>[<<<<<+>>>>>-][-]<<[>>[-]<[>[-]+<[-]]<[-]]>[-]>][-]<<<<<<<[>>>>>+>>+<<<<<<<-]>>>>>>>[<<<<<<<+>>>>>>>-]<<<<[>>>+>+<<<<-]>>>>[<<<<+>>>>-][-]<<[>>[-]<[>[-]+<[-]]<[-]]>[-]>[<<<<<<<->>>->>>>[-]<<<<<<<[>>>>>+>>+<<<<<<<-]>>>>>>>[<<<<<<<+>>>>>>>-]<<<<[>>>+>+<<<<-]>>>>[<<<<+>>>>-][-]<<[>>[-]<[>[-]+<[-]]<[-]]>[-]>][-]<<<<<<[>>>>+>>+<<<<<<-]>>>>>>[<<<<<<+>>>>>>-]<<<[>>+>+<<<-]>>>[<<<+>>>-][-]<<[>>[-]<[>[-]+<[-]]<[-]]>[-]>[<<<<<<->>>->>>[-]<<<<<<[>>>>+>>+<<<<<<-]>>>>>>[<<<<<<+>>>>>>-]<<<[>>+>+<<<-]>>>[<<<+>>>-][-]<<[>>[-]<[>[-]+<[-]]<[-]]>[-]>]<[-]+<[-]+<<<<<<[>>>>>>[-]<<<<<<[-]]>>>>>>[[-]+<<<<<[>>>>>[-]<<<<<[-]]>>>>>[[-]+<<<<[>>>>[-]<<<<[-]]>>>>[[-]+<<<[>>>[-]<<<[-]]>>>[[-]+<<[>>[-]<<[-]]>>[[-]+<[>[-]<[-]]>[[-]+++++++++++++++++++++++++++++++++++++++++++++++++.-...>[-]<[-]]<>[-]]<<>>[-]]<<<>>>[-]]<<<<>>>>[-]]<<<<<>>>>>[-]]<<<<<<>>>>>>>[<<<<<<<<[>>>>>>+>+<<<<<<<-]>>>>>>>[<<<<<<<+>>>>>>>-]>[-]++++++++++<<+<<<<<<+>>>>>>>>>>>[-]<<<<<[>>>+>>+<<<<<-]>>>>>[<<<<<+>>>>>-]<<<[>>+>+<<<-]>>>[<<<+>>>-][-]<<[>>[-]<[>[-]+<[-]]<[-]]>[-]>[<<<<<->>->>>[-]<<<<<[>>>+>>+<<<<<-]>>>>>[<<<<<+>>>>>-]<<<[>>+>+<<<-]>>>[<<<+>>>-][-]<<[>>[-]<[>[-]+<[-]]<[-]]>[-]>]<<<<[-]+<[>[-]<[-]]>[[-]+>[<[-]>[-]]<[<<<<<<<[-]<+>>>>>>>>[-]]><[-]]<<<<<<<<[>>>>>>+>>+<<<<<<<<-]>>>>>>>>[<<<<<<<<+>>>>>>>>-]>[-]++++++++++>>>[-]<<<<<<[>>>>+>>+<<<<<<-]>>>>>>[<<<<<<+>>>>>>-]<<<[>>+>+<<<-]>>>[<<<+>>>-][-]<<[>>[-]<[>[-]+<[-]]<[-]]>[-]>[<<<<<<->>>->>>[-]<<<<<<[>>>>+>>+<<<<<<-]>>>>>>[<<<<<<+>>>>>>-]<<<[>>+>+<<<-]>>>[<<<+>>>-][-]<<[>>[-]<[>[-]+<[-]]<[-]]>[-]>]<<<<[-]+<<[>>[-]<<[-]]>>[[-]+>[<[-]>[-]]<[<<<<<<<<[-]<+>>>>>>>>>[-]]><[-]]<<<<<<<<<++++++++++++++++++++++++++++++++++++++++++++++++.>++++++++++++++++++++++++++++++++++++++++++++++++.>++++++++++++++++++++++++++++++++++++++++++++++++.>>>>>>>>[-]]]<<<<<>>>>>[-]]<<<<<<>>>>>>>[<<<<<<<<[>>>>>>+>+<<<<<<<-]>>>>>>>[<<<<<<<+>>>>>>>-]>[-]++++++++++<<+<<<<<<+>>>>>>>>>>>[-]<<<<<[>>>+>>+<<<<<-]>>>>>[<<<<<+>>>>>-]<<<[>>+>+<<<-]>>>[<<<+>>>-][-]<<[>>[-]<[>[-]+<[-]]<[-]]>[-]>[<<<<<->>->>>[-]<<<<<[>>>+>>+<<<<<-]>>>>>[<<<<<+>>>>>-]<<<[>>+>+<<<-]>>>[<<<+>>>-][-]<<[>>[-]<[>[-]+<[-]]<[-]]>[-]>]<<<<[-]+<[>[-]<[-]]>[[-]+>[<[-]>[-]]<[<<<<<<<[-]<+>>>>>>>>[-]]><[-]]<<<<<<<<[>>>>>>+>>+<<<<<<<<-]>>>>>>>>[<<<<<<<<+>>>>>>>>-]>[-]++++++++++>>>[-]<<<<<<[>>>>+>>+<<<<<<-]>>>>>>[<<<<<<+>>>>>>-]<<<[>>+>+<<<-]>>>[<<<+>>>-][-]<<[>>[-]<[>[-]+<[-]]<[-]]>[-]>[<<<<<<->>>->>>[-]<<<<<<[>>>>+>>+<<<<<<-]>>>>>>[<<<<<<+>>>>>>-]<<<[>>+>+<<<-]>>>[<<<+>>>-][-]<<[>>[-]<[>[-]+<[-]]<[-]]>[-]>]<<<<[-]+<<[>>[-]<<[-]]>>[[-]+>[<[-]>[-]]<[<<<<<<<<[-]<+>>>>>>>>>[-]]><[-]]<<<<<<<<<++++++++++++++++++++++++++++++++++++++++++++++++.>++++++++++++++++++++++++++++++++++++++++++++++++.>++++++++++++++++++++++++++++++++++++++++++++++++.>>>>>>>>[-]]

COBOL

Karena tidak ada orang lain yang melakukannya ......

IDENTIFICATION DIVISION.
PROGRAM-ID.  WriteDemo.
AUTHOR.  Mark Mullin.
* Hey, I don't even have a cobol compiler

ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
    SELECT StudentFile ASSIGN TO "STUDENTS.DAT"
        ORGANIZATION IS LINE SEQUENTIAL.

DATA DIVISION.
FILE SECTION.
FD TestFile.
01 TestData.
   02  LineNum        PIC X.
   02  LineText       PIC X(72).

PROCEDURE DIVISION.
Begin.
    OPEN OUTPUT TestFile
    DISPLAY "This language is still around."

    PERFORM GetFileDetails
    PERFORM UNTIL TestData = SPACES
       WRITE TestData 
       PERFORM GetStudentDetails
    END-PERFORM
    CLOSE TestFile
    STOP RUN.

GetFileDetails.
    DISPLAY "Enter - Line number, some text"
    DISPLAY "NXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
    ACCEPT  TestData.

Haskell

main :: IO ()
main = let filePath = "fileio.txt" in
       do writeFile filePath "hello"
          appendFile filePath "\nworld"
          fileLines <- readFile filePath
          let secondLine = (lines fileLines) !! 1
          putStrLn secondLine

Jika Anda hanya ingin membaca / menulis file:

main :: IO ()
main = readFile "somefile.txt" >>= writeFile "someotherfile.txt" 

D

module d_io;

import std.stdio;


void main()
{
    auto f = File("fileio.txt", "w");
    f.writeln("hello");
    f.writeln("world");

    f.open("fileio.txt", "r");
    f.readln;
    auto s = f.readln;
    writeln(s);
}

Rubi

PATH = 'fileio.txt'
File.open(PATH, 'w') { |file| file.puts "hello" }
File.open(PATH, 'a') { |file| file.puts "world" }
puts line = File.readlines(PATH).last

C #

string path = "fileio.txt";
File.WriteAllLines(path, new[] { "hello"}); //Will end it with Environment.NewLine
File.AppendAllText(path, "world");

string secondLine = File.ReadLines(path).ElementAt(1);
Console.WriteLine(secondLine);

File.ReadLines(path).ElementAt(1)hanya .Net 4.0 saja, alternatifnya adalah File.ReadAllLines(path)[1]mem-parsing seluruh file menjadi sebuah array.

ANSI C

#include <stdio.h>
#include <stdlib.h>

int /*ARGSUSED*/
main(char *argv[0], int argc) {
   FILE *file;
   char buf[128];

   if (!(file = fopen("fileio.txt", "w")) {
      perror("couldn't open for writing fileio.txt");
      exit(1);
   }

   fprintf(file, "hello");
   fclose(file);

   if (!(file = fopen("fileio.txt", "a")) {
      perror("couldn't opened for appening fileio.txt");
      exit(1);
   }

   fprintf(file, "\nworld");
   fclose(file);

   if (!(file = fopen("fileio.txt", "r")) {
      perror("couldn't open for reading fileio.txt");
      exit(1);
   }

   fgets(buf, sizeof(buf), file);
   fgets(buf, sizeof(buf), file);

   fclose(file);

   puts(buf);

   return 0;
}

Script Shell (UNIX)

#!/bin/sh
echo "hello" > fileio.txt
echo "world" >> fileio.txt
LINE=`sed -ne2p fileio.txt`
echo $LINE

Sebenarnya sed -n "2p"bagian mencetak baris kedua, tetapi pertanyaannya meminta baris kedua disimpan dalam variabel dan kemudian dicetak, jadi ... :)

x86 Assembler (NASM) di Linux

Saya belum menyentuh asm dalam 7 tahun, jadi saya harus menggunakan google sedikit untuk meretas ini bersama-sama, tapi tetap saja itu berfungsi;) Saya tahu itu tidak 100% benar, tapi hei: D

Oke, itu tidak berhasil. maaf soal ini. sementara itu mencetak worldpada akhirnya, itu tidak mencetaknya dari file, tetapi dari ecxyang diatur pada baris 27.

section .data
hello db 'hello',10
helloLen equ $-hello
world db 'world',10
worldLen equ $-world
helloFile db 'hello.txt'

section .text
global _start

_start:
mov eax,8
mov ebx,helloFile
mov ecx,00644Q
int 80h

mov ebx,eax

mov eax,4
mov ecx, hello
mov edx, helloLen
int 80h

mov eax,4
mov ecx, world
mov edx, worldLen
int 80h

mov eax,6
int 80h

mov eax,5
mov ebx,helloFile
int 80h

mov eax,3
int 80h

mov eax,4
mov ebx,1
int 80h

xor ebx,ebx
mov eax,1
int 80h

Referensi yang digunakan: http://www.cin.ufpe.br/~if817/arquivos/asmtut/quickstart.html

http://bluemaster.iu.hio.no/edu/dark/lin-asm/syscalls.html

http://www.digilife.be/quickreferences/QRC/LINUX%20System%20Call%20Quick%20Reference.pdf

JavaScript - node.js

Pertama, banyak panggilan balik bersarang.

var fs   = require("fs");
var sys  = require("sys");
var path = "fileio.txt";

fs.writeFile(path, "hello", function (error) {
    fs.open(path, "a", 0666, function (error, file) {
        fs.write(file, "\nworld", null, "utf-8", function () {
            fs.close(file, function (error) {
                fs.readFile(path, "utf-8", function (error, data) {
                    var lines = data.split("\n");
                    sys.puts(lines[1]);
                });
            });
        });
    });
});

Sedikit lebih bersih:

var writeString = function (string, nextAction) {
    fs.writeFile(path, string, nextAction);
};

var appendString = function (string, nextAction) {
    return function (error, file) {
        fs.open(path, "a", 0666, function (error, file) {
            fs.write(file, string, null, "utf-8", function () {
                fs.close(file, nextAction);
            });
        });
    };
};

var readLine = function (index, nextAction) {
    return function (error) {
        fs.readFile(path, "utf-8", function (error, data) {
            var lines = data.split("\n");
            nextAction(lines[index]);
        });
    };
};

var writeToConsole = function (line) {
    sys.puts(line);
};

writeString("hello", appendString("\nworld", readLine(1, writeToConsole)));

Gangguan umum

(defun main ()
  (with-open-file (s "fileio.txt" :direction :output :if-exists :supersede)
    (format s "hello"))
  (with-open-file (s "fileio.txt" :direction :io :if-exists :append)
    (format s "~%world")
    (file-position s 0)
    (loop repeat 2 for line = (read-line s nil nil) finally (print line))))

PowerShell

sc fileio.txt 'hello'
ac fileio.txt 'world'
$line = (gc fileio.txt)[1]
$line

Script Shell

Berikut ini skrip shell menggunakan perintah builtin saja, daripada menjalankan perintah eksternal seperti sedatau tailseperti tanggapan sebelumnya.

#!/bin/sh

echo hello > fileio.txt             # Print "hello" to fileio.txt
echo world >> fileio.txt            # Print "world" to fileio.txt, appending
                                    # to what is already there
{ read input; read input; } < fileio.txt  
                                    # Read the first two lines of fileio.txt,
                                    # storing the second in $input
echo $input                         # Print the contents of $input

Saat menulis skrip shell yang signifikan, disarankan untuk menggunakan builtin sebanyak mungkin, karena memunculkan proses terpisah bisa lambat; dari pengujian cepat pada mesin saya, sedsolusinya sekitar 20 kali lebih lambat daripada menggunakan read. Jika Anda akan menelepon sedsekali, seperti dalam kasus ini, itu tidak terlalu penting, karena akan dieksekusi lebih cepat daripada yang Anda sadari, tetapi jika Anda akan mengeksekusinya ratusan atau ribuan kali, itu bisa menjumlahkan.

Bagi mereka yang tidak terbiasa dengan sintaksis, {dan } jalankan daftar perintah di lingkungan shell saat ini (sebagai lawan dari (dan )yang membuat subkulit; kita perlu beroperasi di lingkungan shell saat ini, sehingga kita dapat menggunakan nilai variabel nanti) . Kita perlu mengelompokkan perintah-perintah bersama agar keduanya beroperasi pada aliran input yang sama, dibuat dengan mengarahkan dari fileio.txt; jika kita hanya berlari read < fileio.txt; read input < fileio.txt, kita hanya akan mendapatkan baris pertama, karena file akan ditutup dan dibuka kembali di antara dua perintah. Karena keanehan sintaksis shell ( {dan }kata-kata yang dicadangkan, yang bertentangan dengan metakarakter), kita perlu memisahkan {dan}dari sisa perintah dengan spasi, dan mengakhiri daftar perintah dengan a ;.

The readbuiltin mengambil sebagai argumen nama-nama variabel untuk membaca ke dalam. Mengkonsumsi garis input, memecah input dengan spasi putih (secara teknis, memecahnya sesuai dengan konten $IFS, yang default ke karakter spasi, di mana karakter spasi berarti membaginya pada ruang, tab, atau baris baru), memberikan setiap kata dengan nama variabel yang diberikan secara berurutan, dan menetapkan sisa baris ke variabel terakhir. Karena kita hanya memasok satu variabel, itu hanya menempatkan seluruh baris dalam variabel itu. Kami menggunakan kembali $inputvariabel, karena kami tidak peduli apa yang ada di baris pertama (jika kami menggunakan Bash, kami tidak bisa menyediakan nama variabel, tetapi untuk menjadi portabel, Anda harus selalu menyediakan setidaknya satu nama).

Perhatikan bahwa meskipun Anda dapat membaca baris satu per satu, seperti yang saya lakukan di sini, pola yang jauh lebih umum adalah membungkusnya dalam loop sementara:

while read foo bar baz
do
  process $foo $bar $baz
done < input.txt

Clojure

(use '[clojure.java.io :only (reader)])

(let [file-name "fileio.txt"]
  (spit file-name "hello")
  (spit file-name "\nworld" :append true)
  (println (second (line-seq (reader file-name)))))

Atau setara, menggunakan threading macro ->(juga dikenal sebagai penghapus paren):

(use '[clojure.java.io :only (reader)])

(let [file-name "fileio.txt"] 
  (spit file-name "hello") 
  (spit file-name "\nworld" :append true) 
  (-> file-name reader line-seq second println))

F #

let path = "fileio.txt"
File.WriteAllText(path, "hello")
File.AppendAllText(path, "\nworld")

let secondLine = File.ReadLines path |> Seq.nth 1
printfn "%s" secondLine

DASAR

Saya belum pernah menggunakan BASIC selama hampir 10 tahun, tetapi pertanyaan ini memberi saya alasan untuk cepat-cepat memoles pengetahuan saya. :)

OPEN "fileio.txt" FOR OUTPUT AS 1
PRINT #1, "hello"
PRINT #1, "world"
CLOSE 1

OPEN "fileio.txt" FOR INPUT AS 1
LINE INPUT #1, A$
LINE INPUT #1, A$
CLOSE 1

PRINT A$

Objektif-C

NSFileHandle *fh = [NSFileHandle fileHandleForUpdatingAtPath:@"fileio.txt"];

[[NSFileManager defaultManager] createFileAtPath:@"fileio.txt" contents:nil attributes:nil];

[fh writeData:[@"hello" dataUsingEncoding:NSUTF8StringEncoding]];
[fh writeData:[@"\nworld" dataUsingEncoding:NSUTF8StringEncoding]];

NSArray *linesInFile = [[[NSString stringWithContentsOfFile:@"fileio.txt" 
                                             encoding:NSUTF8StringEncoding 
                                                error:nil] stringByStandardizingPath] 
                          componentsSeparatedByString:@"\n"];

NSLog(@"%@", [linesInFile objectAtIndex:1]);

Perl

#!/usr/bin/env perl

use 5.10.0;
use utf8;
use strict;
use autodie;
use warnings qw<  FATAL all     >;
use open     qw< :std  :utf8    >;

use English  qw< -no_match_vars >;

# and the last shall be first
END { close(STDOUT) }

my $filename = "fileio.txt";
my($handle, @lines);

$INPUT_RECORD_SEPARATOR = $OUTPUT_RECORD_SEPARATOR = "\n";

open($handle, ">",  $filename);
print $handle "hello";
close($handle);

open($handle, ">>", $filename);
print $handle "world";
close($handle);

open($handle, "<",  $filename);
chomp(@lines = <$handle>);
close($handle);

print STDOUT $lines[1];

R:

cat ("hello \ n", file = "fileio.txt")
cat ("world \ n", file = "fileio.txt", append = TRUE)
line2 = readLines ("fileio.txt", n = 2) [2]
cat (line2)

PHP

<?php

$filePath = "fileio.txt";

file_put_contents($filePath, "hello");
file_put_contents($filePath, "\nworld", FILE_APPEND);

$lines = file($filePath);

echo $lines[1];

// closing PHP tags are bad practice in PHP-only files, don't use them

Jawa

import java.io.*;
import java.util.*;

class Test {
  public static void  main(String[] args) throws IOException {
    String path = "fileio.txt";
    File file = new File(path);

    //Creates New File...
    try (FileOutputStream fout = new FileOutputStream(file)) {
      fout.write("hello\n".getBytes());
    }

    //Appends To New File...
    try (FileOutputStream fout2 = new FileOutputStream(file,true)) {
      fout2.write("world\n".getBytes());
    }

    //Reading the File...
    try (BufferedReader fin = new BufferedReader(new FileReader(file))) {
      fin.readLine();
      System.out.println(fin.readLine());
    }       
  }
}

C ++

#include <limits>
#include <string>
#include <fstream>
#include <iostream>

int main() {
    std::fstream file( "fileio.txt",
        std::ios::in | std::ios::out | std::ios::trunc  );
    file.exceptions( std::ios::failbit );   

    file << "hello\n" // << std::endl, not \n, if writing includes flushing
         << "world\n";

    file.seekg( 0 )
        .ignore( std::numeric_limits< std::streamsize >::max(), '\n' );
    std::string input_string;
    std::getline( file, input_string );

    std::cout << input_string << '\n';
}

atau agak kurang pedantik,

#include <string>
#include <fstream>
#include <iostream>
using namespace std;

int main() {
    fstream file( "fileio.txt", ios::in | ios::out | ios::trunc  );
    file.exceptions( ios::failbit );   

    file << "hello" << endl
         << "world" << endl;

    file.seekg( 0 ).ignore( 10000, '\n' );
    string input_string;
    getline( file, input_string );

    cout << input_string << endl;
}

Pergilah

package main

import (
  "os"
  "bufio"
  "log"
)

func main() {
  file, err := os.Open("fileio.txt", os.O_RDWR | os.O_CREATE, 0666)
  if err != nil {
    log.Exit(err)
  }
  defer file.Close()

  _, err = file.Write([]byte("hello\n"))
  if err != nil {
    log.Exit(err)
  }

  _, err = file.Write([]byte("world\n"))
  if err != nil {
    log.Exit(err)
  }

  // seek to the beginning 
  _, err = file.Seek(0,0)
  if err != nil {
    log.Exit(err)
  }

  bfile := bufio.NewReader(file)
  _, err = bfile.ReadBytes('\n')
  if err != nil {
    log.Exit(err)
  }

  line, err := bfile.ReadBytes('\n')
  if err != nil {
    log.Exit(err)
  }

  os.Stdout.Write(line)
}

Erlang

Mungkin bukan Erlang yang paling idiomatis, tetapi:

#!/usr/bin/env escript

main(_Args) ->
  Filename = "fileio.txt",
  ok = file:write_file(Filename, "hello\n", [write]),
  ok = file:write_file(Filename, "world\n", [append]),
  {ok, File} = file:open(Filename, [read]),
  {ok, _FirstLine} = file:read_line(File),
  {ok, SecondLine} = file:read_line(File),
  ok = file:close(File),
  io:format(SecondLine).

Emacs Lisp

Terlepas dari apa yang dikatakan sebagian orang, Emacs pada dasarnya adalah editor teks [1]. Jadi, sementara Emacs Lisp dapat digunakan untuk menyelesaikan semua jenis masalah, ia dioptimalkan untuk kebutuhan editor teks. Karena editor teks (jelas) memiliki kebutuhan yang cukup spesifik dalam hal bagaimana file ditangani, ini memengaruhi fungsionalitas terkait file apa yang ditawarkan Emacs Lisp.

Pada dasarnya ini berarti bahwa Emacs Lisp tidak menawarkan fungsi untuk membuka file sebagai aliran, dan membacanya sebagian demi sebagian. Anda juga tidak dapat menambahkan file tanpa memuat seluruh file terlebih dahulu. Sebaliknya file tersebut sepenuhnya [2] dibaca menjadi buffer [3], diedit dan kemudian disimpan ke file lagi.

Untuk tugas yang harus Anda gunakan Emacs Lisp untuk ini cocok dan jika Anda ingin melakukan sesuatu yang tidak melibatkan pengeditan fungsi yang sama dapat digunakan.

Jika Anda ingin menambahkan file berulang kali ini disertai dengan overhead yang sangat besar, tetapi dimungkinkan seperti yang ditunjukkan di sini. Dalam praktiknya, Anda biasanya selesai membuat perubahan pada buffer baik secara manual atau terprogram sebelum menulis ke file (cukup gabungkan dua s-ekspresi pertama dalam contoh di bawah).

(with-temp-file "file"
  (insert "hello\n"))

(with-temp-file "file"
  (insert-file-contents "file")
  (goto-char (point-max))
  (insert "world\n"))

(with-temp-buffer
  (insert-file-contents "file")
  (next-line)
  (message "%s" (buffer-substring (point) (line-end-position))))

[1] Setidaknya saya tidak akan menyebutnya OS; UI alternatif ya, OS no.

[2] Anda hanya dapat memuat sebagian file, tetapi ini hanya dapat ditentukan secara byte.

[3] Buffer adalah tipe data dalam bentuk yang mirip dengan string dan juga "hal yang Anda lihat saat mengedit file". Saat mengedit buffer ditampilkan di jendela tetapi buffer tidak harus terlihat oleh pengguna.

Sunting: Jika Anda ingin melihat teks yang dimasukkan ke buffer Anda jelas harus membuatnya terlihat, dan tidur di antara tindakan. Karena Emacs biasanya hanya menampilkan ulang layar ketika menunggu input pengguna (dan tidur tidak sama dengan menunggu input), Anda juga harus memaksa menampilkan ulang. Ini diperlukan dalam contoh ini (gunakan sebagai ganti sexp kedua); dalam prakteknya saya tidak pernah menggunakan `redisplay 'sekali pun - jadi ya, ini jelek tapi ...

(with-current-buffer (generate-new-buffer "*demo*")
  (pop-to-buffer (current-buffer))
  (redisplay)
  (sleep-for 1)
  (insert-file-contents "file")
  (redisplay)
  (sleep-for 1)
  (goto-char (point-max))
  (redisplay)
  (sleep-for 1)
  (insert "world\n")
  (redisplay)
  (sleep-for 1)
  (write-file "file"))

File Batch Windows - Versi # 2

@echo off
echo hello > fileio.txt
echo world  >> fileio.txt
set /P answer=Insert: 
echo %answer%  >> fileio.txt
for /f "skip=1 tokens=*" %%A in (fileio.txt) do echo %%A

Untuk menjelaskan loop mengerikan yang terakhir dicari, diasumsikan bahwa hanya ada halo (baris baru) dunia dalam file. Jadi itu hanya melompati baris pertama dan hanya menggema yang kedua.

Changelog

• 2 - Opps, harus salah membaca persyaratan atau diubah pada saya. Sekarang membaca baris terakhir dari file

Scala:

Menggunakan perpustakaan standar:

val path = "fileio.txt"
val fout = new FileWriter(path)
fout write "hello\n"
fout.close()
val fout0 = new FileWriter(path, true)
fout0 write "world\n"
fout0.close() 
val str = Source.fromFile(path).getLines.toSeq(1)
println(str)

Menggunakan Perpustakaan Scala-ARM Josh Suereth :

val path = "fileio.txt"
for(fout <- managed(new FileWriter(path))) 
  fout write "hello\n"
for(fout <- managed(new FileWriter(path, true))) 
  fout write "world\n"
val str = Source.fromFile(path).getLines.toSeq(1)
println(str)      

Karena banyak orang telah menggunakan deskriptor file yang sama untuk menulis dua string, saya juga memasukkan jawaban saya.

Menggunakan perpustakaan standar:

val path = "fileio.txt"
val fout = new FileWriter(path)
fout write "hello\n"
fout write "world\n"
fout.close()
val str = Source.fromFile(path).getLines.toSeq(1)
println(str)

Menggunakan Perpustakaan Scala-ARM Josh Suereth :

val path = "fileio.txt"
for(fout <- managed(new FileWriter(path))){
  fout write "hello\n"
  fout write "world\n"
}
val str = Source.fromFile(path).getLines.toSeq(1)
println(str)

Asyik

new File("fileio.txt").with { 
    write  "hello\n"
    append "world\n"   
    println secondLine = readLines()[1]
}