We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Course Of The Month
7 days, 5 hours left to enrollBecome a Premium Member and unlock a new, free course in leading technologies each month.
Solved
vb.net count characters then add a symbol
Posted on 2004-09-24
I am using visual basic and I want to know how I can count so many characters and then add a certain symbol
example that I have is:
L20Tom Brady 12340golf
It needs to be when the code sees the line that starts with L to
make the line look lke this
L:20:Tom:Brady:12340:Golf
Now the line data will never be the same but it will have the same fixed length. The L will be the identifier to signal to do the above,
So
where 20 is would be 2 characters
Tom = 4 five characters
Brady = 10 characters
12340 = 5 chars
Golf= 4 chars
so lets say the next line would be
L40JimmyBrad 123 base
it would do this to the line
L:40:Jimmy:Brad:123:base
striping out the empty spaces.
Is this hard to do????
example that I have is:
L20Tom Brady 12340golf
It needs to be when the code sees the line that starts with L to
make the line look lke this
L:20:Tom:Brady:12340:Golf
Now the line data will never be the same but it will have the same fixed length. The L will be the identifier to signal to do the above,
So
where 20 is would be 2 characters
Tom = 4 five characters
Brady = 10 characters
12340 = 5 chars
Golf= 4 chars
so lets say the next line would be
L40JimmyBrad 123 base
it would do this to the line
L:40:Jimmy:Brad:123:base
striping out the empty spaces.
Is this hard to do????
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
4-
2
7 Comments
do I understand you correctly that whent the FIRST CHARACTER is a 'L' the line will ALWAYS be laid out as
1 Character
2 DIGITS
5 Characters (may have trailing blanks)
10 Characters (may have trailing blanks)
5 Digits
4 characters
Is that correct?
AW
1 Character
2 DIGITS
5 Characters (may have trailing blanks)
10 Characters (may have trailing blanks)
5 Digits
4 characters
Is that correct?
AW
and are the other character counts ALWAYS the same
2 characters ('20' in your example) followed by
5 Characters ('Tom ' or 'Jimmy' in you examples) foloowed by
10 Characters ('Brady ' or 'Brad ' in your examples) followed by
5 Characters ('12340' in your example) followed by
4 characteres ('golf' or 'base' in your examples)
AW
2 characters ('20' in your example) followed by
5 Characters ('Tom ' or 'Jimmy' in you examples) foloowed by
10 Characters ('Brady ' or 'Brad ' in your examples) followed by
5 Characters ('12340' in your example) followed by
4 characteres ('golf' or 'base' in your examples)
AW
If that is the case, then use can use the SubString Method of the String Object, like this:
Dim strTest As String = "L20Tom Brady 12340golf"
Dim str(5) As String
Dim StrResult As String
str(0) = strTest.Substring(0, 1)
str(1) = strTest.Substring(1, 2)
str(2) = strTest.Substring(3, 5).Trim
str(3) = strTest.Substring(8, 10).Trim
str(4) = strTest.Substring(18, 5)
str(5) = strTest.Substring(23, 1).ToUpper & strTest.Substring(24, 3)
For i As Integer = 0 To 5
StrResult = StrResult & str(i) & ":"
Next
StrResult = StrResult.Substring(0, StrResult.Length - 1)
AW
Dim strTest As String = "L20Tom Brady 12340golf"
Dim str(5) As String
Dim StrResult As String
str(0) = strTest.Substring(0, 1)
str(1) = strTest.Substring(1, 2)
str(2) = strTest.Substring(3, 5).Trim
str(3) = strTest.Substring(8, 10).Trim
str(4) = strTest.Substring(18, 5)
str(5) = strTest.Substring(23, 1).ToUpper & strTest.Substring(24, 3)
For i As Integer = 0 To 5
StrResult = StrResult & str(i) & ":"
Next
StrResult = StrResult.Substring(0, StrResult.Length - 1)
AW
Dim mainLine as string = "L40JimmyBrad 123 base "
Dim temp As String
Dim temp1 As String
Dim temp2 As String
Dim temp3 As String
Dim temp4 As String
Dim temp5 As String
temp = mainLine.Substring(0, 1)
temp1 = mainLine.Substring(2, 4)
temp2 = mainLine.Substring(5, 10)
temp3 = mainLine.Substring(11, 21)
temp4 = mainLine.Substring(22, 27)
temp5 = mainLine.Substring(28, 32)
Dim position1 As Int16 = temp1.IndexOf(" ")
Dim position2 As Int16 = temp2.IndexOf(" ")
Dim position3 As Int16 = temp3.IndexOf(" ")
Dim position4 As Int16 = temp4.IndexOf(" ")
Dim position5 As Int16 = temp5.IndexOf(" ")
If position1> 0 Then
temp1 = temp1.substring(0,position
End If
If position2> 0 Then
temp2 = temp2.substring(0,position
End If
If position3> 0 Then
temp3 = temp3.substring(0,position
End If
If position4> 0 Then
temp4 = temp4.substring(0,position
End If
If position5> 0 Then
temp5 = temp5.substring(0,position
End If
Dim resultline as string = temp + ":" + temp1 + ":" + temp2 + ":" + temp3 + ":" + temp4 + ":" + temp5
It might not be the best way to solve this problem... but still this will give you resulting string as you want
Best of luck
Ankit
Dim temp As String
Dim temp1 As String
Dim temp2 As String
Dim temp3 As String
Dim temp4 As String
Dim temp5 As String
temp = mainLine.Substring(0, 1)
temp1 = mainLine.Substring(2, 4)
temp2 = mainLine.Substring(5, 10)
temp3 = mainLine.Substring(11, 21)
temp4 = mainLine.Substring(22, 27)
temp5 = mainLine.Substring(28, 32)
Dim position1 As Int16 = temp1.IndexOf(" ")
Dim position2 As Int16 = temp2.IndexOf(" ")
Dim position3 As Int16 = temp3.IndexOf(" ")
Dim position4 As Int16 = temp4.IndexOf(" ")
Dim position5 As Int16 = temp5.IndexOf(" ")
If position1> 0 Then
temp1 = temp1.substring(0,position
End If
If position2> 0 Then
temp2 = temp2.substring(0,position
End If
If position3> 0 Then
temp3 = temp3.substring(0,position
End If
If position4> 0 Then
temp4 = temp4.substring(0,position
End If
If position5> 0 Then
temp5 = temp5.substring(0,position
End If
Dim resultline as string = temp + ":" + temp1 + ":" + temp2 + ":" + temp3 + ":" + temp4 + ":" + temp5
It might not be the best way to solve this problem... but still this will give you resulting string as you want
Best of luck
Ankit
one question though: what is this line actually doing??
StrResult = StrResult.Substring(0, StrResult.Length - 1)
StrResult = StrResult.Substring(0, StrResult.Length - 1)
Featured Post
We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
Suggested Solutions
| Title | # Comments | Views | Activity |
|---|---|---|---|
| T-SQL: Sigh---Boy, this is fun.... | 12 | 74 | |
| ejb wildfly example | 2 | 110 | |
| Visual Studio Gridview Combobox value error when combo box does not have matching value in destination datafield | 5 | 87 | |
| How to share My.Settings in multiple application instances ? | 7 | 77 |
Whether you’re a college noob or a soon-to-be pro, these tips are sure to help you in your journey to becoming a programming ninja and stand out from the crowd.
Today, the web development industry is booming, and many people consider it to be their vocation. The question you may be asking yourself is – how do I become a web developer?
In this seventh video of the Xpdf series, we discuss and demonstrate the PDFfonts utility, which lists all the fonts used in a PDF file. It does this via a command line interface, making it suitable for use in programs, scripts, batch files — any pl…
- Document Management
- Document Imaging
- Programming
- Adobe Acrobat
- Scripting Languages
- *Scripts, Printers and Scanners, *batch, *PDF
Simple Linear Regression
Suggested Courses
Course of the Month7 days, 5 hours left to enroll
732 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.