Intellipro - Automating QTP Test Automation - Downloads - String - Count

String Function - Count

This function counts the number of occurences of a search-string in a target-string.

Download it Here (right-click and then save target as).

(NOTE - you can just cut & paste from below, but the formatting will have multiple spaces instead of tabs).

'=========================================================================

Function zStr_Count(sInput, sSrch)

    Dim iCount, sTemp

    iCount = 0
    sTemp = sInput

    While inStr(sTemp,sSrch) > 0

        iCount = iCount + 1

        sTemp = Replace(sTemp, sSrch, "", 1, 1)

    Wend

    zStr_Count = iCount

End Function

'=========================================================================

Your Ad Here

advanced advice agile answers application articles aut automated automating automation basics beginners browser button checkbox child childobjects click close code coding combo combobox consultant consultancy convention count createobject database delete descriptive download downloads dp edit editbox element enhancements error examples faq faqs file files filesystemobject fixes folder folders forum framework frameworks function functions generation generator getobject getroproperty gotchas group guide guru harness hewlett hp inputbox insert intellipro interview language library libraries link list listbox manifesto manual master name naming navigate object or packard page ping pro problem procedure procedures professional programming qtp query queries question questions quick quicktest radio refresh repository ross row rows samples script scripts scrum select server software specific sprint sql step stored strategy structure sub subroutine suite sync tables test testing text textbox title tool tools tsl tutorial update updates url vbscript web webedit webpage webradiogroup weblist whittaker wscript