Hey.. Who could ask for more? ;-)
----- Original Message -----
From: "Wills, Steve" <[email protected]>
To: "RBASE-L Mailing List" <[email protected]>
Sent: Monday, July 12, 2010 9:51 AM
Subject: [RBASE-L] - RE: Available for download - RMScriptPak
Mike, I have specific (sub-)folders from my 'RB%' &&|| 'DB%' folder(s)
with names like 'Celko', 'Razzak', 'Bill_D', Et Al. I appreciate your
humility and I respect its sincerity as I believe the contributions of
knowledge and code that you and these others share have benefits for
many of us that are greater, sometimes far greater, than those who share
them can really appreciate. It's not just the sharing but the manner
thereof that also has value.
All that said - not trying to "gas you up" - I just wanted you to know
that one of my folders is LIKE '%Byerlley%'.
CU,
Steve in Memphis
-----Original Message-----
From: [email protected] [mailto:[email protected]] On Behalf Of Mike
Byerley
Sent: Sunday, July 11, 2010 10:08am 10:08
To: RBASE-L Mailing List
Subject: [RBASE-L] - RE: Available for download - RMScriptPak
Thanks Jay..
There are many contributors here whose RBase chops put me to shame
though,
so I just do what I can do...
----- Original Message -----
From: "Jay Ward" <[email protected]>
To: "RBASE-L Mailing List" <[email protected]>
Sent: Saturday, July 10, 2010 9:14 PM
Subject: [RBASE-L] - RE: Available for download - RMScriptPak
Mike, thanks for this and all your help to those of us that are
neophytes
compared to you. Jay
-----Original Message-----
From: [email protected] [mailto:[email protected]] On Behalf Of Mike
Byerley
Sent: Saturday, July 10, 2010 7:00 PM
To: RBASE-L Mailing List
Subject: [RBASE-L] - Available for download - RMScriptPak
The RMScript Win32 Dll for use with RBase using DLCall is available
for
download here:
http://www.byerley.net/RMScriptPak.zip
I have included a fair amount of useful examples including a couple of
forms
in a 7.6 / 9.0(32) db exibiting some ways to get you started.
The helpfile is included as well as a bunch of other stuff, most of
which
is
mentioned in the ReadMeFirst file.
----- Original Message -----
From: "Luc Delcoigne" <[email protected]>
To: "RBASE-L Mailing List" <[email protected]>
Sent: Friday, July 09, 2010 10:12 AM
Subject: [RBASE-L] - re: inserting text in ascii file.
Mike,
this sounds very tempting.
But, alas...I have no idea how my work-schedule will be in October.
But I'll certainly keep it in mind......
If I can solve the efilm connection problem, that would give me a
second
reason to consider your offer .... ;-)
Luc D.
--------------------------------------------------
From: "Mike Byerley" <[email protected]>
Sent: Friday, July 09, 2010 3:59 PM
To: "RBASE-L Mailing List" <[email protected]>
Subject: [RBASE-L] - re: inserting text in ascii file.
Pity that you live on the other side of the atlantic.
This is something worth to have a drink toget
Come to conference in October and have a drink with everyone....
----- Original Message -----
From: "Luc Delcoigne" <[email protected]>
To: "RBASE-L Mailing List" <[email protected]>
Sent: Friday, July 09, 2010 9:56 AM
Subject: [RBASE-L] - re: inserting text in ascii file.
Mike,
the problem is solved !!!
IF (SGET(.vnote,1,.vwrap)) <> ' ' THEN
has to be
IF (SGET(.vnote,1,.vwrap)) <> (char(32)) THEN
and idem for the line in the WHILE-clause.
the code works all right now....
her.
Now:
on to the other problem : the connection with efilm....
I hope you can help me out here too.....
Luc delcoigne
--------------------------------------------------
From: "Mike Byerley" <[email protected]>
Sent: Friday, July 09, 2010 1:52 PM
To: "RBASE-L Mailing List" <[email protected]>
Subject: [RBASE-L] - re: inserting text in ascii file.
Well like I said, I wrote it 8+ years ago and haven't looked at it
or
used it since 2006. What prompted it in the beginning was the
joining
of db lines of boilerplate text without CrLf and the
concantenation
would make the text wrap or break in the middle of words at
undesirable
locations. If you take the full example shown below and change the
wrap
position, you will see that the output changes to match the wrap
location:
LABEL bgprog
SET VAR v1 TEXT = +
'This is a test to concatenate several lines of text into another
'
SET VAR v2 TEXT = +
'variable and write the contents of the resulting variable to
provide
'
SET VAR v3 TEXT = +
'programmers on the R:BASE list server a code sample to see if
they '
SET VAR v4 TEXT = +
'are able to duplicate our problem or if we have some type of
configuration '
SET VAR v5 TEXT = 'issue. '
SET VAR v6 TEXT = +
'This code wraps the variable at position 30. What we are seeing
is '
SET VAR v7 TEXT = +
'spaces in position 31 are not truncated but inserted at the
beginning
of '
SET VAR v8 TEXT = 'the following line. '
SET VAR vnote NOTE = (.v1 & .v2 & .v3 & .v4 & .v5 & .v6 &
.v7 &
.v8)
CLEAR VAR v1,v2,v3,v4,v5,v6,v7,v8
SET VAR vstrtmp NOTE
SET VAR vgetlen INTEGER
SET VAR vgettext TEXT
SET VAR vstrlen INTEGER
--the wrap location
SET VAR vwrap INTEGER = 55
SET VAR vcrlf = ((CHAR(13))+(CHAR(10)))
SET VAR vstrlen = (SLEN(.vnote))
WHILE vstrlen > 0 THEN
SET VAR vsloc = .vwrap
--test for location of space at wrap point
IF (SGET(.vnote,1,.vwrap)) <> ' ' THEN
-- loop backwards till find set var vgetlen = .vsloc
WHILE (SGET(.vnote,1,.vsloc)) <> ' ' THEN
IF (SLEN(.vnote)) <= .vsloc THEN
SET VAR vsloc = (SLEN(.vnote))
SET VAR vgetlen = (SLEN(.vnote))
ELSE
SET VAR vsloc = (.vsloc - 1)
SET VAR vgetlen = .vsloc
ENDIF
ENDWHILE
SET VAR vgettext = (SGET(.vnote,.vgetlen,1))
SET VAR vgettext = (LJS(.vgettext,.vgetlen))
SET VAR vgettext = (STRIM(.vgettext))
SET VAR vstrtmp = (.vstrtmp + .vgettext + .vcrlf)
SET VAR vstrlen = (.vstrlen - .vgetlen)
IF vstrlen < 0 THEN
SET VAR vstrlen = (SLEN(.vnote))
ENDIF
SET VAR vnote = (SGET(.vnote,.vstrlen, (.vgetlen + 1)))
ELSE
SET VAR vgettext = (SGET(.vnote,.vwrap,1))
SET VAR vgettext = (LJS(.vgettext,.vwrap))
SET VAR vgettext = (STRIM(.vgettext))
SET VAR vstrtmp = (.vstrtmp + .vgettext + .vcrlf)
SET VAR vstrlen = (.vstrlen - .vwrap)
IF vstrlen < 0 THEN
SET VAR vstrlen = (SLEN(.vnote))
ENDIF
SET VAR vnote = (SGET(.vnote, .vstrlen, (.vwrap + 1)))
ENDIF
ENDWHILE
SET VAR vnote = (SRPL(.vstrtmp,' ', ' ',0))
LABEL ndproc
SHOW VAR vnote=&vwrap AT 5 20
CLEAR VAR vcrlf,vgetlen,vgettext,vsloc,vstrlen,vstrtmp,vwrap
RETURN
----- Original Message -----
From: "James Bentley" <[email protected]>
To: "RBASE-L Mailing List" <[email protected]>
Sent: Thursday, July 08, 2010 11:37 PM
Subject: [RBASE-L] - re: inserting text in ascii file.
Mike,
While I don't have time to work on a solution. Several ideas
occur.
As
some on
mentioned you may need to strip out the CR & LF. That seems to be
the
case from
the output shown below. The other is to use the following
function to
find the
space that indicates a word break.
(SLOCP(TextNoteVarcharValue,string,occurrence))
Locates the exact position of a given string and occurrence in a
TEXT,
NOTE or
VARCHAR value, returning the position if the string is found, 0
if it
is not
found. Using -1 as the third parameter will return the LAST
occurrence.
This would allow you to have a moving window into the
text/note/varchar
variable.
I would be interested in seeing your final code as I might have a
use
for it in
one of my applications where I
am breaking in the middle of a word. The app would look much
nicer
if
a could
break on words instead of
in the middle of words.
Jim Bentley
American Celiac Society
[email protected]
tel: 1-504-737-3293
----- Original Message ----
From: Mike Byerley <[email protected]>
To: RBASE-L Mailing List <[email protected]>
Sent: Thu, July 8, 2010 4:19:50 PM
Subject: [RBASE-L] - re: inserting text in ascii file.
Send me an example text file (direct off list) if you can. Also,
show
me a
dozen or so lines of the code you are using to collect the file
contents into a
variable. Also show any pertenant variable declarations.
----- Original Message ----- From: "Luc Delcoigne"
<[email protected]>
To: "RBASE-L Mailing List" <[email protected]>
Sent: Thursday, July 08, 2010 5:06 PM
Subject: [RBASE-L] - re: inserting text in ascii file.
Mike,
i tried your code and I got this :
"
normale koepelstanden. vrije laterale en dorsale sinussen,
zonder tekens
van pleuravocht. normale hartgrootte. scherpe aflijning van de
hili.
norm
ale breedte van het bovenste mediastinum. mediane positie van de
trachea.
normale aeratie van de longvelden. homogene aeratie van de
longvelden,
z
onder confluerende infiltraten noch verdachte opaciteiten.
normale botst
ructuren.
"
Never mind the dutch language,
The line-length is OK and is set to 75.
but as you see I still get some words that are chopped.
How could I solve this ?
Luc
--------------------------------------------------
From: "Mike Byerley" <[email protected]>
Sent: Thursday, July 08, 2010 10:41 PM
To: "RBASE-L Mailing List" <[email protected]>
Subject: [RBASE-L] - re: inserting text in ascii file.
It looks like I wrote it eight years ago to solve a different
problem. It just
happens it will likely work for yours. You can change the wrap
variable to any
number and it will insert a CrLf at that location.
I can think of another solution to the problem that might be a
little quicker.
Take the variable that contains the file contents, strip out all
of
the CrLf,
then process from the beginning using some of the logic in the
code
I
sent, the
difference being instead of concantenating Notes on the fly, you
would add
completed lines to a variable user defined ListBox and when you
are
done, you
can use the ListBox's Save_To_File method.
If the length of the file contents isn't too long, there might
not
be such
distinguishable difference, so what I sent would probably work
without
reinventing it all over again.
----- Original Message ----- From: "Luc Delcoigne"
<[email protected]>
To: "RBASE-L Mailing List" <[email protected]>
Sent: Thursday, July 08, 2010 4:30 PM
Subject: [RBASE-L] - re: inserting text in ascii file.
Mike,
This is more than just a forum. This is really a place where
people
help
people.
I must say that R:base has been so far a heart-warming
experience.
Thank you.
I will try the code immediately.
Too hot to go to sleep over here.
Luc Delcoigne
--------------------------------------------------
From: "Mike Byerley" <[email protected]>
Sent: Thursday, July 08, 2010 10:25 PM
To: "RBASE-L Mailing List" <[email protected]>
Subject: [RBASE-L] - re: inserting text in ascii file.
Is the problem that after you have it (the file) converted to
a
Text variable
(is it TEXT or VARCHAR), that the word wrap is beyond 75
characters?
If it is, I have some old rbase code that wraps text at a
designated maximum
width. Also, after you get the DLL, you will be able to
process
text files any
way that is permitted within the VBScript Language.
The RBASE CODE:
{begin code}
LABEL bgprog
SET VAR vnote NOTE = (.vVariableOfMyTextFileContents)
CLEAR VAR v1,v2,v3,v4,v5,v6,v7,v8
SET VAR vstrtmp NOTE
SET VAR vgetlen INTEGER
SET VAR vgettext TEXT
SET VAR vstrlen INTEGER
--the wrap location
SET VAR vwrap INTEGER = 75
SET VAR vcrlf = ((CHAR(13))+(CHAR(10)))
SET VAR vstrlen = (SLEN(.vnote))
WHILE vstrlen > 0 THEN
SET VAR vsloc = .vwrap
--test for location of space at wrap point
IF (SGET(.vnote,1,.vwrap)) <> ' ' THEN
-- loop backwards till find set var vgetlen = .vsloc
WHILE (SGET(.vnote,1,.vsloc)) <> ' ' THEN
IF (SLEN(.vnote)) <= .vsloc THEN
SET VAR vsloc = (SLEN(.vnote))
SET VAR vgetlen = (SLEN(.vnote))
ELSE
SET VAR vsloc = (.vsloc - 1)
SET VAR vgetlen = .vsloc
ENDIF
ENDWHILE
SET VAR vgettext = (SGET(.vnote,.vgetlen,1))
SET VAR vgettext = (LJS(.vgettext,.vgetlen))
SET VAR vgettext = (STRIM(.vgettext))
SET VAR vstrtmp = (.vstrtmp + .vgettext + .vcrlf)
SET VAR vstrlen = (.vstrlen - .vgetlen)
IF vstrlen < 0 THEN
SET VAR vstrlen = (SLEN(.vnote))
ENDIF
SET VAR vnote = (SGET(.vnote,.vstrlen, (.vgetlen + 1)))
ELSE
SET VAR vgettext = (SGET(.vnote,.vwrap,1))
SET VAR vgettext = (LJS(.vgettext,.vwrap))
SET VAR vgettext = (STRIM(.vgettext))
SET VAR vstrtmp = (.vstrtmp + .vgettext + .vcrlf)
SET VAR vstrlen = (.vstrlen - .vwrap)
IF vstrlen < 0 THEN
SET VAR vstrlen = (SLEN(.vnote))
ENDIF
SET VAR vnote = (SGET(.vnote, .vstrlen, (.vwrap + 1)))
ENDIF
ENDWHILE
SET VAR vnote = (SRPL(.vstrtmp,' ', ' ',0))
LABEL ndproc
show var vnote=.vwrap at 5 20
CLEAR VAR vcrlf,vgetlen,vgettext,vsloc,vstrlen,vstrtmp,vwrap
RETURN
{end code}
----- Original Message ----- From: "Luc Delcoigne"
<[email protected]>
To: "RBASE-L Mailing List" <[email protected]>
Sent: Thursday, July 08, 2010 4:09 PM
Subject: [RBASE-L] - re: inserting text in ascii file.
Hi all,
I've been sweating all day long on this problem.
In a ascii file I have to insert the contents of a rtf- blob.
With the RRTFtoTxt pluging I could convert the it to a text
variable.
Now I can insert the text variable in my file.
BUT the lines of the inserted text cannot be longer than 75
characters.
This is an essential part of my application.
Without this I could be forced to stick with Access where I
can
manipulate the
file with the Wordobj....and I love R:base...
Any ideas ??
Grtz
Luc Delcoigne
