txt dosyasında satır silmek

[tamer42]

Merhaba,

Ekli dosyada olduğu gibi;

Bir *.txt (text) dosyasının sonunda bulunan boş satırları makro ile (enter ile geçilmiş) nasıl silebilirim.

İyi Çalışmalar...

 

[Haluk]

Merhaba;

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]

 

[tamer42]

Teşekkürler...

 

[Ongun]

Sayın Haluk,

Bu konu ile ilgili bir sorum olacak. C:\Test.txt dosyasının kopyalanmasına engel koyabilirmiyiz.? Saygılarımla

 

[Haluk]

Sn. Ongun,

Herhangibir dosyanın kopyalanmasına, silinmesine, adının değiştirilmesine .... VBA kodlarıyla engel olamazsınız.

 

[Ongun]

Çok teşekkür ederim. Saygılarımla

 

[Recep İpek]

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

 

[tamer42]

Merhaba;


Bir text dosyanda C:\Test.txt

satır sonuna bir deger eklemek istediğide Örn: "fffffffffffff" gibi, kod üzerinde nasıl bir düzenleme yapılabilir.

teşekkürler, iyi çalışmalar.