1

If you didn't really get it what I actually want let me explain you better:

I have a: 

stringRaw = "<img src=\"http://www.b92.net/news/pics/2015/01/15/111348233854b817af5b4bc991063053_v4 big.jpg\" title=\"\" alt=\"\" />"

Now I have to do some kind of substring from string1 = "<img src=\"" to string2 = "\" title=\"\" alt=\"\" />" and have to take what is in the middle of that which will be stringFinal = "http://www.b92.net/news/pics/2015/01/15/111348233854b817af5b4bc991063053_v4 big.jpg" in this case.

I can't use substring method since I never know how many characters can be in string1 and string2 also, seems like split method do not work as it should from THIS question on StackOverFlow.

edit For some reason my stringRaw has this value: vbCrLf & vbTab & vbTab & vbTab & "<img src=""http://www.b92.net/news/pics/2015/02/05/203819435354d39f17d74f0173575440_v4 big.jpg"" title="""" alt="""" />" & vbTab & vbTab
Anyway, I do what others advised and still I get an error that Index is out of range

Thank you for the answers in advance.

Community
  • 1
  • 1
Hoh
  • 1,196
  • 1
  • 12
  • 30

5 Answers5

1

I believe this code should grab the 'stringFinal' you desire.

// Get the index of 'src="'
Int32 startIndex = stringRaw.IndexOf("src=\"");

// Get the substring starting at 'src="' and ending at the first '"' after 'src="'.
stringRaw.Substring(startIndex, stringRaw.IndexOf("\"", startIndex) - startIndex);

Oh, sorry just noticed the VB tag. This is C# so the sytnax might be slightly different, but the functions and parameters should still be the same.

I forgot the - startIndex I was thinking that SubString second parameter was an index instead of count. Try adding that adjustment.

Shelby115
  • 2,816
  • 3
  • 36
  • 52
  • For some reason I am getting an error "Index was out of range" – Hoh Jun 12 '15 at 17:15
  • Got too used to JavaScript. Add `- startIndex` to the second parameter, that should fix it. I was thinking SubString's second parameter was stopping index instead of length after first index. It would also be good to check `if (startIndex >= 0) { }` since it'll return -1 if "src=\"" isn't found. – Shelby115 Jun 12 '15 at 18:13
1

I was having issues going after the same characters so I went after text within the string such as "http" and "title=". Here it is in VB:

    Dim startIndex As Int32 = stringRaw.IndexOf("http")
    Dim endIndex As Int32 = stringRaw.IndexOf("title=") - 2
    Return stringRaw.Substring(startIndex, endIndex - startIndex)

I used "http" and didn't include "://" just in case you need to get an "https" at some point. I used "title=" instead of "title" in case the word title ever showed up in the link.

Tony L.
  • 17,638
  • 8
  • 69
  • 66
  • Probably has to do with the fact you can escape double quotes by putting two of them in VB. Like so, `""String in quotes""` – Shelby115 Jun 12 '15 at 18:28
  • @Shelby115, that's what I did in my own example. However, if Hoh is actually using vb, then he must have set it somehow but the first line of code in the question doesn't compile for me unless I use "" like you said. Thus, I went after the other characters because that should work either way. – Tony L. Jun 12 '15 at 18:30
  • Yeah, that's why I didn't notice the VB tag right away. Figure worst case scenario, a C# user might run across this question and find my answer helpful. – Shelby115 Jun 12 '15 at 18:32
  • 1
    This one is actually working like a charm. I've tried all other solutions, but only this one worked at first try. Thank you a lot @TonyL. – Hoh Jun 13 '15 at 08:35
1

You could also use a regular expression. Something like:

Dim stringRaw as String = vbCrLf & vbTab & vbTab & vbTab & "<img src=""http://www.b92.net/news/pics/2015/02/05/203819435354d39f17d74f0173575440_v4 big.jpg"" title="""" alt="""" />" & vbTab & vbTab
Dim regx as New Regex("src=\""(.*)\""\s+title")
Dim match as Match = regx.Match(stringRaw)

If match.Success
    ' Outputs http://www.b92.net/news/pics/2015/02/05/203819435354d39f17d74f0173575440_v4 big.jpg
    Console.WriteLine(match.Groups(1).Value)
End If
Garett
  • 16,632
  • 5
  • 55
  • 63
  • Hahah that's funny very close to my comment about using `Regex` mine uses a look-behind & look-ahead :) – Trevor Jun 12 '15 at 18:42
  • Oddly enough when I check your solution in Regex101.com it doesn't match? – Trevor Jun 12 '15 at 18:43
  • I tested this with LinqPad and it worked. It probably needs to be adjusted to work on Regex101, because of VB.NET syntax. – Garett Jun 12 '15 at 18:46
1
Public Function ExtractSrcAttribute(ByVal element As String) As String
    Dim startToken As String = "src="""
    Dim endToken As String = """"

    Dim startIndex As Integer = element.IndexOf(startToken) + startToken.Length
    Dim endIndex As Integer = element.IndexOf(endToken, startIndex)

    If startIndex > element.Length OrElse endIndex > element.Length OrElse endIndex < startIndex Then
        'error
    End If

    Return element.SubString(startIndex, endIndex)
End Function
Joel Coehoorn
  • 399,467
  • 113
  • 570
  • 794
1

As mentioned in my comment about you could use Regex to accomplish this easily. This uses a Positive-LookBehind and Positive-LookAhead. Please see below for example. This is tried and tested as well.

  Dim rgex As New Regex("((?<=src=\\"").*)(?=\\""\s+title=)")
  Dim mtch As Match = rgex.Match(TextBox1.Text)

  If mtch.Success Then
       MessageBox.Show(mtch.Groups(1).Value)
  End If

enter image description here

Trevor
  • 7,777
  • 6
  • 31
  • 50