Link to home
Start Free TrialLog in
Avatar of gima
gima

asked on

VB question

I need to transfer data from text file to Data base(Access)
My data stored in following format in text file.
18:00-19:00       0     0  0:00     0  0:00  0:00     0     0     0   The program uses Mid function to put data into the variable and then transfer into the database. For example,
xDatetime=Mid(Textline,1,2) and then !Datetime=xDtaetime
Does anybody know, how can I do it differently?
            Thank you.
Avatar of gima
gima

ASKER

Edited text of question
yes,

Dim Time1 as date
Dim Time2 as date
if isdate(mid(textline,1,5)) then
    time1 = cdate(mid(textline,1,5))
end if
if isdate(mid(textline,7,5)) then
    time2 = cdate(mid(textline,7,5))
end if
 
the function isdate(date string) returns a boolean if the date can be converted to a valid date using the cdate function. CDate(date string) return the date value of the specified string.

Avatar of gima

ASKER

I need to try not to use MID function. How can I find specific character in the text file?
"instr" might be the function you want.
Why not mid?
HI,

You need to use the instr function.  The sample of data you gave above shows that there are spaces between each data item - is this the case or are they delimited with tabstops??  If they are delimited with tabs then you can find the location of each tab by using instr, if not then it's going to be much more difficult to extract each data item.

Pete

ASKER CERTIFIED SOLUTION
Avatar of swilt
swilt

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
Just a comment on swilt's sGetNextEntry function. Note that it alters the value of the string passed to it. This is not important unless you need to keep the original string. If so, pass in a copy and everything will be fine.