Solved

Parsing Exact Matches In A Text File.

Posted on 2000-02-20
11
158 Views
Last Modified: 2010-05-02
How do you find exact matches in string using VB6?

Example: "This is the best site in the internet"

I need to find the word "in" so it should only match in position 24. As you can see we have another position also in the word "internet". Using Instr we return two matches not one.

Thanks
0
Comment
Question by:yababy
  • 3
  • 2
  • 2
  • +3
11 Comments
 
LVL 6

Expert Comment

by:DrDelphi
ID: 2541255
Well, the easiest way if you are looking to get a full word match and not a substring would be to pad yourd search with a leading a trailing space:


For example:

ret = InStr("This is the best site in the internet", " in ")

Good luck!!


0
 

Author Comment

by:yababy
ID: 2541258
Yes this would work by what if the word is at the beginning or end of a string. Does VB have any other string functions?

0
 
LVL 1

Expert Comment

by:okcman
ID: 2541269
Private Sub Command1_Click()
Dim X As String
Dim Y As Integer

X = "This is the intro day we are in into town"
Y = InStr(X, "in ")
Text1.Text = Y
End Sub


In this case "in" is not just "in"
but has a space before it and a space after it so rather just to search for  in by itself we search for "in "
which will return the correct position
0
 
LVL 9

Expert Comment

by:Ruchi
ID: 2541271
You can do what Dr. Delphi says.

Another method:

ret = InStr(1, "This is the best site in the internet", "in")

In this example, 1 indicates that the search for "in" is to begin at position 1 of "This is the best site in the internet".
0
 
LVL 1

Expert Comment

by:DragonWolf
ID: 2541272
Use,

ret = InStr(" " & "This is the best site in the internet" & " ", " in ")

This will look for it at the begining and end as well as in the middle...

0
What Security Threats Are You Missing?

Enhance your security with threat intelligence from the web. Get trending threat insights on hackers, exploits, and suspicious IP addresses delivered to your inbox with our free Cyber Daily.

 
LVL 1

Expert Comment

by:DragonWolf
ID: 2541275
Use,

ret = InStr(" " & "This is the best site in the internet" & " ", " in ")

This will look for it at the begining and end as well as in the middle...

0
 
LVL 6

Expert Comment

by:DrDelphi
ID: 2541307
or:

Mystr = "dog My  has Fleas"
ret = InStr(Mystr, "dog")
If ret = 1 Then
  MsgBox ("begining of string")
Else

If ret = (Len(Mystr) - 2) Then
  MsgBox ("Last word")
Else
If ((ret > 0) And ret < Len(Mystr)) Then
  MsgBox ("somewhere in the middle")
End If
End If
End If
0
 
LVL 10

Accepted Solution

by:
caraf_g earned 50 total points
ID: 2541623
Use the following routine:

Private Sub FindExactMatch(ByVal strToFind As String, ByVal strToSearch As String, intPos As Integer)

Dim strTest As String
Dim blnValid As Boolean

intPos = InStr(intPos + 1, strToSearch, strToFind)

Do While intPos <> 0
    blnValid = True
    If intPos <> 1 Then
        strTest = Mid(strToSearch, intPos - 1, 1)
        If strTest >= "a" And strTest <= "z" Then
            blnValid = False
        End If
        If strTest >= "A" And strTest <= "Z" Then
            blnValid = False
        End If
    End If
    If intPos <> Len(strToSearch) Then
        strTest = Mid(strToSearch, intPos + Len(strToFind), 1)
        If strTest >= "a" And strTest <= "z" Then
            blnValid = False
        End If
        If strTest >= "A" And strTest <= "Z" Then
            blnValid = False
        End If
    End If
    If blnValid Then
        Exit Sub
    End If
    intPos = InStr(intPos + 1, strToSearch, strToFind)
Loop

End Sub


Let's say you're searching the following string

"The internet is in use by all the countries it is implemented in."

for the string

"in"

It will find "in" in "is in use", and "in" in "implemented in."

But it won't find internet, as the "in" in internet is followed by an alphabetic character.

A possible use:

Dim intPos As Integer

FindExactMatch Text1.Text, Text2.Text, intPos
Do While intPos <> 0
    MsgBox intPos
    FindExactMatch Text1.Text, Text2.Text, intPos
Loop
0
 
LVL 10

Expert Comment

by:caraf_g
ID: 2541624
Dragonwolf - I purposely used a sentence that ended in "in." to illustrate why your method won't work.
0
 
LVL 10

Expert Comment

by:caraf_g
ID: 2541627
PS - if your language can contain accented characters, include them in the if statements. That extension of my code is trivial, so I've left that out for you to do.
0
 

Author Comment

by:yababy
ID: 2545184
Thanks, but I will be using a new object called RegExp (VBScript Regular Expressions) which works great for finding exact matches.

0

Featured Post

Threat Intelligence Starter Resources

Integrating threat intelligence can be challenging, and not all companies are ready. These resources can help you build awareness and prepare for defense.

Join & Write a Comment

There are many ways to remove duplicate entries in an SQL or Access database. Most make you temporarily insert an ID field, make a temp table and copy data back and forth, and/or are slow. Here is an easy way in VB6 using ADO to remove duplicate row…
I was working on a PowerPoint add-in the other day and a client asked me "can you implement a feature which processes a chart when it's pasted into a slide from another deck?". It got me wondering how to hook into built-in ribbon events in Office.
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…

747 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

9 Experts available now in Live!

Get 1:1 Help Now