vb读写文本文件
www.dimcax.com
vb读写文本文件
imports autodesk.autocad.databaseservices imports autodesk.autocad.colors imports autodesk.autocad.applicationservices imports autodesk.autocad.editorinput imports autodesk.autocad.geometry imports autodesk.autocad.graphicsinterface imports autodesk.autocad.interop imports autodesk.autocad.interop.common imports autodesk.autocad.layermanager imports autodesk.autocad.plottingservices imports autodesk.autocad.publishing imports autodesk.autocad.runtime imports autodesk.autocad.windows 'imports autodesk.autocad.windows.toolpalette imports dbtransman = autodesk.autocad.databaseservices.transactionmanager imports system.math imports system.io imports freenest2.material imports system.text imports system.runtime.interopservices ''' '''================== '''= 文件控制函数 = '''================== module controlfile '''读文本文件 public function readfile(byval filename as string) as string() dim byt() as byte dim int as integer = 0 dim str() as string dim have as boolean = false dim fs as filestream dim br as binaryreader fs = new filestream(filename, filemode.open) br = new binaryreader(fs) while fs.position < fs.length redim preserve byt(int) byt(int) = br.readbyte have = true int = int + 1 end while br.close() fs.close() int = 0 dim int1 as integer = 0 redim preserve str(0) if have then while int < byt.length if byt(int) < 128 then if byt(int) <> 13 and byt(int) <> 10 then str(int1) = str(int1) & chr(byt(int)) else int = int + 1 ''' 'while (int + 1) < byt.length and (byt(int + 1) = 13 or byt(int + 1) = 10) 'int = int + 1 'end while ''' int1 = int1 + 1 redim preserve str(int1) end if int = int + 1 else str(int1) = str(int1) & chr(256 * byt(int) + byt(int + 1)) int = int + 2 end if end while dim str1() as string str1 = str int = 0 int1 = 0 while int < str1.length if str1(int) <> nothing then redim preserve str(int1) str(int1) = str1(int) int1 = int1 + 1 end if int = int + 1 end while ' end if return str end function '''写入文字到文件中 public sub writefile(byval strlist as string(), byval filename as string) dim fs as filestream dim sw as streamwriter dim int as integer = 0 fs = new filestream(filename, filemode.create) sw = new streamwriter(fs) while int < strlist.length sw.writeline(strlist(int)) int = int + 1 end while sw.close() fs.close() end sub ''' end module
..........
学习