1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
| Try
MFile = New StreamReader(VFile)
Dim NFile As StreamWriter = New StreamWriter(Path.GetPathRoot(VFile) & "\Result.txt")
Dim Vligne As String
Dim CptUnt As Integer = 0
If ZSSegm.Text <> Nothing Then
RTFile.Text = Nothing
While MFile.Peek > 0
Vligne = MFile.ReadLine
If Mid(Vligne, 1, 6) <> ZSSegm.Text Then
If Mid(Vligne, 1, 3) = "UNT" Then
Dim VTest As String = Vligne.ToString
Vligne = Mid(Vligne, 1, 4) & Comble(CptUnt) & Mid(Vligne, 11, Len(Vligne) - 10)
CptUnt = 0
End If
NFile.WriteLine(Vligne)
CptUnt += 1
End If
Me.Refresh()
End While
NFile.Flush()
End If
NFile.Close()
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try |
Partager