|
Registrieren
Login
Autor
dcm
Poster
Anmeldedatum: 03.05.2008
Beiträge: 101
Links aus Html-Quelltext Entfernen
Verfasst am: 03.07.2009, 16:45
Nachdem ich mich gelangweilt habe, habe ich eine wundervolle Funktion mit Splits und Arrays für diesen Thread hier geschrieben:
http://www.visual-basic-forum.de/viewtopic.php?t=3347
dann habe ich 2 Tage gewartet, weil ich keine Zeit mehr hatte und - Schwupps! - war es geclosed...
Aber zum Glück kann man diese Funktion algemein verwenden, darum poste ich sie jetzt hier.
Sie entfernt Links aus dem Quelltext.
Eigentlich ziemlich einfach :p
Mit dieser feinen Funktion lassen sich alle möglichen Links aus dem quelltext entfernen (es steht danach nur noch die bezeichnung da)
lässt sich auch auf alle möglichen Dinge abändern.
Verwendungsbeispiel: Code: Public Function LinksEntfernen(SourceCode As String, Optional Link As String = "<a href=""") As String<br /> On Error GoTo Fehler<br /> '_____________________<br /> 'Prüfen, ob der übergebene Link mit "<a href=" beginnt, also mit dem tag für links, ansonsten wird er angehängt<br /> If Not LCase(Left$(Link, 2)) = "<a" Then<br /> Link = "<a href=""" & Link<br /> End If<br /> '_____________________<br /> 'Variablen Deklarieren und Deklinieren<br /> Dim tempArray() As String<br /> Dim tempArray2() As String<br /> Dim i, j, k As Long<br /> i = 10 * 10<br /> j = i - 1<br /> k = j + 10<br /> Dim tempString As String<br /> tempString = Chr(i) & Chr(j) & Chr(k)<br /> '_____________________<br /> 'Hier beginnt die eigentlche Arbeit<br /> tempArray() = Split(SourceCode, Link)<br /> LinksEntfernen = tempArray(0)<br /> MsgBox tempString<br /> For i = 1 To UBound(tempArray)<br /> DoEvents<br /> tempArray2() = Split(tempArray(i), ">")<br /> tempString = tempArray2(1)<br /> For j = 2 To UBound(tempArray2)<br /> tempString = tempString & ">" & tempArray2(j)<br /> Next<br /> tempArray2() = Split(tempString, "</a>")<br /> tempString = tempArray2(0) & tempArray2(1)<br /> For k = 2 To UBound(tempArray2)<br /> tempString = tempString & "</a>" & tempArray2(j)<br /> Next<br /> LinksEntfernen = LinksEntfernen & tempString<br /> Next<br />Exit Sub<br /> '_____________________<br /> 'Error handler - Eigentlich dürften aber keine Fehler auftreten!<br />Fehler:<br /> MsgBox "Fehler " & Err.Number & " beim Entfernen der Links aufgetreten: " & Err.Description<br /> Resume Next<br /> '_____________________<br /> 'Ende. Viel Spaß mit dieser Funktion. dcm.<br />End Function
In der Textbox 1 steht ein quelltext Code: Private Sub Command1_Click()<br /> Text2.Text = LinksEntfernen(Text1.Text)<br />End Sub
man kann das ganze natürlcih beliebig einschränken...
>macht gar nix (scherz ^^) Code: Private Sub Command1_Click()<br /> Text2.Text = LinksEntfernen(Text1.Text, "http://google.de/")<br />End Sub
-Beginnen! (was danach folgt, is wurscht... irgendein suchstring etc.)-
_________________
Verwandte Themen
Aufrufe
Letzter Beitrag
Problem mit always on top funktion
1039
30.10.2009, 11:26
IntStr()funktion
1177
11.10.2007, 08:49
TopMost Funktion unter DirectX
921
27.07.2007, 10:48
Wie Funktion nutzen ?
1101
29.06.2007, 20:59
update funktion einbauen
1341
28.01.2007, 23:11
