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