CodeDocu.com

Code Beispiel zum entfernen aller < Tags > in einem Text

In dem folgenden Code Snippet werden aus einem Anzeigetext alle internen Klammern entfernt.
Hintergrund: beim Anzeigen von Text in Webseiten muß manchmal der einfache Text ohne Steuerzeichen, Fonts, script, Iframes und so weiter angezeigt werden.
Also PlainText würde man normalerweise sagen.
Das kleine script , die Funktion wird in der Hauptroutine aufgerufen mit

sText = sx.remove_Tags(sText)







in der Routine remove_Tags wird dann der Text von den < Klammern > befreit.




Code vb.net function Tags Klammern snippet



Code zum Entfernen von Klammern in HTML Text


'< html-tags entfernen >
sTitle = sx.remove_Tags(sTitle)
sText = sx.remove_Tags(sText)
'</ html-tags entfernen >





Public Shared Function remove_Tags(ByVal sText As String) As String
'------------------< remove_Tags() >-----------------
'< kontrolle >
If sText Like "" Then
Return ""
Exit Function
End If
'</ kontrolle >


'-------< @loop suche >-------
Do While 1 = 1
'-------< loop_suche >-------
'< init >
Dim sKlammer_Auf As String = "<"
Dim sKlammer_Zu As String = ">"
'</ init >

'----< suche Klammer_auf >----
Dim intPos_Klammer_auf As Integer = InStr(sText, sKlammer_Auf, CompareMethod.Binary)
If intPos_Klammer_auf = 0 Then
'< wechsel html variante >
sKlammer_Auf = "&lt;"
sKlammer_Zu = "&gt;"
'< wechsel html variante >

'< Suche html-variante >
intPos_Klammer_auf = InStr(sText, sKlammer_Auf, CompareMethod.Text)
'</ Suche html-variante >
End If

'--< Abbruch.Kontrolle ob Klammer_Auf vorhanden >--
If intPos_Klammer_auf = 0 Then
Exit Do
'->abbruch
End If
'--< Abbruch.Kontrolle ob Klammer_Auf vorhanden >--
'----</ suche Klammer_auf >----

'----< suche Klammer_zu >----
Dim intPos_Klammer_zu = InStr(intPos_Klammer_auf + 1, sText, sKlammer_Zu, CompareMethod.Text)
If intPos_Klammer_zu = 0 Then
'----< Offenes Ende >----
sText = Mid(sText, 1, intPos_Klammer_auf - 1)
'----</ Offenes Ende >----
Else
'----< Mit Ende >----
sText = Mid(sText, 1, intPos_Klammer_auf - 1) & " " & Mid(sText, intPos_Klammer_zu + Len(sKlammer_Zu))
'----</ Mit Ende >----
End If
'</ suche ende >
'----</ suche Klammer_zu >----


'-------</ loop_suche >-------
Loop
'-------</ @loop suche >-------


'< Ausgabe >
Return Trim(sText)
'</ Ausgabe >
'------------------</ remove_Tags() >-----------------
End Function


Software Entwicklung Stuttgart NĂ¼rtingen
Suche Projekte C#, WPF, Windows App,ASP.Net, vb.Net, WinForms, SQL Server, Access, Excel