Using reader As New IO.StreamReader(OpenFileDialog1.FileName.ToString)
Using writer As New IO.StreamWriter(SaveFileDialog1.FileName.ToString)
Dim line As String
line = reader.ReadLine()
Do Until reader.EndOfStream
start:
line = reader.ReadLine
line = Replace(line, "Brief Desc: Tech Assigned: ", "")
line = Replace(line, "ORDER TYPE: Sales Order ORDER SUB TYPE: ", "")
line = Replace(line, ", ", " ")
If line.StartsWith("ACCOUNT:") Then
line = Replace(line, " ", ",")
writer.Write(line)
GoTo start
End If
'Write the field value.
writer.Write(line)
If line.StartsWith("Service Order ") Or line.StartsWith("Halsted Communications ltd. ") Or line.StartsWith("13 Commerce Drive ") Or line.StartsWith("Ballston Spa, NY 12020 ") Then
'Write a line terminator.
writer.WriteLine()
Else
'Write a field terminator.
writer.Write(",")
End If
Loop
End Using
End Using
MsgBox("Done")
Do
label:
If something
DoSomething()
GoTo label
End If
DoSomethingElse()
Loop
Do
If something
DoSomething()
Continue Do
End If
DoSomethingElse()
Loop
Do
If something
DoSomething()
Else
DoSomethingElse()
End If
Loop
Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click
Using reader As New IO.StreamReader(OpenFileDialog1.FileName.ToString)
Using writer As New IO.StreamWriter(SaveFileDialog1.FileName.ToString)
Dim line As String
line = reader.ReadLine()
line = reader.ReadLine()
line = reader.ReadLine()
line = reader.ReadLine()
Do Until reader.EndOfStream
'start:
line = reader.ReadLine
line = Replace(line, "xxxxxx", "")
line = Replace(line, "xxxxxx", "")
'line = Replace(line, ", ", " ")
If line.StartsWith("xxx xxx-xxxx ") Then
line = reader.ReadLine
line = reader.ReadLine
ElseIf line.StartsWith("xxxxx ") Then
line = reader.ReadLine
ElseIf line.StartsWith("xxxxx") Then
line = reader.ReadLine
line = reader.ReadLine
ElseIf line.StartsWith("xxxxx") Then
line = reader.ReadLine
line = reader.ReadLine
line = reader.ReadLine
line = reader.ReadLine
ElseIf line.StartsWith("xxxxx") Then
line = Replace(line, " ", ",")
writer.Write(line)
ElseIf line.StartsWith("xxxxx") Then
writer.Write(Strings.Left(line, 10))
line = reader.ReadLine
writer.Write(",")
ElseIf line.StartsWith("xxxxxx") Then
line = reader.ReadLine
line = reader.ReadLine
End If
'Write the field value.
writer.Write(line)
If line.StartsWith("xxxxx") Then
'Write a line terminator.
line = reader.ReadLine
line = reader.ReadLine
line = reader.ReadLine
writer.WriteLine()
Else
'Write a field terminator.
writer.Write(",")
End If
Loop
End Using
End Using
MsgBox("Done")
End Sub
Dim line As String = "NEW BRITAIN, CT 06053"
line.Insert(line.LastIndexOf(" "), ",")
Dim line As String = "NEW BRITAIN, CT 06053"
Dim StringArray As String() = line.Split(" ")
Dim NewString As String = ""
For I As Byte = 0 To StringArray.Length - 1
If I = StringArray.Length - 1 Then
NewString &= ", " & StringArray(StringArray.Length - 1)
ElseIf I = 0 Then
NewString &= StringArray(I)
Else
NewString &= " " & StringArray(I)
End If
Next
Do you know that?what's wrong with using Bytes if you know the number will be Unsigned and less than 255?
So, when teaching someone something, it doesnt strike you as being the best time to follow conventions?As for the naming conventions, it's only because it's an example...
Any time youre appending more than once to a string, use a stringbuilderAnd the StringBuilder Class is something I use often, but didn't think it would be necessary with appending less than 5 strings per line.