Re: [BLACKBOX] Merge ASCII text files

From: [at]} <Carl>
Date: Thu, 26 Jul 2012 19:07:59 -0700

----boundary-LibPST-iamunique-893065161_-_-
Content-type: text/plain

Hello Rainer:

A possible simple approach might be to see if you can adapt the following single file "copy" example, which requires you to use Douglas Danforth's amazing and excellent subsystem ["My"] available from Howard Zinn's website CPC at <http://www.zinnamturm.eu/>

I hope Douglas Danforth doesn't object, but I adapted his "My.Files" examples of separate read and write and created a single combination example for copying a single file.

You will need to adapt the following so each file to be merged is copied to a singe output file in the order you wish the concatenation to occur.

Danforth has "Open" commands provided for both input and output in his Files library so you should have more flexibility in the filenames then this example. You should be able to avoid the interactive file prompting of the example if you already know the input and output filenames.

There will be 1 output file which remains open until the input files have been copied. Presumably after each input file is copied, it is closed, so only 1 input need be open at a time.

These are the details you would work out for yourself when you modify the example.

I have to give credit though to Professor K.N. King because there is an example of concatenating input files in his book "Modula-2: A Complete Guide", available from Amazon.

I claim no credit for merging Danforth's read/write examoles and hope he doesn't mind.

Sincerely
Carl Glassberg

Std encoder/decoder appears not to be working on my system, some problem with extra end-of-lines, so here is the program text:

Copyright © 2012,
by Douglas G. Danforth

Version 20-Jan-2012

This program is free software; you can redistribute it and/or modify it under the terms of the "BlackBox Component Builder Open Source License".

