How do I remove some zeros in a textbox in visual basic

Question

1.00/5 (1 vote)

See more:

I have the following listed in a multiple line textbox in Visual Basic. If there are two leading zeros I need them removed but if only one zero exists, I need only one zero removed.

Start with this....

00012M12
00046W44
00280D18
00381F10
00509N01
00608T22
00879K17
01277P91

End with this....

012M12
046W44
280D18
381F10
509N01
608T22
879K17
1277P91

Thank you !!

What I have tried:

I can get the leading zeros removed but I'm stuck on the rest

VB

For i As Integer = 0 To TextBox1.Lines.Length - 1
            Dim index As Integer = TextBox1.GetFirstCharIndexFromLine(i)
            TextBox1.Select(index, Math.Min(1, TextBox1.Lines(i).Length))
            TextBox1.SelectedText = ""
       Next i

Posted 30-Mar-22 18:03pm

Chris_List

Updated 30-Mar-22 19:33pm

Add a Solution

2 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

OriginalGriff · Answer 1 · 2022-03-30T19:27:00

Simplest solution is check is the string starts with "00" and if so remove them. If not, check for "0" and remove that:

VB

Private Shared Function StripLeadingZeros(ByVal s As String) As String
    If s.StartsWith("00") Then
        s = s.Substring(2)
    ElseIf s.StartsWith("0") Then
        s = s.Substring(1)
    End If

    Return s
End Function

M Imran Ansari · Answer 2 · 2022-03-30T19:33:00

Solution 2

Try the following code:

VB

Dim strInput = "00012M12"
Dim Tcount = strInput.TakeWhile(Function(c) c = "0"c).Count()
strInput = strInput.TrimStart("0"c)
If Tcount Mod 2 > 0 Then strInput = "0" & strInput

Posted 30-Mar-22 19:33pm

M Imran Ansari