VBS 如何读取指定文本每行的内容？
byval必选,默认byref,是不能返回变量值的public function Readfile(byval file) '函数名readfile,子变量fileSet fsofile = CreateObject("scripting.filesystemobject") '创建对象 "filesystemobject部件"readfile=fsofile.opentextfile(file).readall '读取全文end function 函数使用方法, readfile file文件名再给你一个写个函数..Public Function mkFile(ByVal File, ByVal Writes)On Error Resume Next '出错时不中断程序Set fsofile = CreateObject("scripting.filesystemobject")If Right(File, 1) = "/" Then '判断变量file右边倒数第一个字符是否有字符串/fs = Replace(File, "/", "") '删除变量file的字符串/Read = fsofile.opentextfile(fs).readall '方法一样.都是读取全文If Right(Read, 2) <> vbCrLf And Len(Read) > 0 Then Read = Read & vbCrLf '这里是判断文本追加fsofile.Createtextfile(fs).Writeline Read & Writes '创建并写入文件(会追加到文本尾)Elsefsofile.Createtextfile(File).Write Writes '创建并写入(会覆盖)End IfEnd Function函数用法 mkfile file文件名(字符串最后面如果有/,则追加文本.没有则覆盖文本),writes写入的字符 function(自定义函数)默认是public(全局声明),可加可不加.end function .以end结束函数
标签：VBS,每行,读取
