Re: [BLACKBOX] How to concatenate ASCII files

From: Rene A. Krywult <"Rene>
Date: Thu, 26 Jul 2012 18:20:41 +0200

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

Rainer,

You don't need WinApi for so simple a task.

Have a look at "Help"->"Examples" in the BB menu.

There you'll find the documentation and source code for ObxAscii, ObxHello1 and ObxOpen1, which has all information you need.

F.i. you could start with ObxOpen1. The "Do" Command opens an existing file. In the File Open Dialogue you can select filetype "Text (.txt)". This reads an existing ASCII File and creates a new TextModels.Model.

Do this for all the files you wand to concatenate.

Then create a new TextModels.Model (see ObxHello1:

        VAR t: TextModels.Model; f: TextMappers.Formatter; v: TextViews.View;
        BEGIN
                t := TextModels.dir.New();

).

Next, append one TextModels.Model after the other to this new TextModels.Model with the following method:

t.Append(t1);

(where t1 is one of the Textmodels with the ASCII data).

Then show the textmodel in a view (see ObxHello1) and use the "File->Save As" menu to save it (choose the filetype you want).

To create a more automatized way of doing this, press F2 in BB (for the Help Contents), and then click "5 Texts", approximately in the middle of the window.

Hope that helps

Rene
-------- Original-Nachricht --------
> Datum: Thu, 26 Jul 2012 18:02:41 +0200
> Von: Rainer Neubauer <rainer.neubauer{([at]})nowhere.xy
> An: BLACKBOX{([at]})nowhere.xy
> Betreff: [BLACKBOX] How to concatenate ASCII files

> 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

