VBA ile HTML sayfa kaynağı içindeki script"lerden bilgi okumak.

selenavm · 5 Ağustos 2023

Merhabalar,

https://www.hepsiburada.com/gumush-selenavm-gumus-lotus-cicegi-bayan-kolye-kadin-kolyeleri-925-ayar-en-1-6cm-x-boy-1-8cm-p-HBCV00004JPUD7?magaza=selenavm

Sayfa kaynağını incelediğimde stok adet bilgisinin script içerisinde ("quantity":7) olduğunu görüyorum ilgili bilgiyi VBA kodları ile nasıl alırım. Yardımcı olmanızı rica ederim.

<script>
var viewModelName='product';
var productModel = {"product":{"mainCategoryId":530220,"isAdultProduct":false,"campaignDetail":{"campaignCount":1,"winnerCampaignName":"200 TL üzeri kargo bedava","isBundleCampaignExist":false},"inStockDate":"","inStockDateForHb":"","barcode":"RSLNPT11004352","brand":"Gumush","catalogName":"Kuyumcu","description":"Gümüş Lotus Çiçeği Kadın Kolye Lotus Çiçeği, ruhsallığı, maneviyatı ve temizliği simgeleyen en hoş çiçeklerin başında gelir. Yağmur ormanlarının kirli sularında çiçek açan lotus çiçeği, güzelliği ve saflığı ile budizm ve hinduizm gibi inançlarında sembolü olmayı başarabilmiştir. Bununla birlikte birçok eski medeniyet içinde lotus çiçeği, kutsal sayılır. Lotus çiçeğini özel kılan bir diğer detay ise çiçeğin yetiştiği bölge oluyor. Bilhassa bataklık, çamurlu arazi gibi alanlarda yetişen lotus çiçeği, yetiştiği kirli ortama rağmen temiz kalabiliyor. Üzerine konan tek bir toz zerresini bile temizleyebilen lotus çiçeği, berrak bir güzellik ile karşısına çıkanları selamlıyor. Siz de farklı kültürlerde kutsal sayılan gümüş lotus çiçeği kolyeyi sevdiklerinize armağan edebilir ya da kendinizi ödüllendirebilirsiniz. ya da leylak, leylak çiçeğinin renklerinin temsil eden soluk bir mor tonudur. Bu yılın en çok tercih edilen favori renklerinden biri olan bu şık kolye; doğum günü hediyesi, sevgililer günü veya özel günlerde tercih edilebilecek mükemmel bir seçenektir. Kolye; 925 ayar gümüşten imal edilmiştir. Gümüş üzerine rodyum kaplama yapılmıştır. Diğer kolyelerde olduğu gibi gümüş lotus çiçeği kolye de el emeği ile üretilmiştir. Gümüş ve değerli taşlar nedeniyle belirtilen ortalama ürün ağırlığında ± %10 sapma olabilmektedir.   En : 1.60 cm Boy : 1.80 cm Zincir Boyu : 45.00 cm Ort. Ağırlık : 4.50 gr.","defaultSku":"HBCV00004JPU0A","hasExtraFee":false,"hasScheduledDelivery":true,"isFashionProduct":false,"isBookProduct":false,"isFilteredFashionProduct":false,"lineItemForm":{},"listings":[{"listingId":"6c6b3537-60a7-45fc-923f-47af2adeea5d","merchantName":"selenavm","merchantPageUrl":"/magaza/selenavm","merchantCity":"İSTANBUL","merchantCountry":"TÜRKİYE","dispatchTime":0,"priceText":"TL567,00","unitPriceText":"","buyBoxOrder":1,"vatExcludedPriceText":"TL472,50","sortPriceText":"TL567,00","quantity":7,"sortDueDateText":"01-01-0001 00:00:00","campaigns":[],"specialDayCampaign":null,"dueDateFormatted":"1 Ocak Pazartesi","shipmentInformation":{"currentDate":"0001-01-01T00:00:00","dueDate":"0001-01-01T00:00:00","dueText":null,"cutOffTime":0,"shipmentTimeText":null,"shipmentTimeAsDays":0,"warehouseId":null,"merchantId":null,"checkoutDueText":null,"cutOffDateTime":"0001-01-01T00:00:00+02:00",...............................................................................................................................................................................
</script>

selenavm · 12 Ağustos 2023

Merhabalar, HTML script içinden çekmek istediim bilgiler kırmızı boyadım. Yardımlarınızı rica ederim.

barcode

quantity

sortPriceText

Haluk · 13 Ağustos 2023

C#:

Sub Test()
'   Haluk - 13/08/2023
    Dim i As Integer, URL As String, XMLRequest As New MSXML2.XMLHTTP60, myStr As String
    
    For i = 3 To Sheets("HTTPData").Range("E" & Rows.Count).End(xlUp).Row
        URL = Sheets("HTTPData").Range("E" & i)
        
        XMLRequest.Open "GET", URL, False
        XMLRequest.send
        
        If XMLRequest.Status <> 200 Then
            MsgBox "Sayfaya Ulaþýlamadý"
            Exit Sub
        End If
                
        myStr = XMLRequest.responseText
        
        Range("A" & i) = Trim(Replace(Split(Split(myStr, "{mouseup: handleMouseUpForProductName}"">")(1), "</h1>")(0), vbCrLf, ""))
        Range("B" & i) = "" & Replace(Replace(Replace(Split(Split(myStr, """barcode"":")(1), ",")(0), "[", ""), "]", ""), """", "")
        Range("C" & i) = Split(Split(myStr, """quantity"":")(1), ",")(0)
        Range("D" & i) = Replace(Split(Split(myStr, """sortPriceText"":""TL")(1), "quantity")(0), """,""", "") + 0
    Next
End Sub

.

selenavm · 13 Ağustos 2023

Çok Teşekkür ederim. Allah Razı olsun.

VBA ile HTML sayfa kaynağı içindeki script"lerden bilgi okumak.

selenavm

selenavm

Ekli dosyalar

Haluk

Özel Üye

selenavm