- Katılım
- 15 Mart 2005
- Mesajlar
- 42,247
- Excel Vers. ve Dili
- Microsoft 365 Tr-En 64 Bit
Selamlar,
Aşağıda Sn. Haluk beye ait kodlara belirli kriterler eklemek istiyorum.
Kriterlerim;
1- Boş olan satırlar silinecek.
2- 21-05-2006 tarihinden küçük ve 20-06-2006 tarihinden büyük tarih içeren satırlar silinecek.
3- İçerisinde "running" geçen satırlar silinecek.
Sonuç olarak aslında 2. kriterime uymayan bütün gereksiz satırları silmek istiyorum.
Aşağıda Sn. Haluk beye ait kodlara belirli kriterler eklemek istiyorum.
Kriterlerim;
1- Boş olan satırlar silinecek.
2- 21-05-2006 tarihinden küçük ve 20-06-2006 tarihinden büyük tarih içeren satırlar silinecek.
3- İçerisinde "running" geçen satırlar silinecek.
Sonuç olarak aslında 2. kriterime uymayan bütün gereksiz satırları silmek istiyorum.
Kod:
Sub GereksizSatırlarıSil()
Dim MyFile As String, MyTempFile As String
Dim FileNum1 As Long, FileNum2 As Long
MyFile = "C:\DATA.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
MsgBox "İşlem başarıyla tamamlanmıştır.", vbInformation
End Sub