---

Hallo Zusammen,

habe folgendes Problem und hoffe, dass Ihr mir helfen könnt  

Ich hab eine Richtextbox und lese eine Textdatei ein.
Die Textdatei ist ein NC programm.

Wenn ich Werkzeug T, Drehzahl S, Vorschub F markieren möchte,
markiert er alles was er z.B. mit T, S oder F findet. (auch Kommnetare)

Ich möchte aber nur z.B. hier unten F mit Zahl markiert haben. z.B. F400

        Dim counterF As Integer
        Dim stringposF As Integer
        Dim re As Object
        re = CreateObject("vbscript.regexp")
        re.Pattern = "F\d{3}"

        Dim wordF As String = re.pattern

        For counterF = 1 To Me.RichTextBox1.TextLength
            stringposF = InStr(counterF, Me.RichTextBox1.Text, wordF, vbTextCompare)
            If stringposF > 0 Then
                Me.RichTextBox1.SelectionStart = stringposF - 1
                Me.RichTextBox1.SelectionLength = wordF.Length

                Me.RichTextBox1.SelectionColor = Color.Green
                Me.RichTextBox1.SelectionFont = New Font(RichTextBox1.SelectionFont, FontStyle.Bold)
            Else
                Exit For
            End If
        Next counterF

ich habe versucht mit dem Pattern dies umzusetzen. Glaube, dass ich hier einen Denkfehler habe.

Wäre super, wenn Ihr mir hier einen Tipp geben könntet.

Vielen Dank im Voraus!

------------------
Schöne Grüße
Feyza : )

[Diese Nachricht wurde von Feyza am 20. Apr. 2015 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus
Musst du nicht die Suche gemäß des regulären Ausdrucks abwenden (Execute) und danach die Fundstellen auslesen/abarbeiten? (siehe zb hier)
Bei .net sollte es zb über die Methode "Matches" gehen (siehe zb hier)

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Für alle Nicht-NC-Programmierer wäre ein Beispieltext hilfreich.

------------------
Klaus

www.al-ko.com | mein Gästebuch

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Guten Morgen Klaus,
Guten Morgen Bernd,

ein Beispiel   

%1000
(A.S: 02.04.2013/Tau)
N5 R47 0 M25 M92
N10 @00 15
M98
H250024
T2399 H100001 R47
H250002
T3400 H100003 R47
T525 H100004 R47
T1689 H100005 R47
T2680 H100006 R47 H250007
T493 H100008 R47
H250009 M99
N15 G92 D01 D123.35 P62.5
G92 D03 D173.42 P4.5
G92 D04 D142.39 P5.5
G92 D05 D161.000 P30

Er markiert auch die Kommentare, anstatt nur T mit zahlen.

------------------
Schöne Grüße
Feyza : )

[Diese Nachricht wurde von Feyza am 21. Apr. 2015 editiert.]

[Diese Nachricht wurde von Feyza am 21. Apr. 2015 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Feyza

Der Code für dein Fall könnte im VB.net so aussehen

Code:

---

Imports System.Text.RegularExpressions

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Beispielaufruf
        With RichTextBox1
            .Highlight("T\d+", Color.Green) 'Werkzeug
            .Highlight("S\d+", Color.Blue) 'Drehzahl
            .Highlight("F\d+\.?\d*", Color.Red) 'Vorschub
        End With
    End Sub
End Class

Module Zustatz
    <System.Runtime.CompilerServices.Extension()> _
    Public Sub Highlight(ByVal RTB As RichTextBox, ByVal pattern As String, ByVal Farbe As Color)
        'Such-Pattern zuweisen
        Dim RxObj As New Regex(pattern)
        'Regex-Suche ausführen
        Dim RxMatches As MatchCollection = RxObj.Matches(RTB.Text)
        'Resultate abarbeiten
        For Each RxMatch As System.Text.RegularExpressions.Match In RxMatches
            'Text markieren
            RTB.SelectionStart = RxMatch.Index
            RTB.SelectionLength = RxMatch.Value.Length
            'Text formatieren
            RTB.SelectionColor = Farbe
            RTB.SelectionFont = New Font(RTB.SelectionFont, FontStyle.Bold)
        Next
    End Sub
End Module

---

Online Regextester

https://regex101.com
Zum Testen von Regex mit Echtzeit-Debugging.

https://myregextester.com
Zum Testen von Regex mit VB.net-Codegenerierung.

Gruss Andreas

------------------
21 ist nur die halbe Antwort.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Coole Sache, auch wenn ich nur die Hälfte verstehe 

------------------
Klaus

www.al-ko.com | mein Gästebuch

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Guten Morgen Zusammen  

@Andreas: Funktioniert super! Und der Vb.net Code Generator. WOW!
          Vielen Dank  

@Bernd und Klaus: Vielen Dank auch für Eure Hilfe  

------------------
Schöne Grüße
Feyza : )

[Diese Nachricht wurde von Feyza am 23. Apr. 2015 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP