Hi is there any tool for Lazarus to convert a multi line text (xml snipet, SQL) to a string constant?

Currently i'm using the following regular expression

http://regexr.com/3cna5

If some one knows a better regular expression that handles putting ';' instead of '+ LineEnding +' in last line would help also

Luiz
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus/attachments/20160202/5202868d/attachment.html>

On Tue, Feb 2, 2016 at 4:33 PM, Luiz Americo Pereira Camara <

Shouldn't there be something already in Lazarus itself that you could use? Back at the time when all resources were pascal string constants?

I think it doesn't replace single-quote character (') by doubled single-quote character ( '' )

thanks,
Dmitry
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus/attachments/20160202/589b3f76/attachment.html>

2016-02-02 18:40 GMT-03:00 Dmitry Boyarintsev :

I dont know. That's why i'm asking

It's pretty simple if someone can improve it, it would help

Luiz
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus/attachments/20160202/7f3e3310/attachment.html>

Well, that's a lot shorter than the program I wrote to doo just that.

Bart

Luiz Americo Pereira Camara wrote

Hi is there any tool for Lazarus to convert a multi line text (xml snipet, SQL) to a string constant?

Yes, the tiSQLEditor (written for the tiOPF project) can do just that (and much more of course). It can convert text to the clipboard (in the case of the application, normally SQL statements, but any text really) to Object Pascal strings. It can do the reverse too. You are welcome to copy the relevant code out of the project and make a small Memo plus one Button tool, or simply download the latest binary of tiSQLEditor.

http://sourceforge.net/p/tiopf/tiopf_apps/ci/master/tree/tiSQLEditor_fpGUI/

The code is located in the frm_editor.pas unit.

Binaries of tiSQLEditor can be downloaded from here:

http://sourceforge.net/projects/tiopf/files/Utilities/

Regards,
- Graeme -

I have no solution but want to point out that for embedded programming such a tool would be helpful, too.

I know "cruom" from NutOS doing the job written in and generating C code. It's purpose is to create constants for using as a simple file system. It is called naming a directory and writes to stdout all files in it.

Example of usage and output:

<console>

$ mkdir ctest
$ echo "var" > ctest/file1.pas
$ echo "  i: integer;" >> ctest/file1.pas

$ /usr/local/avr/ethernut-4.8.3/bin/crurom ctest
/*
* This file is automatically created by crurom 1.3.2 */
#include <fs/uromfs.h>

/*
* File entry 1: file1.pas
*/
prog_char file1data[] = {
0x76,0x61,0x72,0x0a,0x20,0x20,0x69,0x3a,0x20,0x69,0x6e,0x74,0x65,0x67,0x65,0x72,0x3b,0x0a, };

prog_char file1name[] = "file1.pas";
static ROMENTRY file1entry = { 0, (prog_char *)file1name, 18, (prog_char *)file1data };
ROMENTRY *romEntryList = &file1entry;

</console>

An example of usage is there:
http://www.ethernut.de/nutwiki/Reading_UROM_Files

I submitted a patch at one point that never got accepted which uses {$INCLUDESTRINGFILE filename} and it includes it as a string. So you could do:

Const SOME_TEXT = {$INCLUDESTRINGFILE sometext.txt};

- Dennis

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus/attachments/20160202/ae5a9734/attachment-0001.html>

As part of PasDoc project we have developed simple file_to_pascal_string utility for this purpose. Just get
http://svn.code.sf.net/p/pasdoc/code/trunk/source/tools/file_to_pascal_string.dpr and compile it.

Alongside, there's also file_to_pascal_data that converts anything to an "array [0 .. Xxx] of Byte" (good to include binary data in the same way). See
http://svn.code.sf.net/p/pasdoc/code/trunk/source/tools/file_to_pascal_data.dpr . And see http://pasdoc.sipsolutions.net/ for whole PasDoc website and links to whole SVN and GIT sources.

I'm using these utilities throughout my projects -- PasDoc, Castle Game Engine, to include text and binary data inside compiled file. (Although at some point I may migrate to using FPC cross-platform resource files for similar purpose.)

Regards,
Michalis

Luiz Americo Pereira Camara wrote

Hi is there any tool for Lazarus to convert a multi line text (xml snipet, SQL) to a string constant?

In MSEide select the text in source editor, RightClick-'Convert to Pascal string'. Code is here:
https://gitlab.com/mseide-msegui/mseide-msegui/raw/master/lib/common/kernel/mseformatstr.pas Function "stringtopascalstring()".

Martin

Thanks for all
Getting time i will do a Lazarus extension

Luiz

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus/attachments/20160203/7a88a3f0/attachment.html>

On 3 February 2016 at 11:30, Luiz Americo Pereira Camara <

http://forum.lazarus.freepascal.org/index.php/topic,24648.0.html

You may find this lilbrary useful

Kind of redundant if two such tools come with FPC (data2inc and bin2obj)

Hm, I admit I simply didn't know about them long time ago, when creating file_to_pascal_xxx utilities in PasDoc:)

Looking at them now:

1. They both have quite longer code than our simple file_to_pascal_string.dpr / file_to_pascal_data.dpr...

In particular data2inc wants to do much more (being able to process a special file format like data2inc.exm). Although it can do the simple thing when invoked with -b option.

But bin2obj is cool, almost exactly what we need, and could replace file_to_pascal_string and file_to_pascal_data indeed.

2. However, neither of them produces a string with line endings expressed as LineEnding constant (so it's OS-specific when output). And we actually like that:) Both bin2obj and data2inc encode the text to a series of characters, and newlines are expressed by explicit chars (like #10 when input has Unix line endings).

But that's a minor thing indeed. If we would know about bin2obj back then, we would probably use it:)

Thanks!
Michalis

As the author of bin2obj, I thank you for these words :-)

Patches certainly accepted.
I use bin2obj in production today still...

Michael.

Data2inc is the result of integration of several such programs and is quite old (late nineties) because they shared many routines (this was all before strutils and hex/bin/oct functionality in inttostr etc existed). Yes the bulk of the code is for other things, but I always used it for the straight case.

IIRC Michael didn't know it, so he wrote bin2obj.

Exactly.

Michael.