Dim kasa_wr As System.IO.StreamWriter = New System.IO.StreamWriter(kasa_fs)
kasa_wr.Close()
FileOpen(1, "C:\\kasa\\hesap.txt", OpenMode.Output)
PrintLine(1, hesap_kod+ Space(30 - Len(hesap_kod)) + Mid(hesap_ad, 1, 25))
bu sekıllerde de denedım ama hata aldım
Dim kasa_wr As System.IO.StreamWriter = New System.IO.StreamWriter(kasa_fs, False, Encoding.UTF8)
Dim kasa_wr As System.IO.StreamWriter = New System.IO.StreamWriter(kasa_fs, True, System.Text.Encoding.Default)
hata mesajı :
error 15 Overload resolution failed because no accessible 'New' can be called with these arguments: 'Public Sub New(path As String, append As Boolean, encoding As System.Text.Encoding)': Value of type 'System.IO.FileStream' cannot be converted to 'String'. 'Public Sub New(stream As System.IO.Stream, encoding As System.Text.Encoding, bufferSize As Integer)': Value of type 'Boolean' cannot be converted to 'System.Text.Encoding'. 'Public Sub New(stream As System.IO.Stream, encoding As System.Text.Encoding, bufferSize As Integer)': Value of type 'System.Text.Encoding' cannot be converted to 'Integer'.
","headline":".txt kayıt turunu UTF-8 nasıl yaparım","mainEntity":{"@type":"Question","name":".txt kayıt turunu UTF-8 nasıl yaparım","url":"https://uzmanim.net/soru/txt-kayit-turunu-utf-8-nasil-yaparim/78613","author":{"@type":"Person","name":"metinbeci"},"comment":[{"@type":"Comment","name":"@alattin","author":{"@type":"Person","name":"toprak34"},"text":"@alattin"},{"@type":"Comment","name":"o iş bende @toprak34","author":{"@type":"Person","name":"alattin"},"text":"o iş bende @toprak34"},{"@type":"Comment","name":":) @alattin","author":{"@type":"Person","name":"toprak34"},"text":":) @alattin"}],"commentCount":3,"dateCreated":"2017-05-25T12:35:17.983+03:00","dateModified":"2017-05-27T15:43:53.54+03:00","datePublished":"2017-05-25T12:35:17.983+03:00","keywords":"yazılım","publisher":{"@type":"Organization","name":"uzmanim.net","url":"https://uzmanim.net"},"text":"Merhaba basic ile yazdıgım bir programda c:\\kasa dizinin altında hesap.txt dosyası varmı yokmu diye kontrol ettiriyorum eğer yoksa oluşturuyorum daha sonra içerisine yazdırmak istediklerimi yazdırıyorum fakat dosya kayıt türü türkce karakterden dolayı işimi görmüyor ANSI olarak kaydediyor.ben dosya kayıt türünün UTF-8 olmasını istiyorum yapamadım belki dosya olustukdan sonra formatını değiştirebilirim diye düşünüyorum.Nasıl bir yol izlemem gerekiyor.Kullandıgım kodlar asagıda.
Dim kasa_fs As System.IO.FileStream = New System.IO.FileStream("C:\\kasa\\hesap.txt", IO.FileMode.Create)
Dim kasa_wr As System.IO.StreamWriter = New System.IO.StreamWriter(kasa_fs)
kasa_wr.Close()
FileOpen(1, "C:\\kasa\\hesap.txt", OpenMode.Output)
PrintLine(1, hesap_kod+ Space(30 - Len(hesap_kod)) + Mid(hesap_ad, 1, 25))
bu sekıllerde de denedım ama hata aldım
Dim kasa_wr As System.IO.StreamWriter = New System.IO.StreamWriter(kasa_fs, False, Encoding.UTF8)
Dim kasa_wr As System.IO.StreamWriter = New System.IO.StreamWriter(kasa_fs, True, System.Text.Encoding.Default)
hata mesajı :
error 15 Overload resolution failed because no accessible 'New' can be called with these arguments: 'Public Sub New(path As String, append As Boolean, encoding As System.Text.Encoding)': Value of type 'System.IO.FileStream' cannot be converted to 'String'. 'Public Sub New(stream As System.IO.Stream, encoding As System.Text.Encoding, bufferSize As Integer)': Value of type 'Boolean' cannot be converted to 'System.Text.Encoding'. 'Public Sub New(stream As System.IO.Stream, encoding As System.Text.Encoding, bufferSize As Integer)': Value of type 'System.Text.Encoding' cannot be converted to 'Integer'.
","answerCount":2,"suggestedAnswer":[{"@type":"Answer","name":"StreamWriter'ı şu şekilde oluşturursan hata almayacaksın:
Dim stWriter As New System.IO.StreamWriter(New IO.FileStream(\"C:\\kasa\\hesap.txt\", IO.FileMode.Create), System.Text.Encoding.UTF8)\n
","url":"https://uzmanim.net/soru/txt-kayit-turunu-utf-8-nasil-yaparim/78613#a78621","author":{"@type":"Person","name":"alattin"},"comment":[],"commentCount":0,"dateCreated":"2017-05-25T20:49:21.753+03:00","dateModified":"2017-05-25T20:49:21.753+03:00","text":"
StreamWriter'ı şu şekilde oluşturursan hata almayacaksın:
Dim stWriter As New System.IO.StreamWriter(New IO.FileStream(\"C:\\kasa\\hesap.txt\", IO.FileMode.Create), System.Text.Encoding.UTF8)\n
","upvoteCount":0},{"@type":"Answer","name":"
evet yazdığın şekilde yapınca hata vermiyor ama txt dosyasınıda UTF-8 olarak kayıt etmiyor ANSI yapıyor yani sorun çözülmedi.madem txt UTF-8 olarak kayıt edemiyoruz peki txt olustukdan sonra yapısını değiştirebilirmiyiz mesela
c:\\kasa\\hesap1.xls dosyasını c:\\kasa\\hesap1.doc gibi tabi buradaki ornek uzantıyla ilgili benimki kayıt türü yani char set UTF-8 e sonradan donusturebilirmiyiz.
","url":"https://uzmanim.net/soru/txt-kayit-turunu-utf-8-nasil-yaparim/78613#a78668","author":{"@type":"Person","name":"metinbeci"},"comment":{"@type":"Comment","name":"Ansi olduğunu nereden çıkardın? Yukarıdaki kod utf-8 oluşturur.","author":{"@type":"Person","name":"alattin"},"text":"Ansi olduğunu nereden çıkardın? Yukarıdaki kod utf-8 oluşturur."},"commentCount":1,"dateCreated":"2017-05-27T15:43:53.473+03:00","dateModified":"2017-05-27T15:43:53.473+03:00","text":"evet yazdığın şekilde yapınca hata vermiyor ama txt dosyasınıda UTF-8 olarak kayıt etmiyor ANSI yapıyor yani sorun çözülmedi.madem txt UTF-8 olarak kayıt edemiyoruz peki txt olustukdan sonra yapısını değiştirebilirmiyiz mesela
c:\\kasa\\hesap1.xls dosyasını c:\\kasa\\hesap1.doc gibi tabi buradaki ornek uzantıyla ilgili benimki kayıt türü yani char set UTF-8 e sonradan donusturebilirmiyiz.
","upvoteCount":0}],"upvoteCount":0}}Merhaba basic ile yazdıgım bir programda c:\kasa dizinin altında hesap.txt dosyası varmı yokmu diye kontrol ettiriyorum eğer yoksa oluşturuyorum daha sonra içerisine yazdırmak istediklerimi yazdırıyorum fakat dosya kayıt türü türkce karakterden dolayı işimi görmüyor ANSI olarak kaydediyor.ben dosya kayıt türünün UTF-8 olmasını istiyorum yapamadım belki dosya olustukdan sonra formatını değiştirebilirim diye düşünüyorum.Nasıl bir yol izlemem gerekiyor.Kullandıgım kodlar asagıda.
Dim kasa_fs As System.IO.FileStream = New System.IO.FileStream("C:\kasa\hesap.txt", IO.FileMode.Create)
Dim kasa_wr As System.IO.StreamWriter = New System.IO.StreamWriter(kasa_fs)
kasa_wr.Close()
FileOpen(1, "C:\kasa\hesap.txt", OpenMode.Output)
PrintLine(1, hesap_kod+ Space(30 - Len(hesap_kod)) + Mid(hesap_ad, 1, 25))
bu sekıllerde de denedım ama hata aldım
Dim kasa_wr As System.IO.StreamWriter = New System.IO.StreamWriter(kasa_fs, False, Encoding.UTF8)
Dim kasa_wr As System.IO.StreamWriter = New System.IO.StreamWriter(kasa_fs, True, System.Text.Encoding.Default)
hata mesajı :
error 15 Overload resolution failed because no accessible 'New' can be called with these arguments: 'Public Sub New(path As String, append As Boolean, encoding As System.Text.Encoding)': Value of type 'System.IO.FileStream' cannot be converted to 'String'. 'Public Sub New(stream As System.IO.Stream, encoding As System.Text.Encoding, bufferSize As Integer)': Value of type 'Boolean' cannot be converted to 'System.Text.Encoding'. 'Public Sub New(stream As System.IO.Stream, encoding As System.Text.Encoding, bufferSize As Integer)': Value of type 'System.Text.Encoding' cannot be converted to 'Integer'.
Toplam 2 cevap
StreamWriter'ı şu şekilde oluşturursan hata almayacaksın:
Dim stWriter As New System.IO.StreamWriter(New IO.FileStream("C:\kasa\hesap.txt", IO.FileMode.Create), System.Text.Encoding.UTF8)
evet yazdığın şekilde yapınca hata vermiyor ama txt dosyasınıda UTF-8 olarak kayıt etmiyor ANSI yapıyor yani sorun çözülmedi.madem txt UTF-8 olarak kayıt edemiyoruz peki txt olustukdan sonra yapısını değiştirebilirmiyiz mesela
c:\kasa\hesap1.xls dosyasını c:\kasa\hesap1.doc gibi tabi buradaki ornek uzantıyla ilgili benimki kayıt türü yani char set UTF-8 e sonradan donusturebilirmiyiz.
alattin 7 yıl önce
Ansi olduğunu nereden çıkardın? Yukarıdaki kod utf-8 oluşturur.