[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