----
To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to LISTSERV{([at]})nowhere.xy----boundary-LibPST-iamunique-1463846098_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGZiaWRpcyBcZGVmZjB7XGZvbnR0YmwN
CntcZjBcZnN3aXNzIEFyaWFsO30NCntcZjFcZm1vZGVybiBDb3VyaWVyIE5ldzt9DQp7XGYyXGZu
aWxcZmNoYXJzZXQyIFN5bWJvbDt9DQp7XGYzXGZtb2Rlcm5cZmNoYXJzZXQwIENvdXJpZXIgTmV3
O319DQp7XGNvbG9ydGJsXHJlZDBcZ3JlZW4wXGJsdWUwO1xyZWQwXGdyZWVuMFxibHVlMjU1O30N
Clx1YzFccGFyZFxwbGFpblxkZWZ0YWIzNjAgXGYwXGZzMjAgUmFpbmVyLCBccGFyDQpccGFyDQpZ
b3UgZG9uJ3QgbmVlZCBXaW5BcGkgZm9yIHNvIHNpbXBsZSBhIHRhc2suXHBhcg0KXHBhcg0KSGF2
ZSBhIGxvb2sgYXQgIkhlbHAiLT4iRXhhbXBsZXMiIGluIHRoZSBCQiBtZW51LiBccGFyDQpccGFy
DQpUaGVyZSB5b3UnbGwgZmluZCB0aGUgZG9jdW1lbnRhdGlvbiBhbmQgc291cmNlIGNvZGUgZm9y
IE9ieEFzY2lpLCBPYnhIZWxsbzEgYW5kIE9ieE9wZW4xLCB3aGljaCBoYXMgYWxsIGluZm9ybWF0
aW9uIHlvdSBuZWVkLlxwYXINClxwYXINCkYuaS4geW91IGNvdWxkIHN0YXJ0IHdpdGggT2J4T3Bl
bjEuIFRoZSAiRG8iIENvbW1hbmQgb3BlbnMgYW4gZXhpc3RpbmcgZmlsZS4gSW4gdGhlIEZpbGUg
T3BlbiBEaWFsb2d1ZSB5b3UgY2FuIHNlbGVjdCBmaWxldHlwZSAiVGV4dCAoLnR4dCkiLiBUaGlz
IHJlYWRzIGFuIGV4aXN0aW5nIEFTQ0lJIEZpbGUgYW5kIGNyZWF0ZXMgYSBuZXcgVGV4dE1vZGVs
cy5Nb2RlbC5ccGFyDQpccGFyDQpEbyB0aGlzIGZvciBhbGwgdGhlIGZpbGVzIHlvdSB3YW5kIHRv
IGNvbmNhdGVuYXRlLlxwYXINClxwYXINClRoZW4gY3JlYXRlIGEgbmV3IFRleHRNb2RlbHMuTW9k
ZWwgKHNlZSBPYnhIZWxsbzE6XHBhcg0KXHBhcg0KXHRhYiBWQVIgdDogVGV4dE1vZGVscy5Nb2Rl
bDsgZjogVGV4dE1hcHBlcnMuRm9ybWF0dGVyOyB2OiBUZXh0Vmlld3MuVmlldztccGFyDQpcdGFi
IEJFR0lOXHBhcg0KXHRhYiBcdGFiIHQgOj0gVGV4dE1vZGVscy5kaXIuTmV3KCk7XHBhcg0KXHBh
cg0KKS5ccGFyDQpccGFyDQpOZXh0LCBhcHBlbmQgb25lIFRleHRNb2RlbHMuTW9kZWwgYWZ0ZXIg
dGhlIG90aGVyIHRvIHRoaXMgbmV3IFRleHRNb2RlbHMuTW9kZWwgd2l0aCB0aGUgZm9sbG93aW5n
IG1ldGhvZDpccGFyDQpccGFyDQp0LkFwcGVuZCh0MSk7XHBhcg0KXHBhcg0KKHdoZXJlIHQxIGlz
IG9uZSBvZiB0aGUgVGV4dG1vZGVscyB3aXRoIHRoZSBBU0NJSSBkYXRhKS5ccGFyDQpccGFyDQpU
aGVuIHNob3cgdGhlIHRleHRtb2RlbCBpbiBhIHZpZXcgKHNlZSBPYnhIZWxsbzEpIGFuZCB1c2Ug
dGhlICJGaWxlLT5TYXZlIEFzIiBtZW51IHRvIHNhdmUgaXQgKGNob29zZSB0aGUgZmlsZXR5cGUg
eW91IHdhbnQpLlxwYXINClxwYXINClRvIGNyZWF0ZSBhIG1vcmUgYXV0b21hdGl6ZWQgd2F5IG9m
IGRvaW5nIHRoaXMsIHByZXNzIEYyIGluIEJCIChmb3IgdGhlIEhlbHAgQ29udGVudHMpLCBhbmQg
dGhlbiBjbGljayAiNSBUZXh0cyIsIGFwcHJveGltYXRlbHkgaW4gdGhlIG1pZGRsZSBvZiB0aGUg
d2luZG93LlxwYXINClxwYXINCkhvcGUgdGhhdCBoZWxwc1xwYXINClxwYXINClJlbmVccGFyDQot
LS0tLS0tLSBPcmlnaW5hbC1OYWNocmljaHQgLS0tLS0tLS1ccGFyDQo+IERhdHVtOiBUaHUsIDI2
IEp1bCAyMDEyIDE4OjAyOjQxICswMjAwXHBhcg0KPiBWb246IFJhaW5lciBOZXViYXVlciA8cmFp
bmVyLm5ldWJhdWVyQFZSLVdFQi5ERT5ccGFyDQo+IEFuOiBCTEFDS0JPWEBMSVNUUy5PQkVST04u
Q0hccGFyDQo+IEJldHJlZmY6IFtCTEFDS0JPWF0gSG93IHRvIGNvbmNhdGVuYXRlIEFTQ0lJIGZp
bGVzXHBhcg0KXHBhcg0KPiBIaSBhbGwsXHBhcg0KPiBpbiB0aGUgbmVhciBmdXR1cmUgSSB3aWxs
IGhhdmUgdG8gcHJvZ3JhbWF0aWNhbGx5IG1lcmdlIHR3byBvciB0aHJlZSBBU0NJSVxwYXINCj4g
ZmlsZXMgaW50byBvbmUgbmV3IGZpbGUuXHBhcg0KPiBEb2VzIGFueWJvZHkgaGF2ZSBhIGhpbnQg
aG93IHRvIGRvIHRoaXMgaW4gYSBzaW1wbGUgbWFubmVyID9ccGFyDQo+IEkgaGFkIGEgbG9vayBh
dCB0aGUgaW50ZXJmYWNlIG9mIG1vZHVsZSBXaW5BcGkgYnV0IGNvdWxkIG5vdCBmaW5kIGFccGFy
DQo+IHByb2NlZHVyZSBmb3IgdGhpcyB0YXNrLlxwYXINCj4gUmVhZGluZyB0aGUgZmlsZXMgbGlu
ZSBieSBsaW5lIGludG8gYSBidWZmZXIgYW5kIHdyaXRpbmcgdGhlIGNvbnRlbnRzIHRvIGFccGFy
DQo+IG5ldyBmaWxlIHNlZW1zIHRvIGJlIGEgYml0IG5hc3R5LlxwYXINCj4gXHBhcg0KPiBCZXN0
IHJlZ2FyZHMsXHBhcg0KPiBSYWluZXJccGFyDQo+IFxwYXINCj4gLS0tLVxwYXINCj4gVG8gdW5z
dWJzY3JpYmUsIHNlbmQgYSBtZXNzYWdlIHdpdGggYm9keSAiU0lHTk9GRiBCTEFDS0JPWCIgdG9c
cGFyDQo+IExJU1RTRVJWQExJU1RTLk9CRVJPTi5DSFxwYXINClxwYXINClxwYXINCi0tLS1ccGFy
DQpUbyB1bnN1YnNjcmliZSwgc2VuZCBhIG1lc3NhZ2Ugd2l0aCBib2R5ICJTSUdOT0ZGIEJMQUNL
Qk9YIiB0byBMSVNUU0VSVkBMSVNUUy5PfX0AAAAAAAB4/H4AwPx+
----boundary-LibPST-iamunique-1463846098_-_---

Received on Thu Jul 26 2012 - 18:20:41 UTC