Visual Basic simple application to create ANSI file

[fadzli07]

Salam dan hai kepada Otai2 pengaturcaraan di Carigold, saya ada soalan simple utk ditanyakan,


1--Saya nak buat 1 aplication utk write 1 txt file encoding ANSI, contoh codingnya ialah :


Dim shellini As New System.IO.StreamWriter("aku.txt")
shellini.WriteLine("Hai, nama saya abu bin ali")
shellini.Close()


Penerangan : Coding ini akan create 1 txt file bernama aku.txt yang mana di dalamnya mempunyai perkataan "Hai, nama saya abu bin ali",


cuma masalahnya file aku.txt tu encodingnya ialah UTF-8, minta tolong sesiapa di sini beritahu saya apakah tambahan coding supaya file yang di create itu ber encode ANSI.



Ini contoh aplikasinya, https://www.mediafire.com/?n27h794kd64z6j7

1-Download
2-Letakkan ke dalam 1 Folder
3-Open
4-Tekan Button Create
5-Aplikasi akan create 1 file aku.txt, tapi masalaahnya file aku.txt itu ber encode UTF-8, so bagaimaan nk buat supaya aplikasi itu create file aku.txt encode ANSI.


harap boleh membantu

 

[chuki2]

Salam dan hai kepada Otai2 pengaturcaraan di Carigold, saya ada soalan simple utk ditanyakan,


1--Saya nak buat 1 aplication utk write 1 txt file encoding ANSI, contoh codingnya ialah :


Dim shellini As New System.IO.StreamWriter("aku.txt")
shellini.WriteLine("Hai, nama saya abu bin ali")
shellini.Close()


Penerangan : Coding ini akan create 1 txt file bernama aku.txt yang mana di dalamnya mempunyai perkataan "Hai, nama saya abu bin ali",


cuma masalahnya file aku.txt tu encodingnya ialah UTF-8, minta tolong sesiapa di sini beritahu saya apakah tambahan coding supaya file yang di create itu ber encode ANSI.



Ini contoh aplikasinya, https://www.mediafire.com/?n27h794kd64z6j7

1-Download
2-Letakkan ke dalam 1 Folder
3-Open
4-Tekan Button Create
5-Aplikasi akan create 1 file aku.txt, tapi masalaahnya file aku.txt itu ber encode UTF-8, so bagaimaan nk buat supaya aplikasi itu create file aku.txt encode ANSI.


harap boleh membantu

Tak susah pun, just tambah "Encoding.KoNaKPakaiEncodeApa".

Dim shellini As New System.IO.StreamWriter("aku.txt",false, Encoding.GetEncoding(1250))
'Tulis la code ko kat sini

Refer class encoding disini :

http://msdn.microsoft.com/en-us/library/system.text.encoding.aspx

 

[fadzli07]

Tak susah pun, just tambah "Encoding.KoNaKPakaiEncodeApa".

Dim shellini As New System.IO.StreamWriter("aku.txt",false, Encoding.GetEncoding(1250))
'Tulis la code ko kat sini

Refer class encoding disini :

http://msdn.microsoft.com/en-us/library/system.text.encoding.aspx

X jadi jugak bro, kalau x letak perkataan dia akan jadi ANSI, tapi kalau letak perkataan dia jadi UTF-8 jugak.




Dim shellini As New System.IO.StreamWriter("aku.txt", False, Encoding.Default)


shellini.WriteLine("Hai, nama saya abu bin ali")
shellini.Close()

 

[chuki2]

X jadi jugak bro, kalau x letak perkataan dia akan jadi ANSI, tapi kalau letak perkataan dia jadi UTF-8 jugak.




Dim shellini As New System.IO.StreamWriter("aku.txt", False, Encoding.Default)


shellini.WriteLine("Hai, nama saya abu bin ali")
shellini.Close()

Serius saya tak faham kehendak bro. Bro nak tulis dalam bentuk ANSI ke macam mana? Dan kenapa code still pakai Encoding.Default? Untuk ansi selalunya pakai 1250 atau 1252. Try refer kelas yang saya bagi link pada post sebelum ini.

Cuba bro bagi coding penuh.

 

[mutanic]

kasi link penuh aku nak belajar gak... ;-P

 

[fadzli07]

Serius saya tak faham kehendak bro. Bro nak tulis dalam bentuk ANSI ke macam mana? Dan kenapa code still pakai Encoding.Default? Untuk ansi selalunya pakai 1250 atau 1252. Try refer kelas yang saya bagi link pada post sebelum ini.

Cuba bro bagi coding penuh.

