ماهي طريقة التحويل من شفرة utf-8 إلى شفرة windows-1256

http://laithz.jeeran.com/archive/2005/12/51409.html

الموضوع دة شوية صفحات

شكرا أخي الفاضل على اهتمامك ولكن وجت أن الكود يخص لغه أخرى غير الفيجول بيسك فهل يوجد مثال مبسط بالفيجول بيسك

تصفح دة بليز

http://msdn2.microsoft.com/en-us/library/system.text.aspx

في ASP.Net 2003 يمكن عمل ذلك من خلال web.config بالتغيير في السطر التالي :

	 <globalization requestEncoding="utf-8" responseEncoding="utf-8" />

ولا أعلم ان كان هذا يعمل في 2005

الغريب أن السؤال في منتدى تطبيقات الوندوز

لازالت المسألة لم تحل وتحتاج إلى شرح بالعربي

للرفع

bedoonline كتب:

http://laithz.jeeran.com/archive/2005/12/51409.html

الموضوع دة شوية صفحات

أبو منار كتب:

شكرا أخي الفاضل على اهتمامك ولكن وجت أن الكود يخص لغه أخرى غير الفيجول بيسك فهل يوجد مثال مبسط بالفيجول بيسك

هذا الكود محول لـ Vb .net

	Public Function ConvertUTF8StringEncoding(ByVal StringToConvert As String, Optional ByVal TargetCharSet As String = "windows-1256") As Byte()
		Dim ByteConvertedString() As Byte
		Dim ByteStringToConvert() As Byte
		Dim TargetEncoding As Encoding
		' Convert the string to a Byte array
		ByteStringToConvert = Encoding.UTF8.GetBytes(StringToConvert.ToCharArray)
		' Get the target encoding type
		TargetEncoding = Encoding.GetEncoding(TargetCharSet)
		' Convert the byte array using the target encoding
		ByteConvertedString = Encoding.Convert(System.Text.Encoding.UTF8, TargetEncoding, ByteStringToConvert)
		Return ByteConvertedString
	End Function

	Private Function BinaryUTF8ToString(ByVal Binary() As Byte) As String
		Return System.Text.UnicodeEncoding.UTF8.GetString(Binary)
	End Function






		Dim stringConvertedString As String = BinaryUTF8ToString(ConvertUTF8StringEncoding("FormInput"))