reading text file

Quote:

---

Originally Posted by Shuja Ali

This is very much possible. You will have to open connection to the database and use the specific fields from the File (once you get the data from the file) to search in the database using a query.
Some thing similar to this will help

Code:

---

    Dim iFile As Integer, strLine As String
    Dim sVar As String  ' a variant
    iFile = FreeFile
    Open strFilename For Input Access Read Lock Read Write As #iFile
    ' Loop through each line, looking for the key
    Do Until EOF(iFile)
        Line Input #iFile, strLine
        'To get the specific fields you can either use MID function, or the split.
        'say if i have to get the data from 10th position of the line till 15th position, i will do like this
        sVar = Mid(strLine, 10, 5)
        'use svar to search for the data in the database
        rs.Open "Select  from SOMETABLE Where FIELD = '" & sVar & "'", databaseConnection
        If Not rs.EOF Then
            'data is present show it in the datagrid
        End If
    Loop

---

try to read through the code and see what exactly is happening. This will give you an idea atleast of wha needds to be done.

---

same problem as above but using the fixed length method. how do i capture data from a few places, lets say

4140483656 232 12/10/2005 2005102 SGD 70.00

say i got a few rows in this manner and i need to capture 4140483656 and 12/10/2005 how is it possible to do so?

Quote:

---

Originally Posted by Toracle

hey people i got a question again .. lets say i use the codes above ... my data would become like this rite?

from 4140483656|2|4140483656|232|12/10/2005|2005102|SGD|Credit|70.00|

to

4140483656
2
4140483656
232
12/10/2005
2005102
SGD
Credit
70.00

how can i code so that i capture only the first row which is 4140483656 and the fifth row 12/10/2005 only. is it possible?

---

You use the index of the array to get the respective elements. As sData is an array, you can get any element as long as you know the position of the element in the file. Here is a sample

Code:

---

        Dim iFile As Integer, sData() As String, strLine As String
        Dim sVar  ' a variant
        iFile = FreeFile
        Open strFilename For Input Access Read Lock Read Write As #iFile
        ' Loop through each line, looking for the key
        Do Until EOF(iFile)
                Line Input #iFile, strLine
                sData = Split(strLine, "|") 'here you get all the data of one line in an array
                Debug.Print sData(0) 'first element of the array          ' this will print 4140483656
                Debug.Print sData(2) 'third element of the array          ' this will print 4140483656
                Debug.Print sData(4) 'fifth element of the array          ' this will print 12/10/2005
        Loop

---