Need help on this function

[faqtest2009]

I have been using following function to find a value between two words. It returns correct value when I have no duplicate words but in the opposite case this function returns me incorrect value.

Code:

Function ParseScreenVal(varString,varCurr,varNext)
i = varString
i = CStr(i)
varCount = instr( 1,i,varCurr,vbTextCompare)
varCount2 = instr( 1,i,varNext,vbTextCompare)
ParseScreenVal = Mid(i, varCount + len(varCurr),varCount2-varCount - len(varCurr))

End Function

Please see the attachment for more details. Any help would be really appreciated

Thanks in advance

[venkatbatchu]

Hi,
Really i have spent more than 2 hours and finally i have get the conclusion
use this function

Code:

Function fbtwds(p,p1,p2)
l=len(p)
l1=len(p1)
l2=len(p2)
if1=instr(1,p,p1)
m=right(p,l-(if1+l1-1))
m=trim(m)
ml=len(m)
if2=instr(1,m,p2)
m=left(m,if2-1)
msgbox m
End Function
call fbtwds("abdul kalam is scinetist and former president","kala","and")

incase if u have duplicates in a variable "p" then proceed the same operation until u get the correct one....

Please let me know if i am going in wrong direction..

[faqtest2009]

Hi Venkat,
Thanks for your time on this. I tried your function but still returns me an incorrect value. Please see the attachment with updated info on this issue. Please let me know if you have any other ideas to get the correct value.
Once again thanks for your help.

[Saket]

hi faqtest2009,
I have modified your code, check out if this works

Code:

Function ParseScreenVal(varString,varCurr,varNext)
i = varString
i = CStr(i)
varCount = instr( 1,i,varCurr,vbTextCompare)
varCount2 = instr( 1,i,varNext,vbTextCompare)
'ParseScreenVal = Mid(i, varCount + len(varCurr),varCount2-varCount - len(varCurr))
sResult = Mid(i, varCount + len(varCurr),varCount2-varCount - len(varCurr))
Do
    varCount = instr( 1,sResult,varCurr,vbTextCompare)
    If varCount > 0Then
        sResult  = Mid(sResult, varCount + len(varCurr),len(sResult))
    End If
Loop while  varCount > 0
ParseScreenVal = sResult
End Function

I have verified with the data in your attachment.
let me know if you find any issue with other data.

@Everyone - Please use proper tags to wrap your code and make your post readable.

[faqtest2009]

Thank you very much, it works for me with the given text.