Globally replace text in several files: Difference between revisions

=={{header|Ada}}==

 

 

procedure Global_Replace is

File_Replace(Ada.Command_Line.Argument(I), Pattern, Replacement);

end loop;

 

Ouput:

"Hello New York!"

"Byebye London!" "Byebye London!" "Byebye London!" </pre>

 

=={{header|AutoHotkey}}==

listFiles := "a.txt|b.txt|c.txt" ; Define a list of files in the current working directory

loop, Parse, listFiles, |

fileAppend, %contents%, %A_LoopField% ; Re-create the file with new contents

}

 

=={{header|BASIC}}==

Pass the files on the command line (i.e. <code>global-replace *.txt</code>).

 

CONST repltext = "Hello New York!"

CONST matchlen = LEN(matchtext)

WEND

L0 += 1

 

=={{header|C}}==

#include <stdlib.h>

#include <stddef.h>

#include <string.h>

 

{

ptrdiff_t i;

if (start[i] != pat[i]) break;

 

start++;

}

}

 

{

#define bail(msg) { warn(msg" '%s'", fname); goto done; }

int main()

{

int i;

 

 

return 0;

 

=={{header|C++}}==

#include <iterator>

#include <boost/regex.hpp>

}

return 0 ;

 

=={{header|D}}==

{{works with|D|2}}

 

void main() {

write(fn, replace(cast(string)read(fn), from, to));

}

=={{header|Go}}==

 

import (

_, err = f.WriteAt(r, 0)

return

 

=={{header|Icon}} and {{header|Unicon}}==

This example uses the Unicon stat function. It can be rewritten for Icon to aggregate the file in a reads loop.

globalrepl("Goodbye London","Hello New York","a.txt","b.txt") # variable args for files

end

end

 

 

{{libheader|Icon Programming Library}}

If <code>files</code> is a variable with the desired list of file names:

 

 

 

=={{header|Liberty BASIC}}==

nomainwin

 

end if

end function

 

=={{header|Lua}}==

 

for _, fn in pairs( filenames ) do

fp:write( str )

fp:close()

 

 

=={{header|OpenEdge/Progress}}==

i_cfile_list AS CHAR,

i_cfrom AS CHAR,

"Goodbye London!",

"Hello New York!"

 

=={{header|Pascal}}==

{{works with|Free_Pascal}}

 

uses

AllText.Destroy;

end;

 

=={{header|Perl}}==

 

=={{header|PicoLisp}}==

(call 'mv File (tmp File))

(out File

(in (tmp File)

(while (echo "Goodbye London!")

 

=={{header|PowerBASIC}}==

{{trans|BASIC}}

$repltext = "Hello New York!"

 

INCR L0

WEND

 

=={{header|PureBasic}}==

Protected Line$, Out$, OutFile$, i

ForEach File$()

EndIf

Next

Implementation

<pre>NewList Xyz$()

From [http://docs.python.org/library/fileinput.html Python docs]. (Note: in-place editing does not work for MS-DOS 8+3 filesystems.).

 

 

for line in fileinput.input(inplace=True):

print(line.replace('Goodbye London!', 'Hello New York!'), end='')

 

=={{header|Ruby}}==

 

=={{header|Run BASIC}}==

file$(2) ="data2.txt"

file$(3) ="data3.txt"

i = i + 1

WEND

 

=={{header|Seed7}}==

include "getf.s7i";

putf(fileName, content);

end for;

 

=={{header|Tcl}}==

{{tcllib|fileutil}}

package require fileutil

 

foreach filename $fileList {

fileutil::updateInPlace $filename $replacementCmd

=={{header|TUSCRIPT}}==

$$ MODE TUSCRIPT

files="a.txt'b.txt'c.txt"

ENDLOOP

ERROR/STOP DELETE ("scratch")

 

=={{header|TXR}}==

 

 

@file

@(next `@file`)

@(rep)@{notmatch}Hello, New York!@(end)@tail

@(end)

Run:

<pre>$ cat foo.txt

txr: unhandled exception of type file_error:

txr: could not open foo.txt.tmp (error 13/Permission denied)

 

{{omit from|HTML}}