تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
سؤال عن حفظ ال txt بصيغة ال unicode
#1
السلام عليكم
عندما اقوم بعمل برنامج لحفظ النصوص فانه يقوم بحفظ الملف بصيغة ال ANSI او UTF-8
وانا اريد حفظه بصيغة ال Unicode
ما هو الكود اللازم لفعل ذلك؟؟
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم

تفضلي:

PHP كود :
Dim sw As New StreamWriter("YourPath"TrueSystem.Text.Encoding.Unicode

بالتوفيق ان شاءاللهSmile
الرد }}}
تم الشكر بواسطة:
#3
لا اعرف اين اضعه

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

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 
الرد }}}
تم الشكر بواسطة:
#4
السلام عليكم

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

PHP كود :
Dim path As String = ("d://lara/" TextBox2.Text " .txt")
        If 
System.IO.File.Exists(path) = False Then
Dim sw 
As New StreamWriter(pathTrueSystem.Text.Encoding.Unicode)
            
sw.WriteLine(TextBox1.Text)
            
sw.Flush()
            
sw.Close()
End If 
الرد }}}
تم الشكر بواسطة:
#5
يضع خط ازرق اسفل StreamWriter
الرد }}}
تم الشكر بواسطة:
#6
يوجد كود ابسط http://msdn.microsoft.com/en-us/library/...s.80).aspx
الرد }}}
تم الشكر بواسطة:
#7
ام لارا كتب :يضع خط ازرق اسفل StreamWriter

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

لا ادري لماذا لم يعمل معكي
الرد }}}
تم الشكر بواسطة:
#8
اخ سعود لم افهم شى من الرابط .

اخ ساجد ممكن البروجيكت ؟
الرد }}}
تم الشكر بواسطة:
#9
ام لارا كتب :اخ سعود لم افهم شى من الرابط .


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


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

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

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

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

PHP كود :
Imports System.IO
Public Class Form1

    
Private Sub Button1_Click(sender As System.ObjectAs System.EventArgsHandles Button1.Click
        Dim path 
As String = ("p.txt")
        If 
System.IO.File.Exists(path) = False Then
            Dim sw 
As New StreamWriter(pathTrueSystem.Text.Encoding.Unicode)
            
sw.WriteLine(TextBox1.Text)
            
sw.Flush()
            
sw.Close()
        
End If
    
End Sub
End 
Class 

بالتوفيق ان شاءالله
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم