Question

【VBS源码】如何读取指定文本中的内容？

要求：消除重复行并赋值给变量
例如：文本PATH.TXT中有5行都是“C:\WINDOWS\system32\svchost.exe”
1.读取PATH.TXT中的“C:\WINDOWS\system32\svchost.exe”（忽略另外4个重复行）
2.将读取到的内容全部赋值给变量Path

Answer 1

byval必选,默认byref,是不能返回变量值的

public function Readfile(byval file) '函数名readfile,子变量file
Set 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 '创建并写入文件(会追加到文本尾)
Else
fsofile.Createtextfile(File).Write Writes '创建并写入(会覆盖)
End If
End Function

函数用法 mkfile file文件名(字符串最后面如果有/,则追加文本.没有则覆盖文本),writes写入的字符

function(自定义函数)默认是public(全局声明),可加可不加.
end function .以end结束函数