Problem mit Insert

  • VB.NET
  • .NET 4.5

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von Neo127.

    Problem mit Insert

    EDIT: Fall ist nun gelöst!
    Habe gedacht Insert ändert den Text ab, jedoch ist es nötig den String gleich den Insert zu nehmen
    BSP:

    VB.NET-Quellcode

    1. String1 = String1.Insert(1, "bla")


    Ich habe gerade ein Problem, bei dem ich aus dem I-Net leider auch nicht schlauer werde (Oder ich bin zu Blind um was zu finden ._.)

    Und zwar würde ich gerne bei einem String (Webseite, wo ich den Quelltext auslese), etwas nach einem bestimmten Tag (<div class="profile_header_actions">) Text hinzufügen.
    Ich finde zwar mit insert die Stelle wo ich den Text hinzufügen muss (Erste Messagebox), und der Text wird auch erkannt (Zweite Messagebox), jedoch ist in der erstellten HTML Datei dieser Text nicht enthalten.
    Ein austauschen von My.Resources.ProfileHeaderActions.ToString durch z.B "bla bla" hat auch nix verändert

    Würde mich extrem über eine Antwort freuen : )

    VB.NET-Quellcode

    1. Dim request As Net.WebRequest = Net.WebRequest.Create("http://steamcommunity.com/id/CarbonadroChan")
    2. Using response As Net.WebResponse = request.GetResponse()
    3. Using reader As New IO.StreamReader(response.GetResponseStream())
    4. Dim html As String = reader.ReadToEnd()
    5. Dim TempString As String = "<div class=" & """" & "profile_header_actions" & """" & ">"
    6. Dim index As Integer = html.IndexOf(TempString)
    7. Dim countChars As Integer
    8. countChars = TempString.Length
    9. MsgBox(My.Resources.ProfileHeaderActions.ToString)
    10. html.Insert(index + countChars, My.Resources.ProfileHeaderActions.ToString)
    11. MsgBox(index + countChars)
    12. IO.File.WriteAllText("test.html", html)
    13. End Using
    14. End Using
    15. FriendWB.Navigate(AppDomain.CurrentDomain.BaseDirectory & "test.html")

    Stelle wo ich den Text einfügen will

    HTML-Quellcode

    1. <div class="profile_header_actions">
    2. </div>


    Text der eingefügt wird

    HTML-Quellcode

    1. <a class="btn_profile_action btn_medium" href="http://AlsFreundHinzuFügen.cmd">
    2. <span>Als Freund hinzufügen</span>
    3. </a>
    4. <span class="btn_profile_action btn_medium" id="profile_action_dropdown_link" onclick="ShowMenu( this, 'profile_action_dropdown', 'right' );">
    5. <span>Mehr <img src="http://steamcommunity-a.akamaihd.net/public/images/profile/profile_action_dropdown.png"></span>
    6. </span>
    7. <div class="popup_block" id="profile_action_dropdown" style="display: none;">
    8. <div class="shadow_ul"></div><div class="shadow_top"></div><div class="shadow_ur"></div><div class="shadow_left"></div><div class="shadow_right"></div><div class="shadow_bl"></div><div class="shadow_bottom"></div><div class="shadow_br"></div> <div class="popup_body popup_menu shadow_content">
    9. <a class="popup_menu_item" href="http://InLobbyEinladen.cmd"><img src="http://steamcommunity-a.akamaihd.net/public/images/profile/icon_invitegroup.png">&nbsp; In Lobby einladen</a>
    10. <a class="popup_menu_item" href="http://FreundEntfernen.cmd"><img src="http://steamcommunity-a.akamaihd.net/public/images/profile/icon_block.png">&nbsp; Freund entfernen</a>
    11. <a class="popup_menu_item" href="http://Stats.cmd"><img src="http://steamcommunity-a.akamaihd.net/public/images/profile/icon_unfriend.png">&nbsp; Stats</a> </div>
    12. </div>

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Neo127“ ()

    @Neo127 Wenn Du präziser beschreiben würdest, was Du willst, könnten wir Dir auch besser helfen.
    Z.B.:
    1) Start: "abcdef" Ziel: "abcXYZdef"
    oder
    2) Start: "abcdef" Ziel: "abXYef"
    ==>
    zu 1.:

    VB.NET-Quellcode

    1. Dim s1 = "abcdef"
    2. Dim s2 = s1.Insert(3, "XYZ")
    zu 2.:

    VB.NET-Quellcode

    1. Dim s1 = "abcdef"
    2. Dim s3 = s1.Insert(2, "XY")
    3. s3 = s3.Remove(5, 2)

    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    VB-Fragen über PN / Konversation werden ignoriert!
    @RodFromGermany hat sich schon erledigt :)Habe gedacht (warum auch immer) das mit Insert direkt der String verändert wird.
    Sprich ich hatte nur A.Insert(some,cool,variables) und nicht A = A.Insert(some,cool,variables)

    @VB1963 tut mir leid, das habe ich total verpeilt :S
    Danke das du mich drauf hinweist :thumbup: