以下两个函数分别读取TXT文本文件与写入文件
Private Function GetTXT(Path As String) '读取文本
Open Path For Input As #1
GetTXT = StrConv(InputB(LOF(1), 1), vbUnicode)
Close #1
End Function
Private Sub SetTXT(Strl As String, Path As String) '写入文本
Open Path For Output As #1
Print #1, Strl;
Close #1
End Sub
摘自:网络整理
相关文章参考:
※VB计算文本文件的行数
★VB部分相关文章推荐:★
☆VB 进制转换大全(十进制、十六进制、八进制、二进制、二进制流)互转
☆VB SendMessage向其他程序窗口发送字符串消息实例
☆VB中Null, Empty, Nothing, and vbNullString的区别
☆用RtlAdjustPrivilege来调整进程权限(VB6.0代码)
☆[VB]SaveSetting 语句 和 DeleteSetting 语句
☆[vb]利用WScript.Shell对象隐藏cmd命令行运行
评论