1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
#Leer el contenido de un fichero en ASCII Write-Host "Contenido del fichero BMP blanco en ASCII" gc .\blanco.bmp Write-Host "Contenido del fichero BMP negro en ASCII" gc .\negro.bmp #Leer el contenido del fichero BMP blanco en decimal y representar cada símbolo decimal en hexadecimal Write-Host "Contenido del fichero BMP blanco en hexadecimal" $val=[System.IO.File]::ReadAllBytes('.\blanco.bmp') 0..($val.Length-1) | %{ $cadenah=[System.String]::Format("{0:X}", [System.Convert]::ToUInt32($val[$_])) Write-Host $cadenah " " -NoNewline } Write-Host "" #Leer el contenido del fichero BMP blanco en decimal y representar cada símbolo decimal en hexadecimal Write-Host "Contenido del fichero BMP negro en hexadecimal" $val=[System.IO.File]::ReadAllBytes('.\negro.bmp') 0..($val.Length-1) | %{ $cadenah=[System.String]::Format("{0:X}", [System.Convert]::ToUInt32($val[$_])) Write-Host $cadenah " " -NoNewline } |