- Katılım
- 7 Ağustos 2011
- Mesajlar
- 319
- Excel Vers. ve Dili
- 2003-2010 Türkçe
- Altın Üyelik Bitiş Tarihi
- 25/05/2022
Merhaba Arkadaşlar,
Uzun aramalar sonucunda internetten bulduğum bir kodda düzenleme yapmak istedim fakat işin içinden çıkamadım.
Sub Test()
Dim MyFile As String, MyTempFile As String
Dim NewData1 As String, NewData2 As String
Dim LineNo1 As Integer, LineNo2 As Integer, X As Integer
Dim FileNum1 As Long, FileNum2 As Long
MyFile = "C:\Users\aaaa\Desktop\a1.txt"
MyTempFile = "C:\aaaa\mgokturk\Desktop\temp.txt"
LineNo1 = 3
LineNo2 = 5
NewData1 = "Yeni veri - 1"
NewData2 = "Yeni veri - 2"
FileNum1 = FreeFile
Open MyFile For Input As #FileNum1
FileNum2 = FreeFile
Open MyTempFile For Output As #FileNum2
While Not EOF(FileNum1)
X = X + 1
Line Input #FileNum1, TextData
If X = LineNo1 Then
TextData = NewData1
ElseIf X = LineNo2 Then
TextData = NewData2
End If
Print #FileNum2, TextData
Wend
Close #FileNum2
Close #FileNum1
Kill MyFile
Name MyTempFile As MyFile
End Sub
Yukarıdaki kodla sadece a1.txt dosyasının 3. ve 5.satırına veri eklenebiliyor.
İstediğim: txt uzantılı birden fazla dosya var. txt dosyalarının sadece bir tanesini, 3.satırda olabilir 15.satırda olabilir aynı verileri txt uzantılı dosyaların hepsine ekleyebilir miyim? (örnek 5.satıra Yeni veri - 1 eklemek istiyorum)
Yardımlarınız için şimdiden teşekkür ederim.
Uzun aramalar sonucunda internetten bulduğum bir kodda düzenleme yapmak istedim fakat işin içinden çıkamadım.
Sub Test()
Dim MyFile As String, MyTempFile As String
Dim NewData1 As String, NewData2 As String
Dim LineNo1 As Integer, LineNo2 As Integer, X As Integer
Dim FileNum1 As Long, FileNum2 As Long
MyFile = "C:\Users\aaaa\Desktop\a1.txt"
MyTempFile = "C:\aaaa\mgokturk\Desktop\temp.txt"
LineNo1 = 3
LineNo2 = 5
NewData1 = "Yeni veri - 1"
NewData2 = "Yeni veri - 2"
FileNum1 = FreeFile
Open MyFile For Input As #FileNum1
FileNum2 = FreeFile
Open MyTempFile For Output As #FileNum2
While Not EOF(FileNum1)
X = X + 1
Line Input #FileNum1, TextData
If X = LineNo1 Then
TextData = NewData1
ElseIf X = LineNo2 Then
TextData = NewData2
End If
Print #FileNum2, TextData
Wend
Close #FileNum2
Close #FileNum1
Kill MyFile
Name MyTempFile As MyFile
End Sub
Yukarıdaki kodla sadece a1.txt dosyasının 3. ve 5.satırına veri eklenebiliyor.
İstediğim: txt uzantılı birden fazla dosya var. txt dosyalarının sadece bir tanesini, 3.satırda olabilir 15.satırda olabilir aynı verileri txt uzantılı dosyaların hepsine ekleyebilir miyim? (örnek 5.satıra Yeni veri - 1 eklemek istiyorum)
Yardımlarınız için şimdiden teşekkür ederim.