экстракт часть абзаца при помощи vb.net

Question

У меня есть следующий абзац:

Free Daily Гороскоп на findyourfate.comhttp: //www.findyourfate.comThings хороши и становится лучше - и вам нужно узнать как принять этот факт. Хотя это может звучать как легкомысленный или саркастический совет, правда в том, что в последнее время, когда судьба бросила несколько лепестков розы на вашем пути, вы решили увидеть их как просто больше мусора - если вы решили их увидеть вообще , Проснись и умничай. Вы должны начать признавать подарки в качестве подарка, предназначенного для вас. Вам нужно понять, насколько они достойны вас. http://www.findyourfate.com/rss/dailyhoroscope-feed.asp?sign=Aries [отчет о доставке]

который я хранил в строке, используя vb.net.

Как я могу разделить эту строку на выходе только следующую часть:

хорошо и становится лучше - и вам нужно узнать, как принять этот факт. Хотя это может звучать как легкомысленный или саркастический совет, правда в том, что в последнее время, когда судьба бросила несколько лепестков розы на вашем пути, вы решили увидеть их как просто больше мусора - если вы решили их увидеть вообще , Проснись и умничай. Вы должны начать признавать подарки в качестве подарка, предназначенного для вас. Вам нужно понять, насколько они достойны вас.

Answer 1

В случае, если у вас есть этот же пункт и каждый раз, когда вам нужно, чтобы получить тот же результат вы можете использовать замену вместо раскола это проще:

Dim texts As String = "Free Daily Horoscope by findyourfate.comhttp://www.findyourfate.comThings are good and getting better -- and you need to learn how to accept this fact. While this may sound like flippant or sarcastic advice, the truth is that lately, whenever the fates have thrown a few rose petals in your path, you have chosen to see them as just more debris -- if you have elected to see them at all. Wake up and wise up. You need to start acknowledging the gifts as gifts meant for you. You need to understand just how worthy of them you are.http://www.findyourfate.com/rss/dailyhoroscope-feed.asp?sign=Aries [return delivery report]" 

    texts = texts.Replace("Free Daily Horoscope by findyourfate.comhttp://www.findyourfate.com", "") 

    texts = texts.Replace("http://www.findyourfate.com/rss/dailyhoroscope-feed.asp?sign=Aries [return delivery report]", "") 

и вы получите тот же результат, что это, конечно, если у вас есть всегда

Если вы хотите использовать Split:

Dim arraytext() As String 

    arraytext = Split(texts, "Free Daily Horoscope by findyourfate.comhttp://www.findyourfate.com") 

    arraytext = Split(arraytext(1), "http://www.findyourfate.com/rss/dailyhoroscope-feed.asp?sign=Aries [return delivery report]") 

MsgBox(arraytext(0))