instr() error question *resolved*

[The Dutch Dude]

The line

textlocation = InStr(start, text, test, vbTextCompare)

produces an error, but I can't figure out why... This is part of a larger sub, but I don't want to bore you guys with that
Does anyone know why this is giving an error ??

'declarations'
Dim dbase As Database
Dim recset As Recordset
Dim length As Integer
Dim str As String
Dim htmltag As String
Dim str2 As String
Dim result As String
Dim textlocation As Long
Dim start As Integer
Dim endlocation As Long
 
 
Set dbase = OpenDatabase(dblocation)
 
start = 0
Do
    'look for the space and replace with &nbsp tag'
    test = Chr(32)
    textlocation = InStr(start, text, test, vbTextCompare)
    start = textlocation
    'exit the do in case of nothing found. The 0 value would cause errors in the subsequent lines'
    If textlocation = 0 Then
        Exit Do
    End If
    'read the part before the space, the -1 ensures the space itself is not read'
    str = Mid(text, 1, (textlocation - 1))
    'read the part after the space, the +1 ensures the space itself is not read'
    str2 = Mid(text, (textlocation + 1))
    'insert the space tag in between'
    text = str & " &nbsp " & str2
Loop Until textlocation = 0

[Michael_Kamen]

I think because start = 0.
I don't think you can start at position 0. It has to be position 1.

Denk ik.

[otherones]

If you are [start]ing at 0, you don't need to put anything in that argument so try:




textlocation = InStr(text, test, vbTextCompare)

[The Dutch Dude]

damn! that fixed it..
and the stupid thing is that in the mid() statements I DID use 1 as a start! Thanx allot!!

[The Dutch Dude]

If you specify the compare you must also specify the start (or so my MSDN library says...
And specifying it makes it easier to read, but that could just be me..

[Buzby]

Just a thought - why aren't you using the Replace function - it seems that you are finding spaces, and replacing them with something.

In that case you can do

Replace(ThisText," ","XX")

which would replace all the spaces in This Text with XX

[The Dutch Dude]

because I kind of didn't know it exsisted...
Sounds like a very handy thing.
This replaces even more lines of code. Finding out instr() exsisted already trimmed the line count considerably

That's what I love about programming: finding out that something exsists that makes you look like a complete gimp, but it is alse something you can't live without the moment you hear about it..

[The Dutch Dude]

because I kind of didn't know it exsisted...
Sounds like a very handy thing.
This replaces even more lines of code. Finding out instr() exsisted already trimmed the line count considerably

That's what I love about programming: finding out that something exsists that makes you look like a complete gimp, but it is alse something you can't live without the moment you hear about it..

[kirankumar]

You start your search from the first character, i.e

start=1