Arama butonu
Bu konudaki kullanıcılar: 1 misafir
3
Cevap
895
Tıklama
0
Öne Çıkarma
Kitabımdaki görseller kitabımın yüzde kaçı?
V
2 yıl (4663 mesaj)
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 :(

DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.

Üye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.

Üye Ol Şimdi Değil



D
2 yıl (200 mesaj)
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 (200 mesaj)
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 (4352 mesaj)
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.