+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : سؤال عن حفظ ال txt بصيغة ال unicode (/showthread.php?tid=7108)
الصفحات:
1
2
سؤال عن حفظ ال txt بصيغة ال unicode - ام لارا - 24-11-12
السلام عليكم
عندما اقوم بعمل برنامج لحفظ النصوص فانه يقوم بحفظ الملف بصيغة ال ANSI او UTF-8
وانا اريد حفظه بصيغة ال Unicode
ما هو الكود اللازم لفعل ذلك؟؟
سؤال عن حفظ ال txt بصيغة ال unicode - Sajad - 24-11-12
السلام عليكم
تفضلي:
PHP كود :
Dim sw As New StreamWriter("YourPath", True, System.Text.Encoding.Unicode)
بالتوفيق ان شاءالله
سؤال عن حفظ ال txt بصيغة ال unicode - ام لارا - 24-11-12
لا اعرف اين اضعه
وهذا الكود كامل
PHP كود :
Dim path As String = ("d://lara/" & TextBox2.Text & " .txt")
Dim sw As System.IO.StreamWriter
If System.IO.File.Exists(path) = False Then
sw = System.IO.File.CreateText(path)
sw.WriteLine(TextBox1.Text)
sw.Flush()
sw.Close()
End If
سؤال عن حفظ ال txt بصيغة ال unicode - Sajad - 24-11-12
السلام عليكم
تفضلي الكود بعد التعديل:
PHP كود :
Dim path As String = ("d://lara/" & TextBox2.Text & " .txt")
If System.IO.File.Exists(path) = False Then
Dim sw As New StreamWriter(path, True, System.Text.Encoding.Unicode)
sw.WriteLine(TextBox1.Text)
sw.Flush()
sw.Close()
End If
سؤال عن حفظ ال txt بصيغة ال unicode - ام لارا - 24-11-12
يضع خط ازرق اسفل StreamWriter
سؤال عن حفظ ال txt بصيغة ال unicode - سعود - 24-11-12
يوجد كود ابسط http://msdn.microsoft.com/en-us/library/27t17sxs(v=vs.80).aspx
سؤال عن حفظ ال txt بصيغة ال unicode - Sajad - 24-11-12
ام لارا كتب :يضع خط ازرق اسفل StreamWriter
الكود يعمل معي بدون مشكلة
لا ادري لماذا لم يعمل معكي
سؤال عن حفظ ال txt بصيغة ال unicode - ام لارا - 24-11-12
اخ سعود لم افهم شى من الرابط .
اخ ساجد ممكن البروجيكت ؟
سؤال عن حفظ ال txt بصيغة ال unicode - سعود - 24-11-12
ام لارا كتب :اخ سعود لم افهم شى من الرابط .
اخ ساجد ممكن البروجيكت ؟
كود :
[color=#000000][FONT=Consolas]My.Computer.FileSystem.WriteAllText(file ,text ,append ,encoding)[/FONT][/color]كلمة file نستبدلها بمسار حفظ الملف النصي كاملا
وكلمة text نستبدلها بمحتوى مربع النص
وكلمة encode هو اختيار الترميز المطلوب
سؤال عن حفظ ال txt بصيغة ال unicode - Sajad - 24-11-12
السلام عليكم
اختي العزيزة النت جدا ضعيف عندي لم استطع رفع الملف
هذا الكود بشكل كامل:
PHP كود :
Imports System.IO
Public Class Form1
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim path As String = ("p.txt")
If System.IO.File.Exists(path) = False Then
Dim sw As New StreamWriter(path, True, System.Text.Encoding.Unicode)
sw.WriteLine(TextBox1.Text)
sw.Flush()
sw.Close()
End If
End Sub
End Class
بالتوفيق ان شاءالله