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 = . v850file SET VAR vquote = ( CVAL ( 'QUOTES' )) SET VAR vOldchar TEXT = '~' = . v850file SET VAR vquote = ( CVAL ( 'QUOTES' )) SET VAR vOldchar 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 Your file will now be as you want. -Bob ----- 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 ----- 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 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
