[AccessD] import text

Replace the line While not EOF(#ff) with While not EOF(ff) can't quite see
anything wrong with the other line


On 15 April 2013 16:37, <pedro at plex.nl> wrote:

> 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
>



-- 
Paul Hartland
paul.hartland at googlemail.com