[RBASE-L] - re: ascii file editing

[Luc Delcoigne]

Wouldn't want to rush you, Mike....;-)

Yes, you are right as far as the vpatID and the vcon are concerned.

Grtz and thanks a lot for your work...

Luc D.

--------------------------------------------------
From: "Mike Byerley" <mbyer...@byerley.net>
Sent: Thursday, July 08, 2010 1:48 PM
To: "RBASE-L Mailing List" <rbase-l@rbase.com>
Subject: [RBASE-L] - re: ascii file editing

I should have it up today.

The helpfile was a mess and after I had twiddled with the source code as I mentioned before, the example code wasn't working, so I have a bit more clean up to do.

I wasted two hours yesterday trying to fix something that wasn't broken because I simply overlooked one short piece of RBase code that was fed to the DLL, assuming it was one value (true), when it was another (false).

S--t happens..  ;-)

Just to be clear, the following code:

vpatID = Forms![InterfaceNieuw]![Patiënten].Form![Punieknummer]
vcon = Forms![InterfaceNieuw]![Consultatie].Form![Consultnummer]

is how you are retrieving the vpatID and vcon values from an Access database, right?

The code you would use in the DLL would be similar to what you posted before, except you would pass in the two variables in the Sub like:

NOTE: the absence of the datatype assignment for the variables that are Dim'd. All variables in VBScript are variants.

Sub Efilm(vpadID, vcon)

Dim EfilmObj
Dim var
Dim varefilm
dim bCloseCurWindow
dim bAddToWindow
dim nSeriesRows
dim nSeriesCols
dim nImageRows
dim nImageCols
dim bAutoSeriesFormat
dim bAutoImageFormat

Set EfilmObj = CreateObject("Efilm.Document")
bCloseCurWindow = True
bAutoSeriesFormat = False
bAutoImageFormat = False
nSeriesRows = 1
nSeriesCols = 2
nImageRows = 1
nImageCols = 1

varefilm = EfilmObj.oleOpenStudy(vpatID, vcon, bCloseCurWindow, bAddToWindow, nSeriesRows, nSeriesCols, nImageRows, nImageCols, bAutoSeriesFormat, bAutoImageFormat)

varefilm = EfilmObj.oleSetForegroundWindow
End Sub

----- Original Message ----- From: "Luc Delcoigne" <luc.delcoi...@scarlet.be>

To: "RBASE-L Mailing List" <rbase-l@rbase.com>
Sent: Wednesday, July 07, 2010 3:10 PM
Subject: [RBASE-L] - re: ascii file editing


Hi,

still working on my ascii file.

Thanks to the RRTFtoTXT plugin, i can read the contents of any varchar, varbit, note into a text variable and read into my ascii file.

BUT :
2 problems still remain.

1. the length of one line of the text may not exceed 80 chars. So I have to chop down the text variable and write every block of 80 chars into another line. 2. for some of the inserted lines I have to put a ']' char on position 1 of that line.

I wouldn't want to presume of the help of this forum, but I am on a tight time schedule here.

So again, any help would be welcome.


Luc D.

PS : the end of my problems is coming in sight.....the next one being the connection with Efilm.

So, Mike, if you should have forgotten about me....I'm still hoping for your .DLL...