用VB编写一段代码,将Hello world写入到c:尀test.txt文件中,再写另外一段代码,将

2025-02-23 21:14:47
推荐回答(1个)
回答1:

读文件返回字符串函数
Private Function ReadFile(filePath As String) As String
Dim fileStr As String
Open filePath For Input As #1

Do While Not EOF(1)
Line Input #1, tem
fileStr = fileStr & tem & vbCrLf
Loop
Close #1
ReadFile = fileStr
End Function
'***************************************************************

使用方法:
dim x as string
x=ReadFile("C:\abc.txt")

补充,你把上边的函数代码一起拷进去