Txt dosyasında satırlara numara vermek C#

Katılım
17 Haziran 2008
Mesajlar
1,859
Excel Vers. ve Dili
Microsoft Ofis Profesyonel 2019 x64 TR
Altın Üyelik Bitiş Tarihi
26-03-2020
Merhaba arkadaşlar;

başlıkta da belirttiğim gibi txt dosyasında satırlara nasıl numara verebilirim ?

örnek dosyalar ektedir.



yardımcı arkadaşa şimdiden Teşekkürler.
 
Katılım
20 Şubat 2012
Mesajlar
242
Excel Vers. ve Dili
office2007 Türkçe
Deneyiniz.. C# olarak fikir verebilir.

Kod:
Sub Noekle()
Const ForReading = 1
Const ForWriting = 2

i = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\Users\xxxxx\Desktop\koordinat.txt", ForReading)
Do Until objFile.AtEndOfStream
    strLine = objFile.ReadLine
    strContents = strContents & i & "-" & strLine & vbCrLf '"-" değiştirilebilir yada boş bırakılabilir
    i = i + 1
Loop
objFile.Close
Set objFile = objFSO.CreateTextFile("C:\Users\xxxx\Desktop\Nokoordinat.txt", ForWriting)
objFile.Write strContents
objFile.Close
End Sub
 
Son düzenleme:
Katılım
17 Haziran 2008
Mesajlar
1,859
Excel Vers. ve Dili
Microsoft Ofis Profesyonel 2019 x64 TR
Altın Üyelik Bitiş Tarihi
26-03-2020
Çok teşekkür ediyorum, Tamamdır. Elinize sağlık.

vb6 da çalıştırdım. çalışıyor... aynı kodları C# uyarlayabilirim. Teşekkürler.
 
Üst