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:
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 : )
Stelle wo ich den Text einfügen will
Text der eingefügt wird
Habe gedacht Insert ändert den Text ab, jedoch ist es nötig den String gleich den Insert zu nehmen
BSP:
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
- Dim request As Net.WebRequest = Net.WebRequest.Create("http://steamcommunity.com/id/CarbonadroChan")
- Using response As Net.WebResponse = request.GetResponse()
- Using reader As New IO.StreamReader(response.GetResponseStream())
- Dim html As String = reader.ReadToEnd()
- Dim TempString As String = "<div class=" & """" & "profile_header_actions" & """" & ">"
- Dim index As Integer = html.IndexOf(TempString)
- Dim countChars As Integer
- countChars = TempString.Length
- MsgBox(My.Resources.ProfileHeaderActions.ToString)
- html.Insert(index + countChars, My.Resources.ProfileHeaderActions.ToString)
- MsgBox(index + countChars)
- IO.File.WriteAllText("test.html", html)
- End Using
- End Using
- FriendWB.Navigate(AppDomain.CurrentDomain.BaseDirectory & "test.html")
Stelle wo ich den Text einfügen will
Text der eingefügt wird
HTML-Quellcode
- <a class="btn_profile_action btn_medium" href="http://AlsFreundHinzuFügen.cmd">
- <span>Als Freund hinzufügen</span>
- </a>
- <span class="btn_profile_action btn_medium" id="profile_action_dropdown_link" onclick="ShowMenu( this, 'profile_action_dropdown', 'right' );">
- <span>Mehr <img src="http://steamcommunity-a.akamaihd.net/public/images/profile/profile_action_dropdown.png"></span>
- </span>
- <div class="popup_block" id="profile_action_dropdown" style="display: none;">
- <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">
- <a class="popup_menu_item" href="http://InLobbyEinladen.cmd"><img src="http://steamcommunity-a.akamaihd.net/public/images/profile/icon_invitegroup.png"> In Lobby einladen</a>
- <a class="popup_menu_item" href="http://FreundEntfernen.cmd"><img src="http://steamcommunity-a.akamaihd.net/public/images/profile/icon_block.png"> Freund entfernen</a>
- <a class="popup_menu_item" href="http://Stats.cmd"><img src="http://steamcommunity-a.akamaihd.net/public/images/profile/icon_unfriend.png"> Stats</a> </div>
- </div>
Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Neo127“ ()