17-11-16, 11:56 PM
كود :
Dim result As New StringBuilder("")
Dim lines As New List(Of String) From { _
" 52389734438 b94393438 b4398374b34 4387 34.3434", _
" 52389734438 b94393438 b4398374b34 4387 34.3434", _
" 52389734438 b94393438 b4398374b34 4387 34.3434", _
"f999 52389734438 b94393438 b4398374b34 4387 34.3434", _
" 52389734438 b94393438 b4398374b34 4387 34.3434"}
For Each line In lines
If line.Trim.Substring(0, 4).ToLower = "f999" Then
result.AppendLine(line)
Else
result.AppendLine("0000 " & Trim(line))
End If
Next
textbox1.text = result.ToStringمع تغيير ما يناسبك ، بالاضافة ان الطريقة التي بالاسطر التي بالاعلى تقرا الملف كامل تعدله تحفظه من جديد
اسم معرفي : محمد يحيى