السلام عليكم ورحمة الله وبركاته
عندي ملف نصي *.txt محفوظ بترميز unicode وعندما حاولت قراءته ووضعة في richtext ظهر لي طلاسم ,اريد اظهاره دون الاضطرار لتغيير صيغة الملف الاصلي
وشكرا
حول قراءة ملف بترميز Unicode
مغلق
السلام عليكم
مبارك عليكم شهر رمضان
ارجو ان تفتوني في هذا الشأن ولكم شكري
أرفق الملف أو جزء منه للتجربة عليه , مع العلم ان دعم الـ VB للـ Unicode يكاد يكون صفر.
إقرأ معى:
----
المثقفون العرب .. المزورون العرب: تأبين محمود درويش نموذجا
ماذا خسر العالم بانحطاط المسلمين ؟!! للعلامه: أبو الحسن الندوى (كتاب هام لكل مسلم).
المنهجية ومقدمات في الطلب (لطلاب العلم الشرعى)
شكرا لك أخي العزيز
كلما في الأمر
لدي ملف تكست محفوظ بصيغة unicode
فتحته بواسطة الفجوال بيسك ووضعته في richtext
ولكن ظهر لي طلاسم
انتهى
...........................................................
وفي الحيقة هذا التكست من مجموع (60تكست) اخذته من الجوال كي اعدل واضيف فيه وساعيده للجول والجوال لايقبل الا ترميز unicode فلا اريد ان اغير التميز ثم اعدل الملف ثم اعيد الترميز لكل الملفات عملية طويلة
أخى أرفق مثال أو جزء من ملف منهم للتجربة.
إقرأ معى:
----
المثقفون العرب .. المزورون العرب: تأبين محمود درويش نموذجا
ماذا خسر العالم بانحطاط المسلمين ؟!! للعلامه: أبو الحسن الندوى (كتاب هام لكل مسلم).
المنهجية ومقدمات في الطلب (لطلاب العلم الشرعى)
لماذا لم تفتحه في المفكرة notepad والتعديل عليه حيث يظهر انك ستقوم بالتعديل عليه يدويا والمفكرة تدعم صيغة اليونيكود؟
اما اذا كان هناك امر اخر يمكنك على الاقل فتح الملف في المفكرة notepad واعمل save as (طبعا دون عمل تخزين ) حيث ستجد هناك خيار encoding بحيث تعرف نوع اليونيكود الموجود هل هو Unicode او UTF-8
وبعد ذلك اخبرنا ما هو الترميز وما هي الطريقة التي استخدمتها في قراءة الملف
"First they ignore you, then they laugh at you, then they attack you, then you win"
===
اقتباسحُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا
هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا
الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا
القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ
لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ
البردوني "أبو تمام وعروبة اليوم" 1971
===
اقتباسعبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــمو تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "
اشكركم على محاولة المساعدة
هذا المرفق موجود به البرنامج و ملفين نصيين بترميزين مختلفين احدهما UNICODE وفيهما نفس العبارة :السلام عليكم ورحمة الله وبركاته
افتح البرنامج ثم ادخل 1 وهوالملف الاول فينقل لك العبارة بصورة صحيحة
ثمم افتح البرنامج وادخل رقم2 وهو الملف بترميز UNICODE ولكن يظهر لك طلاسم
اريده ان يقرا ترميز UNICODE بصورة صحيحة
-- اخي طارق اعرف هذه الفكرة بس لي هدف من صناعة هذا البرنامج ومحاولة فتح المستند به فهو لصناعة اسئلة خاصة ببرنامج على الجوال
-- اخي سفير: والله لم افهم شي وانا مبتدئ جداجدا
تم تعديل هذه المشاركة بواسطة الدفار في 13 سبتمبر 2007 في 12:36
لقراءة الملف استخدم الكود التالي :
Dim st As New Stream Set st = New Stream st.Charset = "unicode" 'or "windows-1256" st.Open st.LoadFromFile (FileName) Dim sx As String sx = st.ReadText st.Close
للتخزين استخدم التالي :
Dim st As New Stream Dim sx As String Set st = New Stream st.Charset = "unicode" 'or "windows-1256" st.Open st.WriteText sx st.SaveToFile FileName
st.Close
لكن تحتاج الى ’microsoft data object 2.6 فاعلى حيث يمكن اضافته من
project --> references
ولقراءة الملف رقم 1 تحتاج الى تغيير
st.Charset = "windows-1256"
اقتباس-- اخي سفير: والله لم افهم شي وانا مبتدئ جداجدا
لا أعلم ما المشكلة؟! هناك ملف مرفق في الوصلة التي أشرت إليها كان عليك تحميله ومن ثم إستخدام إحدى الطرق الثلاث الموجودة فيه ... كونك مبتدئ لا يعني أنك لا تبذل جهداً لمعرفة الحل بنفسك , ناهيك أن الحل جاهز وما عليك إلا الإستخدام ...
ما علينا...
في المرفقات مثال عدل فيه كما تشاء ...
TextBox المضافة في المثال هي من ضمن "Microsoft Form 2.0 Object Libaray" أضفها من component\control ... وهي تدعم اليونيكود نوعاً ما ...
شهر مبارك على الجميع
"First they ignore you, then they laugh at you, then they attack you, then you win"
===
اقتباسحُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا
هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا
الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا
القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ
لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ
البردوني "أبو تمام وعروبة اليوم" 1971
===
اقتباسعبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــمو تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "
الدفار كتب:ونجح الامر فعلا مع القراءة لكن حدثت مشكلة في الحفظ
المشكلة عدم وجود بيانات لكتابتها لذا ضع قيمة فقط ل SX او البيانات المفترض كتابتها
sx= "12345"
كذلك ارجو الانتباه عندما يككون الملف موجود وتريد اعادة الكتابة عليه يجب استخدام
st.SaveToFile FileNAME, adSaveCreateOverWrite
السلام عليكم ورحمة الله وبركاته... صياما مقبولا ان شاء الله
الأخ سفر: كلامك صحيح ولم اتنبه للملف الذي ذكرت
استخدمت طريقتك ولكن عند القراءة يظهر لي دائما علامة استفهام في بداية اول سطر فمثلا في التكست كلمة (خالد) وعند نقلها للفورم في الرتش بوكس تظهر كما يلي (؟خالد)
وشكرا لكما على الاهتمام
تم تعديل هذه المشاركة بواسطة الدفار في 14 سبتمبر 2007 في 14:36
حبيت اسجل شكري وتقديري للاخ طارق فقد نجحت طريقته معي وتم حل المشكلة
وعموما هذا الموضوع بحثت عنه في المنتدى وقد يستفيد منه الاخرين
والفضل لله ثم لاخي طارق
هذا الموضوع مغلق.