sounds like you have no control over the exact syntax of the input.....
this is common when dealing with web pages....
you need to be able to enumerate each format that you may see
So Far, you have listed the following "markers"
VALUE: followed by $x,xxx.xx...
Your ideas are ok
Read a line (assume this contains a record)
Parse the line into individual fields
Stuff the fields into a recordset record
update the database....
It sounds like you are having a problem with step 2?
what is the format for the text file?
Do you have the basic program, sans these dynamic formatting and entry vetting features?
The pretty feastures you want actually slow down the entry of information. They were necessary features way back in the dark ages of block mode terminals that would not interact with any intelligence until...
if you want to write very little code, use the WebBrowser control to create small window, load the item (gif, ...) into the browser with the .Navigate method....
Under Project>References...look for Microsoft WebBrowser and have it put on your toolbar.
If you have more than one, you need to be able to identify it.
once you identify it, you can delete it.
there are 2 types of text boxes
1) those you create from the INSERT>TEXTBOX menu item
2) those you create from the VIEW>TOOLBOX>CONTROLS menu.
The INSERT type are in the SHAPES...
good question....building on it:
if the desire is to launch Explorer with a specific
directory open, then merely make a folder
c:\shortcuts and place in it shortcuts to all such directories.
Even if you decided to code it, there are simpler and higher performance ways than using recursion.
Function sReplace(sSource As String, _
sFind As String, _
sWith As String, _
Optional ByVal vbTypeCompare) As String
Dim lngPos As Long...
You didn't state it, but is this code to run in VBA under Word?
How did you test case 1 to determine that it works? please indicate the tests you ran that proved it works. I believe either the tests or the testing process need some work.
launch it from a VB program (as long as your here in the VB conf)
vHandle=Shell("Explorer.Exe")
DoEvents 'let it start
The do SENDKEYS
do send keys that will place the cursor over a specific control.
Here is how I would encorporate both thoughts
I have not tried this..but I know all the parameters are
available...its just a matter of getting the syntax right
Dim lngRow as long, lngH as long
lngH = 0
Redim sngHeight(selection.Row to activesheet.usedRange.Row)
For lngRow = selection.Row...
By "need to extract" a word.... what do you mean?
Is it a particular word in a specific location or do you have to figure out if a word has changed and which one it is ?
Perhaps a statement of purpose at the business-problem level rather than what the program has to do would make it...
You don't need that much precision, so try the
caveman approach
Do until canceled
figure_out_next_time_to_wake_up
Do until time_to_wake_up
Sleep(30000) 'sleep 30 seconds
time_to_wake_up =( _
Now() =...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.