Globally replace text in several files: Difference between revisions
Content added Content deleted
(Globally replace text in several files en FreeBASIC) |
|||
| Line 1,599: | Line 1,599: | ||
foreach filename $fileList { |
foreach filename $fileList { |
||
fileutil::updateInPlace $filename $replacementCmd |
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> |
}</lang> |
||