Solved

vb.net function

Posted on 2016-08-22
7
58 Views
Last Modified: 2016-08-22
I would like to create a function that can compare two strings but not a normal compare:

Str1 "one two three"
Str2 "two one three"


it would check that the words in the string are identical (not case sensitive) but just in the wrong order. in the example here the output could be true

It needs to be efficient, maybe regex can do this or maybe vb.net has something a method for this.

I am in visual studio app
0
Comment
Question by:PeterBaileyUk
7 Comments
 
LVL 143

Expert Comment

by:Guy Hengel [angelIII / a3]
ID: 41764902
would this google project be what you are looking for?
https://code.google.com/p/google-diff-match-patch/
0
 
LVL 12

Expert Comment

by:Ramkisan Jagtap
ID: 41764903
Better way could be create a string array and the compare the different values.
0
 

Author Comment

by:PeterBaileyUk
ID: 41764909
i dont want too resolve close matches which may happen with fuzzy stuff. only where the words are all the same but in a different order
0
Free Tool: IP Lookup

Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

 

Author Comment

by:PeterBaileyUk
ID: 41764921
I found this on a thread but not sure if this will work as text and the logic is the wrong intersect

Function RevIntersect(arr1() As String, arr2() As String) As String()
    Dim sResult, aux As New List(Of String)()

    aux.AddRange(arr1)
    aux.AddRange(arr2)

    For Each elem As String In aux
        If (Not arr1.Contains(elem) OrElse Not Arr2.Contains(elem)) AndAlso _
        Not sResult.Contains(elem) Then  
            sResult.Add(elem)
        End If
    Next

    Return sResult.ToArray()
End Function

Open in new window

0
 
LVL 4

Expert Comment

by:Elizabeth Anderson
ID: 41765092
The .NET Framework provides several methods to compare the values of strings. So, it would be better to refer the link below -
https://msdn.microsoft.com/en-us/library/fbh501kz(v=vs.110).aspx
0
 
LVL 63

Accepted Solution

by:
Fernando Soto earned 500 total points
ID: 41765250
Hi Peter;

The following code snippet should do what you are looking for.
Dim str1 = "One tWo thRee".ToLower().Split(" "c)
Dim str2 = "twO oNe tHree".ToLower().Split(" "c)

If str1.All(Function(w1) str2.Contains(w1)) AndAlso str1.Length = str2.Length Then
    Console.WriteLine("All words win w1 are in w2")
Else
    Console.WriteLine("All words win w1 are NOT in w2")
End If

Open in new window

0
 

Author Closing Comment

by:PeterBaileyUk
ID: 41765579
I am going to play around with this. one thing i used to do in access was use the immediate window and push values into a module function. Does VS offer up a similar thing.? Oh and thank you, ive been slow to respond today.
0

Featured Post

Announcing the Most Valuable Experts of 2016

MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

I think the Typed DataTable and Typed DataSet are very good options when working with data, but I don't like auto-generated code. First, I create an Abstract Class for my DataTables Common Code.  This class Inherits from DataTable. Also, it can …
If you're writing a .NET application to connect to an Access .mdb database and use pre-existing queries that require parameters, you've come to the right place! Let's say the pre-existing query(qryCust) in Access takes a Date as a parameter and l…
In an interesting question (https://www.experts-exchange.com/questions/29008360/) here at Experts Exchange, a member asked how to split a single image into multiple images. The primary usage for this is to place many photographs on a flatbed scanner…

856 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