Tipp 0040 Wörter zählen
Autor/Einsender:
Datum:
  Michael Werner
03.05.2004
Entwicklungsumgebung:   VB.Net 2003
Framework:   1.1
Der Namespace System.Text.RegularExpressions enthält Klassen, die den Zugriff auf das .NET-Framework-Modul für reguläre Ausdrücke ermöglichen. Mit Hilfe von regulären Ausdrücken (Regular Expressions) können auf überzeugend kurze Weise Zeichenketten bearbeitet, gefiltert, ersetzt usw. werden. In diesem Fall werden Wörter gezählt.
 
Imports System.Text.RegularExpressions
Public Class Form1
  Inherits System.Windows.Forms.Form
Vom Windows Form Designer generierter Code
  Private Sub Form1_Load(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles MyBase.Load
    TextBox1.Text = "Hallo, guten Tag zusammen, " & _
            "bin ich hier richtig bei den Tipps " & _
            "zu Visual Basic .NET von vb-fun?"
  End Sub

  Private Sub Button1_Click(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Button1.Click
    Label1.Text = "Anzahl Wörter: " & _
            CountWords(TextBox1.Text).ToString
  End Sub

  Function CountWords(ByVal s As String) As Integer
    Dim myRegex As Regex = New Regex("[\w]+")
    Return myRegex.Matches(s).Count
  End Function

  Private Sub Button2_Click(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Button2.Click
    Me.Close()
  End Sub
End Class
 
Weitere Links zum Thema
Textsuche einschließlich Metazeichen

Windows-Version
98/SE
ME
NT
2000
XP
Vista
Win 7


Download  (6 kB) Downloads bisher: [ 578 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Tipps | Projekte | Tutorials | Bücherecke | VB-/VBA-Tipps | API-Referenz | Komponenten | VB.Net-Forum | VB/VBA-Forum | DirectX-Forum | Foren-Archiv | DirectX | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Sonntag, 22. Januar 2012