txt son satırı almak

[uchak]

öncelikle herkeze kolay gelsin
arkadaslar benim problemim bir txt dosyam var ve gunluk olarak hergun
bır satır verı bunun en alt kısmına gelıyor
degerler arası 1tab uzunlugunda
ben access veya exel de bır dosya yapıp hergun bu txt dosyasındakı son dolu satırı almak istiyorum.
Cok denedim ama olmadı
yada ben cok karıstırdım.
yardım edebilecek bir arkadaş olursa çok makbule geçecek.

Şimdiden Teşekkürler.

 

[halit3]

Bunu denermisiniz.

Sub txt_veri_al()
Dim sat, i, b
b = Application.GetOpenFilename
If b = False Then
Exit Sub
End If
Open Dir(b) For Input As #1
Do While Not EOF(1)
Line Input #1, deg
sat = sat + 1
Loop
Close #1
Open Dir(b) For Input As #1
Do While Not EOF(1)
Line Input #1, deg
i = i + 1
If i = sat Then
MsgBox "En son Veri " & Chr(10) & deg & "", vbOKOnly + vbInformation, "uyarı"
End If
Loop
Close #1
    
End Sub

 

[Necdet]

Merhaba,

Halit bey yanıtlamış, benim yoğurt yememde ikinci bir seçenek olsun

Dosya Sürüce ve Adını kendinize göre uyarlayınız. Aşağıda kırmızı olarak belirtilen yerdir bu.

Sub Text_Dosyasi_Son_Satiri_Al()
    Dim i       As Long, _
        Satir   As Variant
    
    Open Dir("[B][COLOR=red]C:\Dosya.txt[/COLOR][/B]") For Input As #1
    
    Do While Not EOF(1)
        i = i + 1
        Line Input #1, Satir
    Loop
    Close #1
    
    MsgBox "Son Satır : " & i & " Değer : " & Satir
    
End Sub

 

[halit3]

Necdet Bey aslında kod ile dosyayı iki defa açma sebebim soru sorulduktan sonra başka sorularında geleceğinden dolayı yapmıştım.
örneğin son dolu 5 satır

yoksa sizin kodunuz daha sade aşağıdaki gibide yapılabilir.

Sub txt_veri_al()
Dim b
b = Application.GetOpenFilename
If b = False Then
Exit Sub
End If
Open Dir(b) For Input As #1
Do While Not EOF(1)
Line Input #1, deg
Loop
Close #1
MsgBox "En son Veri " & Chr(10) & deg & "", vbOKOnly + vbInformation, "uyarı"
 
End Sub

burasıda son 10 satırı sayfaya yazıyor

Sub txt_veri_al()
Dim b, i, j, sat
Dim satır(650000)
b = Application.GetOpenFilename
If b = False Then
Exit Sub
End If
Open Dir(b) For Input As #1
Do While Not EOF(1)
Line Input #1, deg
i = i + 1
satır(i) = deg
Loop
Close #1
For j = i - 10 To i
sat = sat + 1
Cells(sat, 1).Value = satır(j)
Next
End Sub

 

[Necdet]

Necdet Bey aslında kod ile dosyayı iki defa açma sebebim soru sorulduktan sonra başka sorularında geleceğinden dolayı yapmıştım.
örneğin son dolu 5 satır

yoksa sizin kodunuz daha sade aşağıdaki gibide yapılabilir.

Sizde haklısınız Halit bey, soru sonrası neler gelebileceğini düşünmek te gerekir.