Bunun yerine çalışan bir programın; ismi deme4521. exe olsun bu programın print screen 'ini almakta işimi görür.

Gitmeeee postu değiştirdim aynı anda yazmışız

Edit : Kodları 50kb bir dosyada denemiştim. Süper çalışıyordu. Olamaz hayır.85 mb bir txt dosyasını forma yazdırmak 5 dakika sürdü İşte ben büyük boyutlu dosyalarla uğraşacağım için bu kodları kullanmam programı aksatacak. Başka bir yolunu bulabilirsek çok iyi olur. O txt dosyasının forma geçirilmesi çok büyük külfiyet. -

While Not EOF(1) Line Input

S. a C:\deneme. txt dosyasını tek tek okumadan (yaklaşık 80mb :d ) kaç satırdan oluştuğunu bulmak ve bunun son 10 satırını text1'e aktarmak istiyorum. Çok önemli bir konu yardımlarınız için şimdiden teşekkürler.

dostum onu da şöyle yapacaksın cd. action=1 i sil ve cd. filename i sil filename in yazılı olduğu yere direk dizini yaz bu kadar basit

Exit Sub hata: End Sub Private Sub Form_Load On Error Resume Next cd. Action = 1 Call FileNameOkU(cd. filename, List1) Dim t t = List1. ListCount - 11 List1. ListIndex = t For a = t To List1. ListCount - 2 List1. ListIndex = List1. ListIndex + 1 Text1. Text = Text1. Text & List1. Text Next Text1. Text = Text1. Text & " listedeki satır sayısı >" & List1. ListCount DoEvents End Sub Bu kadar basit bir kod ama txt dosyalarında tam doğru sonuç olmasına rağmen diğer uzantılarda hata veriyor Yani satır sayısı konusunda yanlış bilgi veriyor. iki dakikada halletmiş olduk bunu da turkhacking

Bence bu kod çok basit ama metnin boyutundan ötürü bir düzensizlik çıkabilir Mantığını ve kodları vereyim hemen Dostum şimdi ilk önce bir textbox bir commondiolog ve bir adet listbox ekle projene ve aşağıdaki kodları aynen formun kod penceresine geçir Kod: Sub FileNameOkU Dim str As String On Error GoTo hata: Change = False Open filename For Input As