一、读取文本文件:
1、一行一行读取
1.1 返回值传递结果
Function ReadFile(ByVal fPath As String) As String
Dim fN As Integer,lineStrTmp as String
fN = FreeFile
Open fPath For input As #fN
Do Until eof(fN)
Line Input #fN, lineStrTmp
ReadFile=ReadFile & lineStrTmp & vbcrlf
Loop
Close #fN
End Function
1.2 参数传递结果(sourceString 存放读取到的值):
Sub ReadFile_HV(fPath As String,sourceString as String)
Dim fN As Integer,lineStrTmp as String
fN = FreeFile
Open fPath For input As #fN
Do Until eof(fN)
Line Input #fN, lineStrTmp
sourceString=sourceString & lineStrTmp & vbcrlf
Loop
Close #fN
End Sub
2、一次读入所有文字。
2.1 返回值传递结果
Function ReadFile_ALL_HV(fPath As String) as String
Dim fN As Integer
fN = FreeFile
Open fPath For Binary As #fN
ReadFile_ALL_HV=Input(LOF(1), #fN)
Close #fN
End Function
2.2 参数传递结果(sourceString 存放读取到的值):
Sub ReadFile_ALL_HV(fPath As String,sourceString as String)
Dim fN As Integer
fN = FreeFile
Open fPath For Binary As #fN
sourceString=Input(LOF(1), #fN)
Close #fN
End Sub
二、保存文本文件:
1、覆盖已有数据的保存。
Function SaveFile_All(fPath as String,outString as String)
Dim fN As Integer
fN = FreeFile
Open fPath For Output As #fN
Print #fN,outString
Close #fN
End Function
2、文本末尾添加新内容。
Function SaveFile_Append(fPath as String,outString as String)
Dim fN As Integer
fN = FreeFile
Open fPath For Append As #fN
Print #fN,OutString
Close #fN
End Function
三、删除文件:
Kill 文件路径
四、文件重命名:
Name "C:\OldName.TXT" As "C:\NewName.TXT"