Açık İnternet Sayfalarını ".txt" formatında kaydetme

[hamitcan]

Açmış olduğum birden fazla İnternet Sayfasını ".txt" formatında kaydetip kapatmak istiyorum. Şimdiden teşekkürler.

 

[uzmanamele]

merhaba
syn hamitcan,
.txt formatında kaydettiğinizde, görüntülediğiniz sayfadaki birçok gıvır zıvır kaydedilecek, herşey içi içe girecektir. bu dosyada ne olduğunu anlamak bulmaca çözmeye benzer. ne amaçla kullanacağınızı merak ettim?

örneği incelermisiniz.

 

[hamitcan]

Evet haklısınız. Aslına bakarsanız tüm bilgilerin kaydedilmesini istemiyorum. Sadece sayfa içindeki makaleleri almak istiyorum ama bunu nasıl yaparım bilmediğimden bu şekilde işimi görüyor diyebilirim.

 

[Haluk]

Belki Hamit bey'in görüntülediği HTML sayfaları özel olarak buna yönelik hazırlanmış olabilir.

Açık olan tüm IE pencereleri için kullanabileceğiniz kodlar;

Sub HTML_Text()
    Dim objShell As Object
    Dim objIE As Object
    Dim obj As Object
    Dim i As Byte
    Set objShell = CreateObject("Shell.Application")
    For Each obj In objShell.Windows
        If TypeName(obj.Document) = "HTMLDocument" Then
            Set objIE = obj
            i = i + 1
            Open "C:\HTML-" & i & ".txt" For Append As #1
                Print #1, objIE.Document.Body.InnerText
            Close #1
        End If
    Next
End Sub

Kaydedilen dosyalar, "C:\HTML-1.txt", "C:\HTML-2.txt" .... gibi olacaktır.

 

[uzmanamele]

merhaba
syn Haluk yine döktürmüş eline sağlık.
sadece makaleleri kaydetmek istiyorsanız, metni fare ile kopyalayıp word belgesine yapıştırsanız daha iyi olmaz mı?

ek dosya gibi word'e kopyalamak daha kullanışlı olur sanırım.

not: rastgele bir makale seçildi, başka anlam çıkarılmaya çalışılmasın.

 

[ECYavuz]

Sayın Haluk Cidden döktürmüşsünüz...Bu ne muhteşem kod arşivi böyle, elinize sağlık...

 

[hamitcan]

Arkadaşlar teşekkürler. Şu anda, verdiğiniz örnekleri deneme fırsatım yok. En kısa zamanda cevap döneceğim. Bu kısa süre içinde gelen yanıtlar için çok teşekkürler.

 

[hamitcan]

Üstad, aşağıda, kırmızı renk ile belirttiğim satırda, hata verdi.

Sub HTML_Text()
    Dim objShell As Object
    Dim objIE As Object
    Dim obj As Object
    Dim i As Byte
    Set objShell = CreateObject("Shell.Application")
    For Each obj In objShell.Windows
        [color=red]If TypeName(obj.Document) = "HTMLDocument" Then[/color]
            Set objIE = obj
            i = i + 1
            Open "C:\HTML-" & i & ".txt" For Append As #1
                Print #1, objIE.Document.Body.InnerText
            Close #1
        End If
    Next
End Sub

 

[baydeniro]

Teşekkürler sayın Haluk