منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

الصفحات : 1 2

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

السلام عليكم

تفضلي:

PHP كود :

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

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

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

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

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 

السلام عليكم

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

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

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

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

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

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

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

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

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

كود :

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

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

السلام عليكم

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

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

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 

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

الصفحات : 1 2

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

ام لارا

Sajad

ام لارا

Sajad

ام لارا

سعود

Sajad

ام لارا

سعود

Sajad