0

次の段落があります。

findyourfate.comhttp://www.findyourfate.com による無料の毎日の星占い. これはばかげた、または皮肉なアドバイスのように聞こえるかもしれませんが、真実は、最近、運命があなたの道にいくつかのバラの花びらを投げたときはいつでも、あなたはそれらをただの破片として見ることを選択したということです. . 目を覚まして賢明に。あなたは、その贈り物を自分のための贈り物として認め始める必要があります。あなたが彼らにどれだけ価値があるかを理解する必要があります。http://www.findyourfate.com/rss/dailyhoroscope-feed.asp?sign=牡羊座【返納報告】

vb.netを使用して文字列に保存しました。

その文字列を分割して、次の部分のみを出力するにはどうすればよいですか。

物事は順調に進んでおり、この事実を受け入れる方法を学ぶ必要があります。これはばかげた、または皮肉なアドバイスのように聞こえるかもしれませんが、真実は、最近、運命があなたの道にいくつかのバラの花びらを投げたときはいつでも、あなたはそれらをただの破片として見ることを選択したということです. . 目を覚まして賢明に。あなたは、その贈り物を自分のための贈り物として認め始める必要があります。あなたが彼らにどれだけ価値があるかを理解する必要があります。

4

1 に答える 1

0

この同じ段落があり、同じ出力を取得する必要があるたびに、分割する代わりに置換を使用できます。

 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]", "")

もちろん、常に同じ結果が得られます

分割を使用する場合:

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))
于 2013-11-08T09:05:57.533 に答える