Stupid string problem I CANNOT figure out!

Here's my program so far.

Code:

---

Private Sub cmdGet_Data_Click()
    Dim Inet_Data As String
    Dim Digit As String
    Dim str As String
   
    Dim Index As Integer
    Dim x As Integer
    Dim y As Integer
    Dim Length As Integer
   
    Inet_Data = Inet1.OpenURL("http://finance.yahoo.com/q/ae?s=" & tbTicker.Text)
   
    'Find the price
    x = InStr(Inet_Data, "Script")
     
    tbOutput.Text = Mid(Inet_Data, x, 6)
   
End Sub

---

I'm just trying to pull data off yahoo's stock pages. I know Inet_Data has data, and I know it contains "Script". If the line

Code:

---

x = InStr(Inet_Data, "Script")

---

is run as is, it doesn't return anything to the x variable. if I change it so it's not case sensitive, ie.

Code:

---

x = InStr(Inet_Data, "Script",1)

---

I get a "type mismatch" error. If I try to put in a starting position, ie.

Code:

---

x = InStr(0,Inet_Data, "Script")

---

I get an "invalid procedure call or argument" error. So basically, instr doesn't work for me at all.

Please help!

There's nothing wrong with the way you're using InStr, except that if you specify a starting position it must be greater than zero.

If Inet_Data does contain 'script', then this line:
tbOutput.Text = Mid(Inet_Data, x, 6)
will only return the word 'script'.

ie. If Inet_Data = "abcdefghijkScriptlmnopqrst", then
InStr(Inet_Data, "Script") will equal 12, therefore
Mid$(Inet_Data, 12, 6) will equal 'Script"

Are you 100% sure there is data in Inet_Data and that it contains the text 'Script'? I can't really see anything wrong other than what I've mentioned.

Hi,

Just a thought.

In

'Find the price
x = InStr(Inet_Data, "Script")

tbOutput.Text = Mid(Inet_Data, x, 6)

What are you trying to do? Unless this is an error tracing section to enable you to find out what is in the string at x (which won't work if the letters "Script" are not there) tbOutput.Text can never be anything else than "Script" or nothing.

It looks as if you are expecting "Script" to be a price!!!!

Is it possible that you mean the price is recorded in Script notation? (If that is the correct word).

Yeah, it was going to be price info eventually, but then I was running into problems, so I simplified it for now to figure things out.

I seem to have the code working for now, I reverted to an older save of the program, and took note of pnish's note that starting position must be greater than zero. Suddenly it worked with no other changes. Weird. Must have been some weird windows bug.

Thanks for the help though

Quote:

---

Originally posted by Kingstudly
Yeah, it was going to be price info eventually, but then I was running into problems, so I simplified it for now to figure things out.

I seem to have the code working for now, I reverted to an older save of the program, and took note of pnish's note that starting position must be greater than zero. Suddenly it worked with no other changes. Weird. Must have been some weird windows bug.

Thanks for the help though

---

Don't blame it on Windows. It was clearly your own fault :) .

But blaming it on windows makes everything so much easier!

Yeah, I love it when I exit visual basic and the code doesn't work, then when I start it again later it does work...