Append a record to the end of a text file: Difference between revisions

<langsyntaxhighlight lang="dos">

<langsyntaxhighlight Clang="c">#include <stdio.h>

}</langsyntaxhighlight>

<langsyntaxhighlight lang="csharp">using System;

<langsyntaxhighlight lang="cpp">#include <iostream>

}</langsyntaxhighlight>

end program append.</langsyntaxhighlight>

<langsyntaxhighlight lang="lisp">(defvar *initial_data*

<langsyntaxhighlight Dlang="d">class Record {

}</langsyntaxhighlight>

<langsyntaxhighlight lang="elixir">

The resulting output is strung along an output line, with a default line length of 132 (a standard lineprinter width); the specification of RECL = 666 ensures that all the output fields are rolled to one line - that isn't padded out to 666 characters: this is not a fixed-length record despite the specification of RECL as a constant, though each record turns out to be 248 characters long. Unfortunately, the trailing spaces in each character variable are rolled forth and there is no option along the lines of <code>WRITE (MSG,*) TRIM(NOTE)</code> One could instead use a suitable FORMAT statement with "A" format codes, but every element of NOTE would have to be named in the output list and the TRIM function applied only to each character field. Not only would this be tedious and error-prone, there is no format code for the enquoting and double-quoting of the texts and thus, no peace of mind... One would of course devise a subroutine to write out such a record (which would probably be more complex, with the FULLNAME subdivided, etc.), but the task's main objective is to demonstrate appending output to a file.<langsyntaxhighlight Fortranlang="fortran"> PROGRAM DEMO !As per the described task, more or less.

END</langsyntaxhighlight>

<langsyntaxhighlight lang="freebasic">' FB 1.05.0 Win64

Close #1</langsyntaxhighlight>

<langsyntaxhighlight lang="go">package main

}</langsyntaxhighlight>

<langsyntaxhighlight lang="groovy">class PasswdRecord {

}</langsyntaxhighlight>

<langsyntaxhighlight lang="groovy">def checkPasswdFile = { it ->

checkPasswdFile()</langsyntaxhighlight>

<langsyntaxhighlight lang="haskell">

<langsyntaxhighlight lang="haskell">

<langsyntaxhighlight lang="unicon">procedure main()

end</langsyntaxhighlight>

<langsyntaxhighlight lang="j">require'strings ~system/packages/misc/xenos.ijs'

assert 1 e. R3 E. fread passwd </langsyntaxhighlight>

<lang java>import static java.util.Objectsio.requireNonNullFileOutputStream;

}</langsyntaxhighlight>

<langsyntaxhighlight lang="julia">

<langsyntaxhighlight lang="scala">// Version 1.2.41

}</langsyntaxhighlight>

<langsyntaxhighlight lang="lua">function append(tbl,filename)

append(xyz, ".passwd")</langsyntaxhighlight>

<langsyntaxhighlight M2000lang="m2000 Interpreterinterpreter">Module TestThis {

<langsyntaxhighlight Mathematicalang="mathematica">data = <|"account" -> "xyz", "password" -> "x", "UID" -> 1003,

Print["Appended record: " <> asString[data]];</langsyntaxhighlight>

<langsyntaxhighlight Matlablang="matlab"> DS{1}.account='jsmith';

fclose(fid); </langsyntaxhighlight>

<langsyntaxhighlight Perllang="perl">use strict;

<langsyntaxhighlight Phixmontilang="phixmonti">include ..\Utilitys.pmt

f fclose</langsyntaxhighlight>

<langsyntaxhighlight PHPlang="php"><?php

<langsyntaxhighlight PicoLisplang="picolisp">(setq L '((jsmith x 1001 1000

(bye)</langsyntaxhighlight>

<langsyntaxhighlight lang="python">#############################

print "Appended record:",passwd_list[-1][:-1]</langsyntaxhighlight>

<langsyntaxhighlight lang="racket">

<syntaxhighlight lang="raku" perl6line>class record {

<langsyntaxhighlight lang="rexx">/*REXX program writes (appends) two records, closes the file, appends another record.*/

/*some error causes: no write access, disk is full, file lockout, no authority*/</langsyntaxhighlight>

<langsyntaxhighlight lang="ruby">Gecos = Struct.new :fullname, :office, :extension, :homephone, :email

puts File.readlines(filename)</langsyntaxhighlight>

<langsyntaxhighlight lang="rust">

{{libheader|Scala}}<langsyntaxhighlight lang="scala">import java.io.{File, FileWriter, IOException}

} // 57 lines</langsyntaxhighlight>

<langsyntaxhighlight lang="ruby">define (

say "** Test passed!"</langsyntaxhighlight>

<langsyntaxhighlight lang="tcl"># Model the data as nested lists, as that is a natural fit for Tcl

puts "last record is for [lindex $recs end 0], named [lindex $recs end 4 0]"</langsyntaxhighlight>{{out}}

<langsyntaxhighlight lang="bash">rec1=(

cat "$filename"</langsyntaxhighlight>

<langsyntaxhighlight lang="ursa"># ursa appends to files by default when the out function is used

end while</langsyntaxhighlight>

<langsyntaxhighlight lang="vbnet">Imports System.IO

End Module</langsyntaxhighlight>

<langsyntaxhighlight ecmascriptlang="wren">import "io" for File, FileFlags

System.print(contents)</langsyntaxhighlight>

<langsyntaxhighlight Yabasiclang="yabasic">a = open("passwd", "a") // Open the file for appending, i.e. what you write to the file will be appended after its initial contents.

close #a</langsyntaxhighlight>

<langsyntaxhighlight lang="zkl">var [const]

}</langsyntaxhighlight>

<langsyntaxhighlight lang="zkl">fcn strToPasswd(str){ // blow apart file line to class

}</langsyntaxhighlight>

<langsyntaxhighlight lang="zkl">jsmith:=Passwd("jsmith","x",1001, 1000,

File(filename).read().text.print(); // print file</langsyntaxhighlight>