MODULE MyTest;
(* modified from Douglas Danforth's separate read/write examples by Carl Glassberg *)

    IMPORT MyFiles, Stores;

    PROCEDURE Copy *;
        VAR rc: MyFiles.ReadController; rd: Stores.Reader;
            wc: MyFiles.WriteController; wr: Stores.Writer;
            ch: CHAR;

    BEGIN
        rc.SetExtension("txt");
        IF rc.OpenDialog(rd) THEN
            wc.SetExtension("txt");
            IF wc.OpenDialog(wr) THEN
                rd.ReadChar(ch);
                WHILE ~rd.rider.eof DO
                    wr.WriteChar(ch);
                    rd.ReadChar(ch)
                END (* while *);
                wc.Close
            END (* if *);
            rc.Close
        END (* if *)
    END Copy;

END MyTest .
---------------------


>Hi all,
>in the near future I will have to programatically merge two or three >ASCII files into one new file.
   
>Does anybody have a hint how to do this in a simple manner ?
   
>I had a look at the interface of module WinApi but could not find a >procedure for this task.

>Reading the files line by line into a buffer and writing the contents to >a new file seems to be a bit nasty.

>    Best regards,
>    Rainer

>    ----

----
To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to LISTSERV{([at]})nowhere.xy----boundary-LibPST-iamunique-893065161_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGZiaWRpcyBcZGVmZjB7XGZvbnR0YmwN
CntcZjBcZnN3aXNzXGZjaGFyc2V0MCBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7
fQ0Ke1xmMlxmbmlsXGZjaGFyc2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBD
b3VyaWVyIE5ldzt9fQ0Ke1xjb2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBc
Ymx1ZTI1NTt9DQpcdWMxXHBhcmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwIEhlbGxvIFJhaW5l
cjpccGFyDQpccGFyDQpBIHBvc3NpYmxlIHNpbXBsZSBhcHByb2FjaCBtaWdodCBiZSB0byBzZWUg
aWYgeW91IGNhbiBhZGFwdCB0aGUgZm9sbG93aW5nIHNpbmdsZSBmaWxlICJjb3B5IiBleGFtcGxl
LCB3aGljaCByZXF1aXJlcyB5b3UgdG8gdXNlIERvdWdsYXMgRGFuZm9ydGgncyBhbWF6aW5nIGFu
ZCBleGNlbGxlbnQgc3Vic3lzdGVtIFsiTXkiXSBhdmFpbGFibGUgZnJvbSBIb3dhcmQgWmlubidz
IHdlYnNpdGUgQ1BDIGF0IDxodHRwOi8vd3d3Lnppbm5hbXR1cm0uZXUvPlxwYXINClxwYXINCkkg
aG9wZSBEb3VnbGFzIERhbmZvcnRoIGRvZXNuJ3Qgb2JqZWN0LCBidXQgSSBhZGFwdGVkIGhpcyAi
TXkuRmlsZXMiIGV4YW1wbGVzIG9mIHNlcGFyYXRlIHJlYWQgYW5kIHdyaXRlIGFuZCBjcmVhdGVk
IGEgc2luZ2xlIGNvbWJpbmF0aW9uIGV4YW1wbGUgZm9yIGNvcHlpbmcgYSBzaW5nbGUgZmlsZS5c
cGFyDQpccGFyDQpZb3Ugd2lsbCBuZWVkIHRvIGFkYXB0IHRoZSBmb2xsb3dpbmcgc28gZWFjaCBm
aWxlIHRvIGJlIG1lcmdlZCBpcyBjb3BpZWQgdG8gYSBzaW5nZSBvdXRwdXQgZmlsZSBpbiB0aGUg
b3JkZXIgeW91IHdpc2ggdGhlIGNvbmNhdGVuYXRpb24gdG8gb2NjdXIuXHBhcg0KXHBhcg0KRGFu
Zm9ydGggaGFzICJPcGVuIiBjb21tYW5kcyBwcm92aWRlZCBmb3IgYm90aCBpbnB1dCBhbmQgb3V0
cHV0IGluIGhpcyBGaWxlcyBsaWJyYXJ5IHNvIHlvdSBzaG91bGQgaGF2ZSBtb3JlIGZsZXhpYmls
aXR5IGluIHRoZSBmaWxlbmFtZXMgdGhlbiB0aGlzIGV4YW1wbGUuIFlvdSBzaG91bGQgYmUgYWJs
ZSB0byBhdm9pZCB0aGUgaW50ZXJhY3RpdmUgZmlsZSBwcm9tcHRpbmcgb2YgdGhlIGV4YW1wbGUg
aWYgeW91IGFscmVhZHkga25vdyB0aGUgaW5wdXQgYW5kIG91dHB1dCBmaWxlbmFtZXMuXHBhcg0K
XHBhcg0KVGhlcmUgd2lsbCBiZSAxIG91dHB1dCBmaWxlIHdoaWNoIHJlbWFpbnMgb3BlbiB1bnRp
bCB0aGUgaW5wdXQgZmlsZXMgaGF2ZSBiZWVuIGNvcGllZC4gUHJlc3VtYWJseSBhZnRlciBlYWNo
IGlucHV0IGZpbGUgaXMgY29waWVkLCBpdCBpcyBjbG9zZWQsIHNvIG9ubHkgMSBpbnB1dCBuZWVk
IGJlIG9wZW4gYXQgYSB0aW1lLlxwYXINClxwYXINClRoZXNlIGFyZSB0aGUgZGV0YWlscyB5b3Ug
d291bGQgd29yayBvdXQgZm9yIHlvdXJzZWxmIHdoZW4geW91IG1vZGlmeSB0aGUgZXhhbXBsZS4g
XHBhcg0KXHBhcg0KSSBoYXZlIHRvIGdpdmUgY3JlZGl0IHRob3VnaCB0byBQcm9mZXNzb3IgSy5O
LiBLaW5nIGJlY2F1c2UgdGhlcmUgaXMgYW4gZXhhbXBsZSBvZiBjb25jYXRlbmF0aW5nIGlucHV0
IGZpbGVzIGluIGhpcyBib29rICJNb2R1bGEtMjogQSBDb21wbGV0ZSBHdWlkZSIsIGF2YWlsYWJs
ZSBmcm9tIEFtYXpvbi5ccGFyDQpccGFyDQpJIGNsYWltIG5vIGNyZWRpdCBmb3IgbWVyZ2luZyBE
YW5mb3J0aCdzIHJlYWQvd3JpdGUgZXhhbW9sZXMgYW5kIGhvcGUgaGUgZG9lc24ndCBtaW5kLlxw
YXINClxwYXINClNpbmNlcmVseVxwYXINCkNhcmwgR2xhc3NiZXJnXHBhcg0KXHBhcg0KU3RkIGVu
Y29kZXIvZGVjb2RlciBhcHBlYXJzIG5vdCB0byBiZSB3b3JraW5nIG9uIG15IHN5c3RlbSwgc29t
ZSBwcm9ibGVtIHdpdGggZXh0cmEgZW5kLW9mLWxpbmVzLCBzbyBoZXJlIGlzIHRoZSBwcm9ncmFt
IHRleHQ6XHBhcg0KXHBhcg0KQ29weXJpZ2h0IFwnYTkgMjAxMiwgXHBhcg0KYnkgRG91Z2xhc1wn
YTBHLlwnYTBEYW5mb3J0aFxwYXINClxwYXINClZlcnNpb24gMjAtSmFuLTIwMTJccGFyDQpccGFy
DQpUaGlzIHByb2dyYW0gaXMgZnJlZSBzb2Z0d2FyZTsgeW91IGNhbiByZWRpc3RyaWJ1dGUgaXQg
YW5kL29yIG1vZGlmeSBpdCB1bmRlciB0aGUgdGVybXMgb2YgdGhlICJCbGFja0JveCBDb21wb25l
bnQgQnVpbGRlciBPcGVuIFNvdXJjZSBMaWNlbnNlIi5ccGFyDQpccGFyDQpNT0RVTEUgTXlUZXN0
O1xwYXINCigqIG1vZGlmaWVkIGZyb20gRG91Z2xhcyBEYW5mb3J0aCdzIHNlcGFyYXRlIHJlYWQv
d3JpdGUgZXhhbXBsZXMgYnkgQ2FybCBHbGFzc2JlcmcgKilccGFyDQpccGFyDQpcJ2EwXCdhMFwn
YTAgSU1QT1JUIE15RmlsZXMsIFN0b3JlcztccGFyDQpccGFyDQpcJ2EwXCdhMFwnYTAgUFJPQ0VE
VVJFIENvcHkgKjtccGFyDQpcJ2EwXCdhMFwnYTAgXCdhMFwnYTBcJ2EwIFZBUiByYzogTXlGaWxl
cy5SZWFkQ29udHJvbGxlcjsgcmQ6IFN0b3Jlcy5SZWFkZXI7XHBhcg0KXCdhMFwnYTBcJ2EwIFwn
YTBcJ2EwXCdhMCBcJ2EwXCdhMFwnYTAgd2M6IE15RmlsZXMuV3JpdGVDb250cm9sbGVyOyB3cjog
U3RvcmVzLldyaXRlcjtccGFyDQpcJ2EwXCdhMFwnYTAgXCdhMFwnYTBcJ2EwIFwnYTBcJ2EwXCdh
MCBjaDogQ0hBUjtccGFyDQpccGFyDQpcJ2EwXCdhMFwnYTAgQkVHSU5ccGFyDQpcJ2EwXCdhMFwn
YTAgXCdhMFwnYTBcJ2EwIHJjLlNldEV4dGVuc2lvbigidHh0Iik7XHBhcg0KXCdhMFwnYTBcJ2Ew
IFwnYTBcJ2EwXCdhMCBJRiByYy5PcGVuRGlhbG9nKHJkKSBUSEVOXHBhcg0KXCdhMFwnYTBcJ2Ew
IFwnYTBcJ2EwXCdhMCBcJ2EwXCdhMFwnYTAgd2MuU2V0RXh0ZW5zaW9uKCJ0eHQiKTtccGFyDQpc
J2EwXCdhMFwnYTAgXCdhMFwnYTBcJ2EwIFwnYTBcJ2EwXCdhMCBJRiB3Yy5PcGVuRGlhbG9nKHdy
KSBUSEVOXHBhcg0KXCdhMFwnYTBcJ2EwIFwnYTBcJ2EwXCdhMCBcJ2EwXCdhMFwnYTAgXCdhMFwn
YTBcJ2EwIHJkLlJlYWRDaGFyKGNoKTtccGFyDQpcJ2EwXCdhMFwnYTAgXCdhMFwnYTBcJ2EwIFwn
YTBcJ2EwXCdhMCBcJ2EwXCdhMFwnYTAgV0hJTEUgfnJkLnJpZGVyLmVvZiBET1xwYXINClwnYTBc
J2EwXCdhMCBcJ2EwXCdhMFwnYTAgXCdhMFwnYTBcJ2EwIFwnYTBcJ2EwXCdhMCBcJ2EwXCdhMFwn
YTAgd3IuV3JpdGVDaGFyKGNoKTtccGFyDQpcJ2EwXCdhMFwnYTAgXCdhMFwnYTBcJ2EwIFwnYTBc
J2EwXCdhMCBcJ2EwXCdhMFwnYTAgXCdhMFwnYTBcJ2EwIHJkLlJlYWRDaGFyKGNoKVxwYXINClwn
YTBcJ2EwXCdhMCBcJ2EwXCdhMFwnYTAgXCdhMFwnYTBcJ2EwIFwnYTBcJ2EwXCdhMCBFTkQgKCog
d2hpbGUgKik7XHBhcg0KXCdhMFwnYTBcJ2EwIFwnYTBcJ2EwXCdhMCBcJ2EwXCdhMFwnYTAgXCdh
MFwnYTBcJ2EwIHdjLkNsb3NlXHBhcg0KXCdhMFwnYTBcJ2EwIFwnYTBcJ2EwXCdhMCBcJ2EwXCdh
MFwnYTAgRU5EICgqIGlmICopO1xwYXINClwnYTBcJ2EwXCdhMCBcJ2EwXCdhMFwnYTAgXCdhMFwn
YTBcJ2EwIHJjLkNsb3NlXHBhcg0KXCdhMFwnYTBcJ2EwIFwnYTBcJ2EwXCdhMCBFTkQgKCogaWYg
KilccGFyDQpcJ2EwXCdhMFwnYTAgRU5EIENvcHk7XHBhcg0KXHBhcg0KRU5EIE15VGVzdCAuXHBh
cg0KLS0tLS0tLS0tLS0tLS0tLS0tLS0tXHBhcg0KXHBhcg0KXHBhcg0KPkhpIGFsbCxccGFyDQo+
aW4gdGhlIG5lYXIgZnV0dXJlIEkgd2lsbCBoYXZlIHRvIHByb2dyYW1hdGljYWxseSBtZXJnZSB0
d28gb3IgdGhyZWUgPkFTQ0lJIGZpbGVzIGludG8gb25lIG5ldyBmaWxlLlxwYXINClwnYTAgXCdh
MCBccGFyDQo+RG9lcyBhbnlib2R5IGhhdmUgYSBoaW50IGhvdyB0byBkbyB0aGlzIGluIGEgc2lt
cGxlIG1hbm5lciA/XHBhcg0KXCdhMCBcJ2EwIFxwYXINCj5JIGhhZCBhIGxvb2sgYXQgdGhlIGlu
dGVyZmFjZSBvZiBtb2R1bGUgV2luQXBpIGJ1dCBjb3VsZCBub3QgZmluZCBhID5wcm9jZWR1cmUg
Zm9yIHRoaXMgdGFzay5ccGFyDQpccGFyDQo+UmVhZGluZyB0aGUgZmlsZXMgbGluZSBieSBsaW5l
IGludG8gYSBidWZmZXIgYW5kIHdyaXRpbmcgdGhlIGNvbnRlbnRzIHRvID5hIG5ldyBmaWxlIHNl
ZW1zIHRvIGJlIGEgYml0IG5hc3R5LlxwYXINClxwYXINCj5cJ2EwIFwnYTAgQmVzdCByZWdhcmRz
LFxwYXINCj5cJ2EwIFwnYTAgUmFpbmVyXHBhcg0KXHBhcg0KPlwnYTAgXCdhMCAtLS0tXHBhcg0K
XHBhcg0KXHBhcg0KLS0tLVxwYXINClRvIHVuc3Vic2NyaWJlLCBzZW5kIGEgbWVzc2FnZSB3aXRo
IGJvZHkgIlNJR05PRkYgQkxBQ0tCT1giIHRvIExJU1RTRVJWQExJU1RTLk9CRVJPTi5DSH19APZx
iOE
----boundary-LibPST-iamunique-893065161_-_---

Received on Fri Jul 27 2012 - 04:07:59 UTC