• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

html veriyi düz metine çevirme

  • Konbuyu başlatan Konbuyu başlatan ci-an
  • Başlangıç tarihi Başlangıç tarihi
C

ci-an

Katılım
12 Eylül 2011
Mesajlar
13
Excel Vers. ve Dili
2007 türkçe
Merhaba,

Excel tablomda html kod içeren veriler mevcut. Bu verileri düz metine nasıl çevirebilirim acaba?
 
Son düzenleme:
Hücreleri seçip mouse sağ klik yaparak açılan menüde remove hyperinks yapman yeterli

eğer hangi hücrelerde html link var bilmiyorsan tüm hücrelerde buluınan html linkleri kaldırsın tümden istiyorsan aşağıdaki makro kodlada bunu çözebilirsin
Kod: 
Sub RemoveHyperlinks()
ActiveSheet.Hyperlinks.Delete
End Sub
 
Yanıt için teşekkürler.

Ancak bahsettiğim link değil. Hücre içeriğinde aşağıdaki gibi kod var.

________________

<p><span style"border: 0px; font-weight: inherit; font-stretch: inherit; line-height: 20px; vertical-align: baseline; margin: 0px; padding: 0px; color: rgb0, 0, 0;"><span style"border: 0px; font-style: inherit; font-variant: inherit; font-weight: inherit; font-stretch: inherit; line-height: inherit; vertical-align: baseline; margin: 0px; padding: 0px; color: rgb255, 0, 0; font-size: 13px important;"><span style"border: 0px; font-size: medium; font-style: inherit; font-variant: inherit; font-weight: inherit; font-stretch: inherit; line-height: inherit; vertical-align: baseline; margin: 0px; padding: 0px;">&Uuml;R&Uuml;N BİLGİLERİ&nbsp;</span></span></span><br style"color: rgb0, 0, 0; font-size: 11px; line-height: 20px;" /><br style"color: rgb0, 0, 0; font-size: 11px; line-height: 20px;" /><span style"border: 0px; font-size: medium; font-stretch: inherit; line-height: 20px; vertical-align: baseline; margin: 0px; padding: 0px; color: rgb0, 0, 0;">3D &nbsp;&Ccedil;ift Kişilik Nevresim Takımı<br />Marka : Cotton Box<br />Nevresim : 200220cm<br />&Ccedil;arşaf : 240260cm<br />Yastık : 5070cm 2 adet </span><br style"color: rgb0, 0, 0; font-size: 11px; line-height: 20px;" /><br style"color: rgb0, 0, 0; font-size: 11px; line-height: 20px;" /><span style"border: 0px; font-size: medium; font-stretch: inherit; line-height: 20px; vertical-align: baseline; margin: 0px; padding: 0px; color: rgb0, 0, 0;"> 100 Pamuk.</span><br style"color: rgb0, 0, 0; font-size: 11px; line-height: 20px;" /><br style"color: rgb0, 0, 0; font-size: 11px; line-height: 20px;" /><span style"border: 0px; font-size: medium; font-stretch: inherit; line-height: 20px; vertical-align: baseline; margin: 0px; padding: 0px; color: rgb0, 0, 0;"><img alt"" src"https://www.ceyizdiyari.com/images/cottonboxlogo.png" style"width: 135px; height: 120px;" />&nbsp;<img alt"" src"http://www.ceyizdiyari.com/images/orginal.jpg" style"border: medium none; font-family: inherit; font-size: inherit; font-style: inherit; font-variant: inherit; font-weight: inherit; font-stretch: inherit; line-height: inherit; vertical-align: baseline; margin: 0px; padding: 0px; width: 101px; height: 100px;" /><br /><br />&Uuml;r&uuml;nlerimiz 2 yıl ceyizdiyari garantisi altındadır..</span><br style"color: rgb0, 0, 0; font-size: 11px; line-height: 20px;" /><br style"color: rgb0, 0, 0; font-size: 11px; line-height: 20px;" /><span style"border: 0px; font-stretch: inherit; line-height: 20px; vertical-align: baseline; margin: 0px; padding: 0px; color: rgb255, 0, 0; font-size: 13px important;"><span style"border: 0px; font-family: inherit; font-style: inherit; font-variant: inherit; font-weight: inherit; font-stretch: inherit; line-height: inherit; vertical-align: baseline; margin: 0px; padding: 0px;"><span style"border: 0px; font-size: medium; font-style: inherit; font-variant: inherit; font-weight: inherit; font-stretch: inherit; line-height: inherit; vertical-align: baseline; margin: 0px; padding: 0px;">YIKAMA TALİMATI&nbsp;</span></span></span><br /><br style"color: rgb0, 0, 0; font-size: 11px; line-height: 20px;" /><span style"border: 0px; font-size: medium; font-stretch: inherit; line-height: 20px; vertical-align: baseline; margin: 0px; padding: 0px; color: rgb0, 0, 0;">-Makinada veya elde yıkayabilirsiniz max 40 derecede yıkayınız.<br />-İlk yıkamayı ılık su ile ters &ccedil;evirerek yıkayınız.her zaman ters yıkamanız &uuml;r&uuml;n &ouml;mr&uuml;n&uuml; uzatır.<br />-&Ccedil;amaşır suyu ile leke s&ouml;k&uuml;c&uuml; kimyasallar kullanmayınız.<br />-Yıkama esnasında koyu renkleri m&uuml;mk&uuml;n olduğunca ayrı tutunuz.<br />-Ilık &uuml;t&uuml; ile &uuml;t&uuml;leyiniz.<br />-Islak bekletmeyiniz.</span></p><div style"border: 0px; font-size: 11px; font-stretch: inherit; line-height: 20px; vertical-align: baseline; margin: 0px; padding: 0px; color: rgb0, 0, 0;"><span style"border: 0px; font-size: medium; font-style: inherit; font-variant: inherit; font-weight: inherit; font-stretch: inherit; line-height: inherit; vertical-align: baseline; margin: 0px; padding: 0px;">-Kurutma makinasında kurutulabilir.</span></div>

