1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 |
#IMPORTANT #Path file #Character █ #Quotes $Cave = [System.Drawing.Bitmap]::FromFile( '.\juan2.jpg' ) $i=0 for ($x = 0;$x -lt $Cave.Height;$x+=1) { for ($y = 0;$y -lt $Cave.Width;$y+=1) { if ($i -lt $Cave.Width -1) { $com ="<font size="" 2""="" color="" "="" +="" ($cave.getpixel($y,$x).name).substring(2,6)="" """="">█</font>" $i=$i+1 } else { $com = " " $i=0 $a=0 } $com | Out-File traducir2.html -Append } } |