[ام لارا]

السلام عليكم
عندما اقوم بعمل برنامج لحفظ النصوص فانه يقوم بحفظ الملف بصيغة ال ANSI او UTF-8
وانا اريد حفظه بصيغة ال Unicode
ما هو الكود اللازم لفعل ذلك؟؟

[Sajad]

السلام عليكم

تفضلي:

PHP كود :

Dim sw As New StreamWriter("YourPath", True, System.Text.Encoding.Unicode) 


بالتوفيق ان شاءالله

[ام لارا]

لا اعرف اين اضعه

وهذا الكود كامل

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 


[Sajad]

السلام عليكم

تفضلي الكود بعد التعديل:

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 


[ام لارا]

يضع خط ازرق اسفل StreamWriter

[سعود]

يوجد كود ابسط http://msdn.microsoft.com/en-us/library/...s.80).aspx

[Sajad]

ام لارا كتب :يضع خط ازرق اسفل StreamWriter

الكود يعمل معي بدون مشكلة

لا ادري لماذا لم يعمل معكي

[ام لارا]

اخ سعود لم افهم شى من الرابط .

اخ ساجد ممكن البروجيكت ؟

[سعود]

ام لارا كتب :اخ سعود لم افهم شى من الرابط .


اخ ساجد ممكن البروجيكت ؟

كود :

[color=#000000][FONT=Consolas]My.Computer.FileSystem.WriteAllText(file ,text ,append ,encoding)[/FONT][/color]

كلمة file نستبدلها بمسار حفظ الملف النصي كاملا
وكلمة text نستبدلها بمحتوى مربع النص
وكلمة encode هو اختيار الترميز المطلوب

[Sajad]

السلام عليكم

اختي العزيزة النت جدا ضعيف عندي لم استطع رفع الملف

هذا الكود بشكل كامل:

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 


بالتوفيق ان شاءالله