___________________________________________

Buradaki kod yani yazının kaynak kodunu düz metine dönüştürmek istiyorum.

İşlemi yaptığımda şu sonucu almak istiyorum.


____________________________

ÜRÜN BİLGİLERİ

3D Çift Kişilik Nevresim Takımı
Marka : Cotton Box
Nevresim : 200220cm
Çarşaf : 240260cm
Yastık : 5070cm 2 adet

100 Pamuk.



Ürünlerimiz 2 yıl ceyizdiyari garantisi altındadır..

YIKAMA TALİMATI

-Makinada veya elde yıkayabilirsiniz max 40 derecede yıkayınız.
-İlk yıkamayı ılık su ile ters çevirerek yıkayınız.her zaman ters yıkamanız ürün ömrünü uzatır.
-Çamaşır suyu ile leke sökücü kimyasallar kullanmayınız.
-Yıkama esnasında koyu renkleri mümkün olduğunca ayrı tutunuz.
-Ilık ütü ile ütüleyiniz.
-Islak bekletmeyiniz.

-Kurutma makinasında kurutulabilir.

______________________________________________
 
Bu şekilde düzeltmek pek mümkün gözükmüyor. Bunun yerine bu verinin alınacağı site linkini verirseniz daha kolay şekilde probleminiz çözülebilir.
 
HTML kodunu her nereden alıyorsanız farklı bir şekilde alın. Çünkü ilk baştaki sorun html tag işaretleri yani "<" ve ">" çıkmamış. Bu işaretler bul-değiştir ile yapılabilir ancak bu defa Türkçe harflerde sorun çıkıyor.
 
Merhaba,
Yukarıda pek mümkün gözükmüyor demiştim ama farklı bir şekilde düşününce sanırım oldu.
Ekli dosyada A1 hücresine yazdığınız kodu B1 hücresinde metne dönüştürür.
Türkçe karakterlerde koda ilave gerekebilir...
Kod: 
Sub Kod()
bul = Array("&Uuml;", "&Ccedil;", "&uuml;", "&ouml;", "&Ouml;", "&ccedil;", "&nbsp;", ">", "<")
deg = Array("Ü", "Ç", "ü", "ö", "Ö", "ç", "", ">", "<")
metin = Range("A1")
For a = LBound(bul) To UBound(bul)
    metin = Replace(metin, bul(a), deg(a))
Next
Set IE = CreateObject("InternetExplorer.Application")
With IE
    .Navigate "About:blank"
    .Document.Open
    .Document.Write "<HTML>" & metin & "</HTML>"
    .Document.Close
    Range("B1") = .Document.all(0).innertext
    IE.Quit
End With
End Sub
 

Ekli dosyalar

çoklu değişiklik

Merhaba, bütün kolonda toplu şekilde değişiklik yapmak istiyorum yazdığınız kodda. Yani a1 den a1500 e kadar tek seferde. Nasıl yapabilirim. Şimdiden teşekkür ederim.
 
Merhaba bu konu için yardım edecek biri var mı acaba yukarıdaki kod'a a1 hücresinden a1500 hücresine kadar hepsini tek seferde çevirecek kod düzenlemesi yapılabilir mi ?
Şimdiden teşekkürler,
 
Verilerin A2 hücresinden başlayarak aşağıya doğru devam ettiğini düşünürsek, şöyle olabilir...

C#: 
Sub Test()
'   Haluk - 08/03/2021
'   sa4truss@gmail.com
    Dim NoA As Long, htmlFile As Object
    
    NoA = Range("A" & Rows.Count).End(xlUp).Row
    
    Set htmlFile = CreateObject("HTMLFILE")
    
    For i = 2 To NoA
        htmlFile.body.innerHTML = Range("A" & i).Text
        Range("B" & i) = htmlFile.body.innerText
    Next
End Sub

.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst