Globally replace text in several files: Difference between revisions
→Add Transd
(Globally replace text in several files en FreeBASIC) |
|||
Line 1,599:
foreach filename $fileList {
fileutil::updateInPlace $filename $replacementCmd
}</lang>
=={{header|Transd}}==
<lang scheme>#lang transd
MainModule: {
_start: (λ
(with files ["a.txt" "b.txt" "c.txt"] fs FileStream()
(for f in files do
(open-r fs f)
(with s (replace (read-text fs)
"Goodbye London!" "Hello New York!")
(close fs)
(open-w fs f)
(write fs (to-bytes s) (size s))
) ) ) )
}</lang>
| |||