read from file and insert data to form

[Maya]

Hi.

I have txt file at c:\. I need to scan every row and insert it to form.
the form include sub form and button submt, when I click submit I call to
function that read from the file line by line, and insert data to the form.
it parse any line when she get to'#'
for example:
c:\phone.txt
123#david smith#London#54545
231#Sara Kermer#NY#98975

the form table is:
phone_id|name|zip_code

I was trying to write it in loop, so if I'll add column into the table (and
to the file in proper) - it will be much easier,
can anyone help?
Thanks.

 

[Douglas J. Steele]

Something like the following untested air-code:

Dim intFile As Integer
Dim strBuffer As String
Dim strFile As String
Dim varValues As Variant

strFile = "C:\phone.txt"

' Check to make sure the file exists
If Len(Dir$(strFile)) > 0 Then
intFile = FreeFile
Open strFile For Input As #intFile
' Loop until end of file.
Do While Not EOF(intFile)
' Read current line in file into buffer.
Line Input #intFile, strBuffer
varValues = Split(strBuffer, "#")
' At this point, varValues(0) will contain the phone_id,
' varValues(1) will contain the name and so on.
' Do something with it, and then see whether there's
' anymore data to read.
Loop
Close #intFile
End If


HTH