reading text files

[John Smith]

Hi All,

Haven't been around here in a long time, need some help, I need to read a
text file into an access table, character by character using code. Anyone
any suggestions?

Help gratefuly accepted

Mark

 

[Jason Lepack]

A little bit of Googling yielded this article on I/O in VBA

http://www.xtremevbtalk.com/showthread.php?t=123814

Cheers,
Jason Lepack

 

[John Smith]

Thanks Jason, the link is more relevant to VB than Access, maybe I should
explain further

My problem is I
need to be able to open a file on a pc/s on the network, read the data
character by character, check to see if a certain character is present, if
it is, update the database and continue reading the file until it comes
across the character again, updates the database and so on . . . .

Anybody got any suggestions, all help gratefuly received!!

 

[Jason Lepack]

I strongly disagree. I used this code in Access and it works just fine
and dandy.

Private Sub cmdInput_Click()
Const MY_FILE = "z:\temp\test.txt"
Dim strIn As String, i As Integer

Open MY_FILE For Input As #1
Do While Not EOF(1)
Input #1, strIn
For i = 1 To Len(strIn)
' do your checks on the character here
Debug.Print Mid(strIn, i, 1)
Next i
Loop
Close #1
End Sub

 

[John Smith]

I am a muppet! Thanks for your help Jason

I strongly disagree. I used this code in Access and it works just fine
and dandy.

Private Sub cmdInput_Click()
Const MY_FILE = "z:\temp\test.txt"
Dim strIn As String, i As Integer

Open MY_FILE For Input As #1
Do While Not EOF(1)
Input #1, strIn
For i = 1 To Len(strIn)
' do your checks on the character here
Debug.Print Mid(strIn, i, 1)
Next i
Loop
Close #1
End Sub

 

[Jason Lepack]

You're very welcome!

I am a muppet! Thanks for your help Jason