VBA写txt文件--vba写RF文件--vbs写文本文件不同编码--vba写UTF8

' ===================================================
' 以下为文件操作函数
' ===================================================

Sub InitNotepad(MyfileName)
'
'初始化文件，判断文件MyfileName存在不，不存在则创建，存在则清空；
'
Dim fso, fil
'创建fso对象
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.fileexists(MyfileName)) Then
'打开文件，参数1为forreading，2为forwriting，8为appending
'如果存在文件则删除该文件
fso.DeleteFile (MyfileName)
End If

Set fil = fso.CreateTextFile(MyfileName, True)
'释放文件
Set fso = Nothing

End Sub

Sub AppendNotepad(MyfileName, MyStr)
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso, fil
'创建fso对象
Set fso = CreateObject("Scripting.FileSystemObject")

'TristateUseDefault –2 使用系统缺省打开文件。
'TristateTrue –1 以 Unicode 格式打开文件。
'TristateFalse 0 以 ASCII 格式打开文件。

'注意这里要与创建文件时的编码一致

Set fil = fso.OpenTextFile(MyfileName, 8, True, 0)
fil.writeline (MyStr)
'关闭文件
fil.Close
'释放文件
Set fil = Nothing
Set fso = Nothing
End Sub

Sub WriteNotepad(MyfileName, MyStr)
Dim fso, fil
'创建fso对象
Set fso = CreateObject("Scripting.FileSystemObject")
'初始化并写文件
Call InitNotepad(MyfileName)
Set fil = fso.OpenTextFile(MyfileName, 2)
fil.Write (MyStr)
'关闭文件
fil.Close
'释放文件
Set fil = Nothing
Set fso = Nothing
End Sub

'从宽字节到多字节
Public Declare Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByRef lpMultiByteStr As Any, ByVal cchMultiByte As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long
Public Const CP_UTF8 = 65001
Sub WriteOut(strPath, str)
Dim lBufSize As Long
Dim lRest As Long
Dim bUTF8() As Byte
Dim TLen As Long

TLen = Len(str)
lBufSize = TLen * 3 + 1
ReDim bUTF8(lBufSize - 1)
lRest = WideCharToMultiByte(CP_UTF8, 0, StrPtr(str), TLen, bUTF8(0), lBufSize, vbNullString, 0)

If lRest Then
lRest = lRest - 1
ReDim Preserve bUTF8(lRest)
Open strPath For Binary As #1


Put #1, , bUTF8
Close #1
End If
End Sub

'写的格式为UTF8
Sub createUFT8(strPath, str)
'换行建议使用vbcrlf，否则robotFramwork无法解析
Dim objStream As Object
Set objStream = CreateObject("ADODB.Stream")
With objStream
.Type = 2 'adTypeText
.Charset = "UTF-8"
.Open
.WriteText str
.SaveToFile strPath, 2 'adSaveCreateOverWrite
End With

Set objStream = Nothing

End Sub

' ===================================================
' 以上为文件操作函数
' ===================================================

VBA写txt文件--vba写RF文件--vbs写文本文件不同编码--vba写UTF8相关推荐

python 写txt 换行_python中写入txt文件需要换行,以及\r 和\n
在Python中,用open()函数打开一个txt文件,写入一行数据之后需要一个换行如果直接用 f.write('\n') 只会在后面打印一个字符串'\n',而不是换行' 需要用 f.write(' ...
python写txt方法_怎么实现python写入txt文件方法
一.读写txt文件 1.打开txt文件1file_handle=open('1.txt',mode='w') 上述函数参数有(1.文件名,mode模式) mode模式有以下几种:1 2 3 4#w 只 ...
VBA把txt文件内容放入excel
VBA把txt文件内容放入excel,代码如下: Sub bb() Dim a, k%, i% Dim abc As String '---------------cycle to open the ...
如何读写txt文件 C++读和写txt文件操作查找文件中存储的字符串中逗号的位置
C++读和写文件操作说明一. C++读和写文件操作说明文章目录 C++读和写文件操作说明一. C++读和写文件操作说明 1.打开方式 2.实例代码 2.1 第一版代码 2.2 第二版代码二.补 ...
vba打开txt文件_VBA基础入门（34）读取txt文本文件
对于这样的txt文本文件,我们怎么一行一行去读取数据呢? #00001 65536 *00001 65536 说说常用的两种方法,一种是把txt文本文档读到Excel中,然后获取最大行数,做个循环来遍 ...
在EXCEL中通过VBA实现批量读取文件夹内的文件名称
需求:有时候需要批量读取某个文件夹中的文件名称,有的程序只能读取同类型的,当文件为不同类型时就无法读取,因此需要写一个VBA程序,实现批量读取同一文件夹内的所有文件名称,且不需要修改程序就可以自由选择 ...
【Excel VBA】遍历获取文件夹下所有文件——每月自动汇总考勤数据实例
纲举目张说明关键技术点:Dir函数代码code 运行效果图使用说明说明本次所讲的遍历获取某文件夹下所有文件,其实是我的<每月自动汇总考勤数据>案例中的其中一个知识点,近期我将会 ...
vba正则表达式无效文件名过滤_VBA进阶 | 文件操作18：Folder对象与Folders集合详解...
学习Excel技术,关注微信公众号: excelperfect 在<VBA进阶 | 文件操作8:认识Windows Scripting Host>中,我们介绍了FileSystem对象模型 ...
wps js宏写一个可以批量合并Excel文件表格数据的工具
wps发布JS宏编辑器的功能已经很久了,今天尝试写了个非常简单的Excel表格合并的工具,发现真的是吊打VBA语言!就是有个小小的缺点:不支持外接程序和ActiveX控件,有点可惜,不过终于可以摆脱V ...

VBA写txt文件--vba写RF文件--vbs写文本文件不同编码--vba写UTF8

VBA写txt文件--vba写RF文件--vbs写文本文件不同编码--vba写UTF8相关推荐

最新文章

热门文章