huhu, maaf bro, saya ni teramat newbie tentang ni, belajar pon sendiri2 je, pernah belajar basic je. ok macam ni, kalau bro x keberatan boleh x bagi saya facebook bro, senang nak rujuk nanti

kembali kpd permasaalahan, saya masukkan code ni ke dalam 1 Button

Dim shellini As New System.IO.StreamWriter("aku.txt", False, Encoding.GetEncoding(1250))
shellini.WriteLine("Hai, nama saya abu bin ali")
shellini.Close()

tetapi ada 1 error, (saya menggunakan Microsoft Visual Studio 2012 - Visual Basic

Jadi saya edit coding tu mengikut apa yang di suggestkan oleh Mic Visual Basic tu sendiri iaitu :

Dim shellini As New System.IO.StreamWriter("aku.txt", False, System.Text.Encoding.GetEncoding(1250))
shellini.WriteLine("Hai, nama saya abu bin ali")
shellini.Close()

Dan hasilnya ialah :

Bukan ANSI tetapi UTF-8​

Saya cuba untuk buang text, coding yang tinggal hanyalah :

Dim shellini As New System.IO.StreamWriter("aku.txt", False, System.Text.Encoding.GetEncoding(1250))

ini Hasilnya :

Ini yg saya nak, tetapi masalahnya kalau ada text dalam ni, file tu akan jadi encoding UTF-8, bukannya ANSI​

 

[mutanic]

huhu, maaf bro, saya ni teramat newbie tentang ni, belajar pon sendiri2 je, pernah belajar basic je. ok macam ni, kalau bro x keberatan boleh x bagi saya facebook bro, senang nak rujuk nanti

kembali kpd permasaalahan, saya masukkan code ni ke dalam 1 Button

Dim shellini As New System.IO.StreamWriter("aku.txt", False, Encoding.GetEncoding(1250))
shellini.WriteLine("Hai, nama saya abu bin ali")
shellini.Close()

tetapi ada 1 error, (saya menggunakan Microsoft Visual Studio 2012 - Visual Basic

Jadi saya edit coding tu mengikut apa yang di suggestkan oleh Mic Visual Basic tu sendiri iaitu :

Dim shellini As New System.IO.StreamWriter("aku.txt", False, System.Text.Encoding.GetEncoding(1250))
shellini.WriteLine("Hai, nama saya abu bin ali")
shellini.Close()

Dan hasilnya ialah :

Bukan ANSI tetapi UTF-8​

Saya cuba untuk buang text, coding yang tinggal hanyalah :

Dim shellini As New System.IO.StreamWriter("aku.txt", False, System.Text.Encoding.GetEncoding(1250))

ini Hasilnya :

Ini yg saya nak, tetapi masalahnya kalau ada text dalam ni, file tu akan jadi encoding UTF-8, bukannya ANSI​

Hang try code ni, aku cuma ubah encoding type ja...dah berapa encoding type yang hang dah try???:-?

Dim shellini As New System.IO.StreamWriter("aku.txt", False, System.Text.Encoding.GetEncoding(437))

 

[fadzli07]

Hang try code ni, aku cuma ubah encoding type ja...dah berapa encoding type yang hang dah try???:-?

Dim shellini As New System.IO.StreamWriter("aku.txt", False, System.Text.Encoding.GetEncoding(437))

kjap lagi aku try, thanka bro n smua yg cuba tlg, sbnrnya ni satu sub application dari 1 aplication besar utk create eudemon online private server game, smua dah siap tggal bab ni ja, ANSI, huhu

 

[fadzli07]

Dim shellini As New System.IO.StreamWriter("aku.txt", False, System.Text.Encoding.GetEncoding(437))
[COLOR="Red"][SIZE="4"]shellini.WriteLine("Walaweh")[/SIZE][/COLOR]
shellini.Close()

X jadi bro, kalau letak text warna merah tu trus x jadi, search google dapat sedikit maklumat tntang bytes, huhu

 

[chuki2]

kjap lagi aku try, thanka bro n smua yg cuba tlg, sbnrnya ni satu sub application dari 1 aplication besar utk create eudemon online private server game, smua dah siap tggal bab ni ja, ANSI, huhu

ANSI as UTF-8. Bermaksud text tu didatangi sekali dengan BOM -Byte Order Mark. So memang dia akan keluar sekiranya ada text didalam notepad.

So apa yang penting, bro try dulu pakai text file pada software bro tu. Normally Insyallah akan jadi.

Yang penting kelas dia 1252 or 1250. Tapi aku rasa macam 1252.

System.Text.Encoding.GetEncoding(1252)