Sözkonusu text dosyanızı C:\Test.txt olarak bilgisayara yerleştirin ve aşağıdaki kodu çalıştırın.
[vb:1:b3c315b9f9]Sub Test()
Dim MyFile As String, MyTempFile As String
Dim FileNum1 As Long, FileNum2 As Long
MyFile = "C:\Test.txt"
MyTempFile = "C:\Temp.txt"
FileNum1 = FreeFile
Open MyFile For Input As #FileNum1
FileNum2 = FreeFile
Open MyTempFile For Output As #FileNum2
While Not EOF(FileNum1)
Line Input #FileNum1, TextData
If TextData = "" Then GoTo ResumeLoop:
Print #FileNum2, TextData
ResumeLoop:
Wend
Close #FileNum2
Close #FileNum1
Kill MyFile
Name MyTempFile As MyFile
End Sub
[/vb:1:b3c315b9f9]
Sn:Haluk Hocam.
Anladığım kadarıyla yazdığınız kodlar ile TXT dosyasında aralardaki boş satırlar silinmekdedir.
Benimde yapmak istediğim TXT dosyasının sonundaki k:: boş satırı silmek.
Bu işlemi bir türlü çözemedim.
Teşekkürler
Sub Test()
Dim MyFile As String, MyTempFile As String
Dim FileNum1 As Long, FileNum2 As Long
Dim TextData
MyFile = "C:\Barkod\DATA.txt"
MyTempFile = "C:\Barkod\Temp.txt"
FileNum1 = FreeFile
Open MyFile For Input As #FileNum1
FileNum2 = FreeFile
Open MyTempFile For Output As #FileNum2
While Not EOF(FileNum1)
Line Input #FileNum1, TextData
If TextData = "" Then GoTo ResumeLoop:
Print #FileNum2, TextData
ResumeLoop:
Wend
Close #FileNum2
Close #FileNum1
Kill MyFile
Name MyTempFile As MyFile
MsgBox "Bitti"
End Sub
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.