[AccessD] import text

One too many opering brackets and a missing comma:

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

(I said it was aircode <g>)



-- 
Stuart
On 15 Apr 2013 at 15:37, pedro at plex.nl wrote:

> Dear Paul, Shamil, Stuart,
> 
> i already tried several things before contacting accessd again, al
so 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
>