[AccessD] import text

Rocky Smolin rockysmolin at bchacc.com
Mon Apr 15 11:08:06 CDT 2013


Just a WAG but what if you replace ff with 1?  On the rare occasions I've
had to do this, I just used 1 instead of getting a file number from
freefile.
Rocky
 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of pedro at plex.nl
Sent: Monday, April 15, 2013 3:37 PM
To: AccessD at databaseadvisors.com
Subject: Re: [AccessD] import text

Dear Paul, Shamil, Stuart,

i already tried several things before contacting accessd again, also Dim,
with no result.

Still i get an compiling error (Syntax) at line: 

While not EOF(#ff)

and

strOutputLine = replace(strTemp(" ",strDQ & "," & strDQ)

Below the latest code version.

Anyone a idea?

Greetings

Pedro






Private Sub import()

Dim ff As Integer
Dim strTemp As String
Dim strOutputLine As String
Dim strResult As String
Dim strDQ As String
Dim strFilename As String
ff = VBA.FreeFile()
strDQ = Chr$(34)

strFilename = "C:\Temp\Test_Import.txt"

Open strFilename For Input As #ff
Line Input #ff, strTemp

While not EOF(#ff)
   If Left$(strTemp, 2) = "**" Then 'Build initial quote/comma delimited
string
   strOutputLine = replace(strTemp(" ",strDQ & "," & strDQ)
   'add start and end quotes
   strOutputLine = strDQ & strOutputLine & strDQ
   End If
   
   If Left$(strTemp, 10) = "CONCLUSIE:" Then 'Get next line
       Line Input #ff, strTem
      strOutputLine = strOutputLine & "," & strDQ & strTemp & strDQ
   End If
   
   If Left$(strTemp, 10) = "DIAGNOSES:" Then 'Get next line
       Line Input #ff, strTemp
      strOutputLine = strOutputLine & "," & strDQ & strTemp & strDQ
      'and append this line
      strResult = strResult & vbCrLf & strOutput
   End If

   Line Input #ff, strTemp
Wend
Close #ff
Debug.Print strResult

End Sub
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



More information about the AccessD mailing list