albazeroex

what is a way to code in vb6 a find and replace option like that in microsoft word?

i know how to code the normal find command but i still cant figure out how to find a word and show how many times a word has appeared in a line of text

help needed

thank you

zen_tom

I'm not sure what the one in microsoft word is like, but the vb one is

replace (<stringexpression>,<findexpression>,<replaceexpression>,start,count,vbCompareType) as String

Here are some examples showing variations in the count value. I'm replacing i's for x's, always starting at position 1, and replacing 1,2,3 and then finally all (-1) instances of i's with x's:

? replace("a string with characters in it, various text etc.","i","x",1,1,vbTextCompare)
a strxng with characters in it, various text etc.

? replace("a string with characters in it, various text etc.","i","x",1,2,vbTextCompare)
a strxng wxth characters in it, various text etc.

? replace("a string with characters in it, various text etc.","i","x",1,3,vbTextCompare)
a strxng wxth characters xn it, various text etc.

? replace("a string with characters in it, various text etc.","i","x",1,-1,vbTextCompare)
a strxng wxth characters xn xt, varxous text etc.

If you want to count how many times a word appears in a line of text you can either do a regular find, contained in a loop. Or you could tokenise the line into an array of words, load them into a collection and then count how many matched each collection key.

What exactly do you want to do?

albazeroex

woah thanks;; all i realli need is how to find a word and show how many times that word/phrase appears in a set of text

thanks tho for the replace examples

Dilbert1234567

i have a weird way to do it.




Dim intext As String
Dim searchtext As String
Dim replacetext As String
Dim outtext As String
Dim numberfound As Integer
Dim buff() As String
Dim i As Integer
intext = "testl testltesttestltest"
searchtext = "l"
replacetext = "q"
buff() = Split(intext, searchtext, , vbBinaryCompare)
Do Until i = UBound(buff)
outtext = outtext & buff(i) & replacetext
i = i + 1
Loop

__________________
Donate Blood!

"Love is not finding the perfect person, but learning to see an imperfect person perfectly." -Sam Keen

albazeroex

its weird;; but it works ^_^ ... now i just need to figure out how to count the searched word ~_~

albazeroex

would u use this to count the number of times the searched word appeared? or could i mix it with the count function? im so confused

Dilbert1234567

oh yeah that part


numberfound=ubound(buff)



ubound gives the upper bound of an array, since it splits the string into an array everywhere the search string occurs and it, it will break it into one more peices then the time it occurs, since it starts with zero, the ubound of the array is the total times it is found.

__________________
Donate Blood!

"Love is not finding the perfect person, but learning to see an imperfect person perfectly." -Sam Keen

kebo

a way to count occurences of one string inside of another:

Dim S As String
Dim position As Long
Dim SearchString As String
Dim count As Long

S = " This is a great sentence. It is not very long, but is also quite lame. It is however unimportant and is not very exciting"
SearchString = "is"

count = 0
position = InStr(S, SearchString)
Do Until position = 0
count = count + 1
position = InStr(position + 1, S, SearchString)
Loop
debug.print count
End Sub

its not fully tested but seems to work
kevin

albazeroex

i either got stuck in an endless loop or an overflow occured T_T

albazeroex

everytime i try to print count it gives me "0"

Dilbert1234567

use my code, it works to count the occurances

__________________
Donate Blood!

"Love is not finding the perfect person, but learning to see an imperfect person perfectly." -Sam Keen