Arama butonu
Bu konudaki kullanıcılar: 1 misafir
3
Cevap
643
Tıklama
0
Öne Çıkarma
Kitabımdaki görseller kitabımın yüzde kaçı?
V
2 yıl
Yarbay
Konu Sahibi

Kitabımdaki görseller kitabımın yüzde kaçı? bunu nasıl görebilir anlayabilirim 430 sayfa 2010 resim var ama bazısı kucuk bazısı buyuk ve bana oran lazım :(



D
2 yıl
Teğmen

Ocr programıyla kitabı taratıp word'de çevir, bu dosyaya a.docx ismini ver, dosyayı farklı kaydet deyip düz metin olarak a.txt oluştur. a.txt dosyasını notepad ile aç içindekileri kopyalayıp wordde boş bir sayfaya yapıştırıp kaydet b.docx olsun. Dosya tarayıcısı ile a.docx ve b.docx dosyalarının kaçar bayt yer tuttuğuna bak, a.docx dosyası a baytlık ve b.docx dosyası b baytlık ise, yaklaşık olarak kitabındaki resimler tüm kitabın yüzde 100*(a-b)/a kadardır demek olur.



D
2 yıl
Teğmen

+ya da kitabının döküman olarak taranmış dosyası elindeyse at buluta, linkini yapay zekaya verip ona sor hesaplasın, tabi dosya okuma özelliği için sanırım ücretli üyelik isteyebilir.



G
2 yıl
Yarbay

şöyle bir mantık kurarsın ancak gerçekte hatalı olur dosyadaki tüm sayfaları jpge çevirirsin bir script resimlerdeki beyaz renkleri sayar sayfa toplam pixele oranlar mesela 1. sayfada %25 beyaz renk çıktı demekki sayfanın %25 i boş kalanı dolu aynı şekilde diğer sayfaları da yapıp toplam oranı bulursun

aşağıda power shell ile bi kod yazdım sadece resimlerin olduğu klasörü göster bu işlem uzun ve resim ebatına göre uzun sürer önce bikaç resimle test edersin

function CountPureWhitePixels($imagePath) {
  $bmp = [System.Drawing.Bitmap]::FromFile($imagePath)
  $totalPixels = $bmp.Width * $bmp.Height
  $pureWhiteCount = 0

  $rect = New-Object System.Drawing.Rectangle 0, 0, $bmp.Width, $bmp.Height
  $bmpData = $bmp.LockBits($rect, [System.Drawing.Imaging.ImageLockMode]::ReadOnly, $bmp.PixelFormat)
  $stride = $bmpData.Stride
  $scan0 = $bmpData.Scan0

  $pixelSize = [System.Drawing.Image]::GetPixelFormatSize($bmp.PixelFormat) / 8
  $buffer = New-Object Byte[] ($stride * $bmp.Height)

  [System.Runtime.InteropServices.Marshal]::Copy($scan0, $buffer, 0, $buffer.Length)

  for ($i = 0; $i -lt $buffer.Length; $i += $pixelSize) {
    $blue = $buffer[$i]
    $green = $buffer[$i + 1]
    $red = $buffer[$i + 2]
    $alpha = $buffer[$i + 3]

    # Check for pure white (255, 255, 255, 255 for ARGB)
    if ($alpha -eq 255 -and $red -eq 255 -and $green -eq 255 -and $blue -eq 255) {
      $pureWhiteCount++
    }
  }

  $bmp.UnlockBits($bmpData)
  $bmp.Dispose()
  $total=0
  $result = @{
    "Beyaz Piksel Sayısı" = $pureWhiteCount
    "Toplam Pixel Sayısı" = $totalPixels
    "Beyaz Pixel Oranı"= ($pureWhiteCount/$totalPixels)*100
    "Toplam Pixel Oranı"=$total+($pureWhiteCount/$totalPixels)*100
  }
  return $result
}

$imageDirectory = "C:\Users\goksen\Desktop\Yeni klasör"
$imageFiles = Get-ChildItem -Path $imageDirectory -Filter *.jpg
$totalpage=0
$results = @()
foreach ($imageFile in $imageFiles) {
  $result = CountPureWhitePixels($imageFile.FullName)
  $totalpage= $totalpage+  $result.'Toplam Pixel Oranı'
  
}

$ToplamOran= $totalpage / $imageFiles.Count
Write-Host "Toplam Beyaz Oranı:" $ToplamOran



DH Mobil uygulaması ile devam edin. Mobil tarayıcınız ile mümkün olanların yanı sıra, birçok yeni ve faydalı özelliğe erişin. Gizle ve güncelleme çıkana kadar tekrar gösterme.