We help IT Professionals succeed at work.

Check out our new AWS podcast with Certified Expert, Phil Phillips! Listen to "How to Execute a Seamless AWS Migration" on EE or on your favorite podcast platform. Listen Now

x

VB question

gima
gima asked
on
Medium Priority
202 Views
Last Modified: 2010-05-03
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.
Comment
Watch Question

Author

Commented:
Edited text of question

Commented:
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.

Author

Commented:
I need to try not to use MID function. How can I find specific character in the text file?

Commented:
"instr" might be the function you want.

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

Commented:
Unlock this solution and get a sample of our free trial.
(No credit card required)
UNLOCK SOLUTION

Commented:
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.
Unlock the solution to this question.
Thanks for using Experts Exchange.

Please provide your email to receive a sample view!

*This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

OR

Please enter a first name

Please enter a last name

8+ characters (letters, numbers, and a symbol)

By clicking, you agree to the Terms of Use and Privacy Policy.