没狗，试不了，你自己试试
保存就不写了
读取：
Dim s As string = FileSys.ReadAllText("c:\data\table.txt", Encoding.GetEncoding(936))Output.Show(s)
加好友 
发短信
Post By：2014/9/13 12:10:00 [显示全部帖子]
