Txt dosyasına veri ekleme

[prgmalik]

Txt dosyasına istediğm satıra veri eklemek istiyorum yani 10. satırına(satır artabilir azalabilir) mümkünmüdür.Yardımınız için şimdiden teşekkür ederim.

 

[Huseyinkis]

Merhaba Txt konusunda tam kapsamlı bilgim yok fakat ekteki kodlar ile yeni bir satır eklemiş olursunuz ve sonraki satırları 1 satır kaydıra bilirsiniz.

Eğer 10. satırı silip yeni bir bilgi girmek isterseniz kodlarda değişiklik yapmak gerekecektir.

Sub txt()
Dim Dizi2(1 To 1000000)
Dim Dizi3(1 To 1000000)

Open "C:\Users\Desktop\Data\Dosya.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, AA
If AA <> Empty Then
TXTAdet = TXTAdet + 1
Dizi2(TXTAdet) = AA
End If
Loop
Close #1

For X1 = 1 To TXTAdet
Adet = Adet + 1
If Adet = 10 Then
Dizi3(Adet) = "Eklenecek Yeni bilgi"
X1 = 9
Else
Dizi3(Adet) = Dizi2(X1)
End If
Next X1

Kill "C:\Users\Desktop\Data\Dosya.txt"

Open "C:\Users\Desktop\Data\Dosya.txt" For Append As #1
For T1 = 1 To Adet
Print #1, Dizi3(T1)
Next T1
Close #1

End Sub