Styjun

Let me start by saying that I'm new to any language of coding besides G-code, and I've researched this until my fingers hurt. I've actually been working on this project for a little over a year now on my own, and this is the first hurdle I haven't been able to find my way around.

I'm creating an editor for cnc G-code, and i'm trying to add a Re-number function to it. I'm using a multi line richtextbox to display the the G-code to the user. I'm trying to edit each line of code that starts with the character "N", and if a line doesn't start with that character then it's left alone.

I figured the best way to do this would be to loop thru the RTB and pass each line into an array. Then I could use an If statement to see if a cell in the array started with the char "N" or in my case "blockLetter". Then use the replace function to correct the line Number.

This is what I have so far.

Dim increment As Integer = txtLNIncrement.Text
Dim blockLetter As String = txtLNStartTxt.Text
Dim count As Integer = 0
Dim block As Integer = count + increment 

For Each cell As String In frmNC.NcTextBox.Lines
 If cell.StartsWith(blockLetter) Then
 Dim newCell As String = cell.Replace(blockLetter, block)
 block = block + increment
 MessageBox.Show(newCell)
 End If
Next

Example of G-code that needs to be renumbered:
N50 M01
N60 T0101 (TOOL NAME)
N70 M41
N80 G96 S350
N90 M03
N100 M08

This is what I want:
N10 M01
N20 T0101 (TOOL NAME)
N30 M41
N40 G96 S350
N50 M03
N60 M08

This is what I'm getting when I run the code above:
1050 M01
2060 T0101 (TOOL NAME)
3070 M41
4080 G96 S350
5090 M03
60100 M08

I believe my issue is that the cell.replace is splitting each cell at the "N" character, and dropping it all together. Thus adding what I want to see in front of the existing numbers, minus the "N" character. How can I overwrite the existing block number to the correct ascending block number, and retain the "N" character? Am I going about this in the correct way, or is there a better way? Any help is greatly appreciated.

Try something like this out:

Private increment As Integer = 10
Private blockLetter As String = "N"

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 Dim newLine As String
 Dim values() As String
 Dim lineNumber As Integer = 0
 Dim lines As New List(Of String)(NcTextBox.Lines)
 For i As Integer = 0 To lines.Count - 1
 If lines(i).TrimStart().StartsWith(blockLetter) Then
 values = lines(i).TrimStart(" " & blockLetter.ToCharArray).Split(" ")
 lineNumber = lineNumber + increment
 values(0) = lineNumber
 newLine = blockLetter & String.Join(" ", values)
 lines(i) = newLine
 End If
 Next
 NcTextBox.Lines = lines.ToArray
End Sub

it's very simple:

Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
 Dim blockLetter As String = "N"
 Dim increment As Integer = 1
 For i As Integer = 0 To RichTextBox1.Lines.Length - 1 Step 1
 Dim fullLine As String = RichTextBox1.Lines(i)

 If fullLine.StartsWith(blockLetter) Then
 Dim numbering As String = fullLine.Remove(RichTextBox1.Lines(i).IndexOf(" "))
 Dim block As Integer = numbering.Substring(1)
 Dim newCell As String = blockLetter & block + increment
 MessageBox.Show(newCell)
 End If
 Next

End Sub

Result:

The Label1.Text will increase with button click.

It's all about Substring() starting from index 1 after 'N', so you will get the number.

Good luck with your coding!