[分享][下载]读取和写入文本文件内容

fan0217

以下是写入和读取文本文件函数:
Public Function WriteTxtFile(ByVal strPathName As String, _
            ByVal strWriteText As String, ByVal blnOption As Boolean) As Boolean
'===============================================================================
'-函数名称:     WriteTxtFile
'-功能描述:     写入文本文件内容
'-输入参数说明: 参数1: 必选 strPathName As String  文件名(含路径)
'               参数2: 必选 strWriteText As String 要写入的文本内容
'               参数3: 必选 blnOption As Boolean 写入文本的方式
'                               True:追加写入  false:覆盖写入
'-返回参数说明: 返回将内容写入文本文件是否成功
'-使用语法示例: Call WritetxtFile("落日楼头，断鸿声里，江南游子.....")
'-参考:         Wanshan在Access爱好者论坛发表的文章
'-使用注意:
'-兼容性:       2000,XP,2003
'-作者:         fan0217@163.com
'-更新日期：    2006-03-24
'===============================================================================
On Error GoTo Err_WriteTxtFile
Dim lngHandle As Long '句柄
  WriteTxtFile = False
  lngHandle = FreeFile() '取得句柄
If blnOption Then
  Open strPathName For Append As lngHandle    '打开文件 追加写入
Else
    Open strPathName For Output As lngHandle    '打开文件 覆盖写入
End If
  Print #lngHandle, strWriteText    '写入文本
  Close lngHandle    '关闭文件
  WriteTxtFile = True
  
Exit_Err_WriteTxtFile:
    Exit Function

Err_WriteTxtFile:
    WriteTxtFile = False
    MsgBox Err.Description
    Resume Exit_Err_WriteTxtFile

End Function

Public Function ReadTxtFile(ByVal strPathName As String) As String
'===============================================================================
'-函数名称:     ReadTxtFile
'-功能描述:     读取文本文件内容
'-输入参数说明: 参数1: 必选 strPathName As String  文件名(含路径)
'-返回参数说明: 返回文本文件内容
'-使用语法示例: Msgbox ReadTxtFile("c:\b.txt")
'-参考:         Wanshan在Access爱好者论坛发表的文章
'-使用注意:
'-兼容性:       2000,XP,2003
'-作者:         fan0217@163.com
'-更新日期：    2006-03-24
'===============================================================================
On Error GoTo Err_ReadTxtFile
Dim lngHandle As Long                       '文件句柄
Dim strLine As String                       '在循环中存放每行的内容
  lngHandle = FreeFile()                    '获得文件的句柄
   'For后面的参数表示以何种方式打开文件
   'Input是读取，Output是覆盖写入，Append是追加写入
  Open strPathName For Input As lngHandle
Do While Not EOF(lngHandle)                 '循环直到文件尾
  Line Input #lngHandle, strLine            '每次读取一行存放在strLine变量中
    '每次读取都把所读到的内容连接到strAll变量，
    '由于Line Input去掉了换行符，所以这里补上
  ReadTxtFile = ReadTxtFile & strLine & vbCrLf
Loop
   Close lngHandle    '关闭文件
Exit_Err_ReadTxtFile:
    Exit Function

Err_ReadTxtFile:
    MsgBox Err.Description
    Resume Exit_Err_ReadTxtFile
End Function

[此贴子已经被作者于2006-3-25 19:15:51编辑过]

andymark

不错

宿命的风

感谢分享！

george

可做为帮助的新写法

qlm

正是我要的

又可以学下API,真是太好了.

fan0217

以下函数同样可以实现读取文本文件功能.

Public Function ReadTxtFileA(ByVal strPathName As String) As String
'===============================================================================
'-函数名称:     ReadTxtFileA
'-功能描述:     读取文本文件内容 功能和使用方法同ReadTxtFile函数
'-输入参数说明: 参数1: 必选 strPathName As String  文件名(含路径)
'-返回参数说明: 返回文本文件内容
'-使用语法示例: Msgbox ReadTxtFile("c:\b.txt")
'-参考:
'-使用注意:
'-兼容性:       2000,XP,2003
'-作者:
'-更新日期：
'===============================================================================
On Error GoTo Err_ReadTxtFile
Dim strFile As String
Open strPathName For Input As #1
    ReadTxtFile = ""
    strFile = ""
Do While Not EOF(1)
    Line Input #1, strFile
    If ReadTxtFile = "" Then
      ReadTxtFile = strFile
    Else
      ReadTxtFile = ReadTxtFile & vbCrLf & strFile
    End If
Loop
  Close #1
  
Exit_Err_ReadTxtFile:
    Exit Function

Err_ReadTxtFile:
    MsgBox Err.Description
    Resume Exit_Err_ReadTxtFile

End Function

jd3222308

你好，你给我的示例文件没有密码啊，请回复可以吗？

wu8313

把 文本 再写入表中，不就是更好 了吗？

fan0217

那很容易实现的,所以没有加入该功能.

wu8313

文本文件的 多行和多列 分别写入 到表的多行和多列 ，我感觉还是有一些难度的。

有空的 时候我会考虑来尝试完成。