Albert,
Thank you. That works.
My original was
SET VAR vCommandLine TEXT = +
("LAUNCH EDICLEAN.exe|"+.vFileName+";"+.vOutputFile+"|W")
Jan
-----Original Message-----
From: Albert Berry <[email protected]>
To: [email protected] (RBASE-L Mailing List)
Date: Wed, 09 Jun 2010 17:04:12 -0600
Subject: [RBASE-L] - Re: File Load
Jan, your best bet might be a third option: create a variable that
contains the semi-colon, and use that in your text string. The ; is the
command line end in R:Base.
SET VAR vSemi = ';'
SET VAR vParams = ('inputfile' + .vSemi + 'outputfile')
then add &vParams to your command line.
Albert
jan johansen wrote:
> Group,
>
> Ok. Thanks for all the suggestions.
>
> I have the PowerPack but the client doesn't so I can't (and won't)
> explore that option.
>
> I decided to explore the EDICleanse.exe suggested by Dennis. I had a
> great conversation
> with the guy because I couldn't get the help to work. The utility
> works great.
>
> The challenge now is the passing of the parameter to EDIClean.exe.
>
> This utility requires an input file name and an output filename
> seperated by the ; character.
>
> I could get the utility to work from the Windows command prompt but
> couldn't get it to work from within R:BASE.
>
> I finally narrowed it down to the ; character. I have no problem
> building the command line
>
> The question now is how to handle the ; and I'm looking for ideas.
>
> I believe this is a global setting so I'm formulating my question that
> way.
>
> I can get the utility to work in either of 2 ways.
> SET SEMI=NULL
> &vCommandLine
> SET SEMI=;
>
> or
> SET SEMI OFF
> &vCommandLine
> SET SEMI ON
>
> I think both of these can be potentially hazardous.
>
> What are your thoughts?
>
> Jan
>
>
>
>
>
>
> -----Original Message-----
> From: "jan johansen" <[email protected]>
> To: [email protected] (RBASE-L Mailing List)
> Date: Wed, 09 Jun 2010 11:54:28 -0700
> Subject: [RBASE-L] - Re: File Load
>
> Thanks to all who have responded.
> I will explore the suggestions and let you know.
>
> Jan
>
>
>
>
> -----Original Message-----
> From: [email protected]
> To: [email protected] (RBASE-L Mailing List)
> Date: Wed, 9 Jun 2010 18:24:45 +0000 (UTC)
> Subject: [RBASE-L] - Re: File Load
>
> Jan,
> I do a lot of EDI and this is not an uncommon situation. Most
> EDI packages have the option
> to use CR or the "long line" format you describe.
>
> If you have the Power Pack, there is no problem. Use the
> RSearchandReplace.rbl.
>
>
> *SET* *VAR* vfilename *TEXT*
> *set var vNewChar = (CHAR(013))*
> * SET* *VAR* vcommand *TEXT* *= *+
> *('PLUGIN rsearchandreplace.rbl ' *+ *.vquote *+
> 'vError|FILE_NAME ' *+ *. vfilename *+ *+
> ' |OLD_PATTERN ' *+ *. vchar *+ '|NEW_PATTERN' +
> .vNewChar|REPLACE_ALL ON+******* ******
> |IGNORE_CASE ON|WHOLE_WORD OFF' *+ *. vquote* )
>
> *&vcommand
>
>
>
>
> ----- Original Message -----
> From: "jan johansen" <[email protected]>
> To: "RBASE-L Mailing List" <[email protected]>
> Sent: Wednesday, June 9, 2010 11:41:00 AM GMT -06:00 US/Canada
> Central
> Subject: [RBASE-L] - File Load
>
> ****
> Your file will now be as you want.
>
> -Bob
> Group,
>
> I had created an EDI load process for a client a couple of
> years ago. The client decided
> to change their edi provider (you can see where this is going).
>
> The old files looked like this
> ISA*00* *00* *08*9254110060
> *12*9933358077 *091229*0431*U*00307*000001932*0*P*>~
> GS*RA*5137624388*9933358077*20091229*0431*1932*T*004010UCS~
>
> The new format looks like this (it may wrap weird). Basically
> it comes in one long line.
> ISA*00* *00* *08*9254110060
> *12*9933358077
>
*091229*0431*U*00307*000001932*0*P*>~GS*RA*5137624388*9933358077*20091229*0431*1932*T*004010UCS~
>
> It appears that there is a line end character of ~.
>
> My old routine took advantage of a line never being more than
> 120 characters wide.
> It simply did a
> LOAD tEDILoad FROM .vFileName AS FORMATTED USING EDIRawLoad 1 120
>
> Once I can get the file into R:BASE, I'm pretty sure that the
> original routine will work.
>
> I'm drawing a blank as how to load this file.
>
> This is in an older version of 7.6 (don't ask).
>
> Jan
>
>
>
>
>
> -----Original Message-----
> From: "Mike Byerley" <[email protected]>
> To: [email protected] (RBASE-L Mailing List)
> Date: Wed, 9 Jun 2010 10:49:54 -0400
> Subject: [RBASE-L] - Re: OLE 2 in rbase ?
>
> I would guess that the EfilmObj is an ActiveX viewer.
> You could convert your VB code to VBScript with no
> difficulty, since late
> binding is the method of Object creation and simply call
> the VBS file from
> RBase using the "Launch" command. To take it a step
> further, you can store
> the VBS file in a VarChar data field in the database and
> retrieve it, write
> it to disk and run it, deleting it after the run, to keep
> the file from
> anyone fooling with the source code.
>
> If you aren't familiar with scripting, the main difference
> in VBScript is
> all variables are Variants, so when you do variable
> declaration, you omit
> the "as DataType" assignment.
>
>
> ----- Original Message -----
> From: "Luc Delcoigne" <[email protected]>
> To: "RBASE-L Mailing List" <[email protected]>
> Sent: Wednesday, June 09, 2010 10:18 AM
> Subject: [RBASE-L] - OLE 2 in rbase ?
>
>
> Hello again,
>
> in the database that I am converting from Access to R:BAse
> 9.0 we have a
> procedure that links our database with Efilm X-ray filmviewer.
>
> This is the procedure :
>
> Public Sub Efilm()
> Dim EfilmObj As Object
> Dim var As Boolean
> Dim varefilm As Boolean
> Dim vpatID As String, vcon As String, bCloseCurWindow As
> Boolean,
> bAddToWindow As Boolean, nSeriesRows As Integer,
> nSeriesCols As Integer,
> nImageRows As Integer, nImageCols As Integer,
> bAutoSeriesFormat As Boolean,
> bAutoImageFormat As Boolean
> Set EfilmObj = CreateObject("Efilm.Document")
>
> vpatID =
> Forms![InterfaceNieuw]![Patiënten].Form![Punieknummer]
> vcon =
> Forms![InterfaceNieuw]![Consultatie].Form![Consultnummer]
> 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
>
>
> How could I get the same functionality in R:base to link
> to Efilm and
> automatically open all the required film-documents based
> on the
> 'Punieknummer' and the 'Consultnummer' ?
>
> Many, many, many thanks
>
> ;-)
>
> Luc Delcoigne
>
>
>
>
> *= *. v850file
> *SET* *VAR* vquote *= *(CVAL( 'QUOTES'*))
> *SET* *VAR* vOldchar *TEXT* *= *'~'****** *
>
