一个自定义函数-根据文件名取出文件内容 - 编程论坛

#2

xzlxzlxzl2015-04-06 13:54

啊，伸手党！

#3

opelwang2015-04-06 13:59

回复 2楼 xzlxzlxzl

是的，望版主帮忙，谢谢。

#4

xzlxzlxzl2015-04-06 14:05

小case，看哪个版主有空帮你弄弄。我没空诶。

#5

风吹过b2015-04-06 16:34

我有现成的代码，但现在在手机上。

#6

opelwang2015-04-06 17:26

回复 5楼风吹过b

能放上来，学习一下吗？
谢谢！

#7

风吹过b2015-04-07 08:51

Option Explicit

Public Function 打开文件(cs As String) As String
    On Error Resume Next
Dim fj As Long
    fj = FreeFile()             '产生下一文件号
    Open cs For Binary As #fj       '打开文件
        '直接读整个文件的所有的内容,按字节读,并转换为 Unicode 的VB默认字符串类型
        打开文件 = StrConv(InputB$(LOF(fj), #fj), vbUnicode)
    Close #fj
End Function

Public Function 保存文件(cs As String, filename As String) As String
    On Error Resume Next
    Dim fj As Long
    fj = FreeFile()             '产生下一文件号
    Open filename For Output As #fj        '打开文件
        Print #fj, cs
    Close #fj
End Function

#8

opelwang2015-04-07 17:21

感谢，学习了。