VBA读取TXT文件中的中文出现乱码，替换内容后保存

rocklyman

怎么中文是乱码啊？


还有个问题，如果我想把TXT文件里的“54654654“这个内容替换成“aaaa“并保存该怎么写呢？

望大神指导

新建文本文档.zip (399 Bytes, 下载次数: 22)

2023-2-10 09:23 上传

点击文件名下载附件

Sub test()
Dim wk_pth As String
Dim str As String
wk_pth = Application.GetOpenFilename

Open wk_pth For Input As #1
Line Input #1, str
i = 1
Do Until EOF(1)
    Range("a" & i) = str
    i = i + 1
    Debug.Print str
    Line Input #1, str
    If str = "54654654" Then
        str = "aaaaaa"
    End If
Loop
Close #1
End Sub

rocklyman

求助大神。。

tanglf188

不想改代码的话，把文本文件改下编码规则

perfect131

1. Sub kong()
   
2.     strFile = ThisWorkbook.Path & "\新建文本文档.txt"     ''txt 路径
   
3.     Set fso = CreateObject("Scripting.FileSystemObject")
   
4.     ar = Split(readfile(strFile), vbCrLf)
   
5.     '''写入  Open ..Output最后会保留空行，这种不会
   
6.     Set f = fso.OpenTextFile(strFile, 2, True)
   
7.     For i = 1 To UBound(ar) - 1
   
8.         If Len(ar(i)) Then '''非空写入
   
9.             If ar(i) = "54654654" Then ar(i) = "aaaa"
   
10.             f.Writeline ar(i)
    
11.         End If
    
12.     Next
    
13.     If Len(ar(UBound(ar))) Then f.Write ar(UBound(ar))  ''最后一行写入
    
14.     f.Close
    
15.     Set fso = Nothing
    
16.     Set f = Nothing
    
17. End Sub
    
18. '读取文件
    
19. Function readfile(ByVal filename As String, Optional filetype As String = "utf-8")
    
20.     Dim ReadStream As Object
    
21.     Set ReadStream = CreateObject("ADODB.Stream")
    
22.     Dim FileContent As String
    
23.     With ReadStream
    
24.         .Type = 2               'adTypeText
    
25.         .Charset = filetype
    
26.         .Open
    
27.         .LoadFromFile filename
    
28.         FileContent = .ReadText
    
29.         .Close
    
30.     End With
    
31.     Set ReadStream = Nothing
    
32.     readfile = FileContent
    
33. End Function

复制代码

rocklyman

tanglf188 发表于 2023-2-10 14:00
不想改代码的话，把文本文件改下编码规则

原来是编码问题啊

那我要替换掉内容并保存这个怎么写呢

taller

wanghan519

一直安利的busybox可以批量转编码再替换，只是保存时需要先存入临时文件再复制回来
或者批量调用文本编辑器也是一样，改编码替换保存
如果最后需要导入excel那还是vba用adostream转码再替换读入excel更方便

limonet

关键字：$()

limonet

Sub limonet()
    CreateObject("wscript.shell").Run "powershell push-location " & ThisWorkbook.Path _
    & ";set-content  新建文本文档.txt -value $($(get-content 新建文本文档.txt -encoding 'UTF8') -replace '54654654','aaaa')", 0
End Sub