dsurucu
Hem VB.NET hem de C# ile TXT dosyasındaki binary kodunu okuyup orijinal dosyaya dönüştürme işlemini gerçekleştiren örnek kodlar aşağıda bulunmaktadır.
C
using System;
using System.IO;
class Program
{
static void Main()
{
// Binary kodların bulunduğu txt dosyasının yolu
string inputFilePath = "binaryCodes.txt";
// Dönüştürülecek dosyanın çıkış yolu
string outputFilePath = "outputFile.bin";
try
{
// Binary kodları txt dosyasından oku
string binaryString = File.ReadAllText(inputFilePath);
// Binary string'i byte dizisine dönüştür
byte[] fileBytes = ConvertBinaryStringToBytes(binaryString);
// Byte dizisini dosyaya yaz
File.WriteAllBytes(outputFilePath, fileBytes);
Console.WriteLine("Dosya başarıyla dönüştürüldü ve kaydedildi.");
}
catch (Exception ex)
{
Console.WriteLine("Hata: " + ex.Message);
}
}
static byte[] ConvertBinaryStringToBytes(string binaryString)
{
int numOfBytes = binaryString.Length / 8;
byte[] bytes = new byte[numOfBytes];
for (int i = 0; i < numOfBytes; i++)
{
string byteString = binaryString.Substring(8 * i, 8);
bytes[i] = Convert.ToByte(byteString, 2);
}
return bytes;
}
}
VB.NET
Imports System
Imports System.IO
Module Module1
Sub Main()
' Binary kodların bulunduğu txt dosyasının yolu
Dim inputFilePath As String = "binaryCodes.txt"
' Dönüştürülecek dosyanın çıkış yolu
Dim outputFilePath As String = "outputFile.bin"
Try
' Binary kodları txt dosyasından oku
Dim binaryString As String = File.ReadAllText(inputFilePath)
' Binary string'i byte dizisine dönüştür
Dim fileBytes As Byte() = ConvertBinaryStringToBytes(binaryString)
' Byte dizisini dosyaya yaz
File.WriteAllBytes(outputFilePath, fileBytes)
Console.WriteLine("Dosya başarıyla dönüştürüldü ve kaydedildi.")
Catch ex As Exception
Console.WriteLine("Hata: " & ex.Message)
End Try
End Sub
Function ConvertBinaryStringToBytes(binaryString As String) As Byte()
Dim numOfBytes As Integer = binaryString.Length / 8
Dim bytes(numOfBytes - 1) As Byte
For i As Integer = 0 To numOfBytes - 1
Dim byteString As String = binaryString.Substring(8 * i, 8)
bytes(i) = Convert.ToByte(byteString, 2)
Next
Return bytes
End Function
End Module
Bu kod örnekleri, bir TXT dosyasındaki binary kodlarını okuyup, bu binary kodları orijinal dosya haline dönüştürmektedir. Her iki dilde de (C# ve VB.NET) benzer adımlarla işlem yapılmaktadır:
- Binary kodların bulunduğu TXT dosyasını okuma.
- Binary string'i byte dizisine dönüştürme.
- Byte dizisini dosyaya yazma.
Bu kodları kendi dosya yollarınıza göre düzenleyerek kullanabilirsiniz.
