输出文本到utf8格式txt

gamer1314 · 发表于 2024-5-7 16:53

本帖最后由 gamer1314 于 2024-5-7 23:23 编辑

分享一下 : 字符串输出到txt,格式是不带bom的utf8
需要net3.5

Function 文本写入_utf8(文本路径, 文本内容)
Dim b() As Byte
Dim txt_Num,i As Integer
If Dir(文本路径) <> "" Then Kill 文本路径
b = CreateObject("System.Text.UTF8Encoding").GetBytes_4(文本内容)
txt_Num = FreeFile()
Open 文本路径 For Binary As #txt_Num
For i = LBound(b) To UBound(b)
Put #txt_Num, , b(i)
Next
Close #txt_Num
End Function
'实例
Sub test123()
文本写入_utf8 "C:\test.txt", "test测试"
End Sub

复制代码

ykcbf1100 · 发表于 2024-5-7 17:04

是求助还是分享啊

wanghan519 · 发表于 2024-5-7 17:52

厉害，怎样才能知道哪些.net对象可以在vba里用啊，比如hashtable，比如这里的utf8encoding，都是见到别人用了，才知道能用，有没有办法列出来

ykcbf1100 · 发表于 2024-5-7 19:16

搞个实例能更容易搞明白。现在这文本内容不知道是怎么弄的，是数组？还是文本字串？还是别的

baofa2 · 发表于 2024-5-7 19:56

本帖最后由 baofa2 于 2024-5-7 22:22 编辑

学习一下。。。。。

morpheus126 · 发表于 2024-5-7 20:34

好东西，收藏。。。谢谢分享

常扬帆 · 发表于 2024-5-7 20:41

文本utf8格式txt，我用得特多，可惜我真的不识货，楼主能上个实例吗？衷心感谢！

perfect131 · 发表于 2024-5-7 21:41

本帖最后由 perfect131 于 2024-5-7 21:44 编辑

第一没验证 64位你没有引用 net3.5的话用不了 System...开头的这些库跟 arraylist一样都需要net3.5
第二输出后的文件看着没有带bom

这个也可以用在MD5
https://club.excelhome.net/threa ... tml?_dsign=16591c64

perfect131 · 发表于 2024-5-7 21:43

wanghan519 发表于 2024-5-7 17:52
厉害，怎样才能知道哪些.net对象可以在vba里用啊，比如hashtable，比如这里的utf8encoding，都是见到别人用 ...

参考 8楼遍历引用里的所有库
https://club.excelhome.net/forum ... 27&pid=11443236

gamer1314 · 发表于 2024-5-7 23:18

本帖最后由 gamer1314 于 2024-5-8 11:14 编辑

perfect131 发表于 2024-5-7 21:41
第一没验证 64位你没有引用 net3.5的话用不了 System...开头的这些库跟 arraylist一样都需要net3.5
第 ...

嗯,这个主要就是要生成不带bom的txt

		自动登录	找回密码
密码			免费注册

[分享] 输出文本到utf8格式txt

评分

评分

评分

浏览过的版块