CODEWITHSUNDEEP
asp.netvb.netstring
asf
asf

Reputation: 43

VB.NET: How to load the following values from a string into a collection

i have a string = "/a/value1/x/valueforx/b/value2/c/value3"

the keys a, b, and c can be in any order in the string that is coming in and will always be separated by a slash.

What i need to do is to find a, b, c and then add their values to a collection

Upvotes: 2

Views: 651

Answers (5)

theChrisKent
theChrisKent

Reputation: 15099

Add this to the top of your code:

Imports System.Text.RegularExpressions

Then use this:

Dim mc As MatchCollection = Regex.Matches("/a/value1/x/valueforx/b/value2/c/value3", "(?<=/[abc]/)[a-zA-Z0-9]*")

To put these matches into a string collection as requested you can just add this after the above code:

Dim sc As New Collections.Specialized.StringCollection
For Each m As Match In mc
  sc.Add(m.Value)
Next

Using your input this produces matches with values of

  • value1
  • value2
  • value3

Upvotes: 0

houssam11350
houssam11350

Reputation: 216

string s = "/a/value1/b/value2/c/value3";
List<KeyValuePair<string, string>> kvList = new List<KeyValuePair<string, string>>();
string[] strList = s.Split(new char[]{'/'} ,  StringSplitOptions.RemoveEmptyEntries);
for (int i = 0; i <= strList.Length - 2 ; i += 2)
  {
    KeyValuePair<string, string> keyValue = 
         new KeyValuePair<string, string>   (strList[i] , strList[i + 1]);
    kvList.Add(keyValue);


   }

it is C#..

Upvotes: 0

Uwe Keim
Uwe Keim

Reputation: 40736

Use the string.Split function.

Then iterate through the results and pick up each that you want to retrieve.

E.g. something like (C#):

var splitted = "/a/value1/x/valueforx/b/value2/c/value3".Split('/');

for ( var index = 0; index<splitted.Length; ++index )
{
    if ( s=="a" )
    {
        var valueOfA = s[index+1];
        // Process valueOfA.
    }

    // Same for "b" and "c".
}

The same in VB.NET:

Dim splitted = "/a/value1/x/valueforx/b/value2/c/value3".Split("/"C)

For index As Integer = 0 To splitted.Length - 1
    If s = "a" Then
        ' Process valueOfA.
        Dim valueOfA = s(index + 1)

        ' Same for "b" and "c".
    End If
Next

I omitted error checking here (i.e. array bounds checks)

Upvotes: 2

Brad
Brad

Reputation: 163292

Like Uwe Keim said, use String.Split. What I would do is make a quick function that returns a dictionary.

This code is untested, but should get you started...

Public Function GetConfigFromMagicString(ByVal sSource as string) as Dictionary(of String, string)
    Dim ConfigDict as Dictionary (of String, String)
    Dim Pieces as string() = sSource.split("/")
    For x as Integer = 0 to Pieces.Length-1 Step 2
        ConfigDict.add(pieces(x), pieces(x+1)
    Next x
    return ConfigDict
End Function

From there, you just retrieve it like this...

Dim myConfig as Dictionary (of string, string) = getConfigFromMagicString("a/value1/x/valueforx/b/value2/c/value3")
msgbox(myConfig.Item("a"))

Upvotes: 0

Joel Etherton
Joel Etherton

Reputation: 37533

This should cover the basics of the algorithm. It'll need a little cleaning to make sure that there aren't any unexpected conditions that may throw exceptions.

Dim myDict as Dictionary(Of String, String) = New Dictionary(Of String, String)()
Dim myStr as String = "/a/value1/b/value2/c/value3"

Dim temp() As String = myStr.Split("/"c)

For i As Integer = 0 to temp.Length Step 2
    'Assumes that it will always be an array length divisible by
    '2. If this is not the case, logic is necessary to prevent
    'for loop from bombing at the end of the sequence

    'EDIT: for clarification
    Select Case temp(i)
        Case "a", "b", "c"
            myDict(temp(i)) = temp(i + 1)

        DefaultCase
            Continue
    End Select
Next

Upvotes: 0

Related Questions