VBS批量替换文件夹下的文件内容后(中文)出现乱码，求原因，十万火急。

Shawlj 2018-04-12 01:09:52

被替换的文件编码是UTF-8，但是替换完成后的文件变成了ANSI编码了。

Set WshShell = CreateObject("Wscript.Shell")

WshShell.Run "cmd /c dir /s/b *.cpt > list.txt",vbHide

Wscript.Sleep 1000

'WshShell.Charset = "UTF-8"

sFile = "list.txt"

Set objFSO = CreateObject("Scripting.FileSystemObject")

'objFSO.Charset = "UTF-8"

Set oFile = objFSO.OpenTextFile(sFile,1)

Do While Not oFile.AtEndOfStream

      strLine = oFile.ReadLine

      If Len(strLine) > 0 Then

            Set File = objFSO.OpenTextFile(strLine, 1)

            aryLines = File.ReadAll

            File.Close

            aryLines = Replace(aryLines, "ORCL_DS_MES", "SHLY_JIT_UAT")

            Set File = objFSO.OpenTextFile(strLine, 2)

            File.Write aryLines

            File.Close

      End If

Loop

oFile.Close

objFSO.DeleteFile sFile

Set objFSO = Nothing

...全文

983 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

Shawlj 2018-04-14

打赏
举报

谢谢#2楼朋友，得分结帖。

Function LoadText(path, encoding)
	With CreateObject("ADODB.Stream")
		.Mode = 3
		.Type = 1
		.Open
		.LoadFromFile path
		.Position = 0
		.Type = 2
		.Charset = encoding
		.Position = 0
		LoadText = .ReadText(-1)
		.Close
	End With
End Function

Sub SaveAs(text, path, encoding)
	With CreateObject("ADODB.Stream")
		.Mode = 3
		.Type = 2
		.Open
		.Charset = encoding
		.WriteText text
		.SaveToFile path, 2
		.Close
	End With
End Sub


Set WshShell = CreateObject("Wscript.Shell")
WshShell.Run "cmd /c dir /s/b *.cpt > list.txt",vbHide
Wscript.Sleep 1000
'WshShell.Charset = "UTF-8"
sFile = "list.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
'objFSO.Charset = "UTF-8"
Set oFile = objFSO.OpenTextFile(sFile,1)
Do While Not oFile.AtEndOfStream
      strLine = oFile.ReadLine
      If Len(strLine) > 0 Then
            aryLines = LoadText(strLine, "UTF-8")
            aryLines = Replace(aryLines, "SHLY_JIT_UAT", "ORCL_DS_MES")
            SaveAs aryLines, strLine, "UTF-8"
      End If
Loop
oFile.Close
objFSO.DeleteFile sFile
Set objFSO = Nothing

wcwtitxu 2018-04-12

打赏
举报

Function LoadText(path, encoding)
	With CreateObject("ADODB.Stream")
		.Mode = 3
		.Type = 1
		.Open
		.LoadFromFile path
		.Position = 0
		.Type = 2
		.Charset = encoding
		.Position = 0
		LoadText = .ReadText(-1)
		.Close  ' 上边漏了 close
	End With
End Function

wcwtitxu 2018-04-12

打赏
举报

utf-8 要用 adodb.stream 读写, fso 读写只能本地编码或者 unicode





Function LoadText(path, encoding)
	With CreateObject("ADODB.Stream")
		.Mode = 3
		.Type = 1
		.Open
		.LoadFromFile path
		.Position = 0
		.Type = 2
		.Charset = encoding
		.Position = 0
		LoadText = .ReadText(-1)
	End With
End Function

Sub SaveAs(text, path, encoding)
	With CreateObject("ADODB.Stream")
		.Mode = 3
		.Type = 2
		.Open
		.Charset = encoding
		.WriteText text
		.SaveToFile path, 2
		.Close
	End With
End Sub


Set WshShell = CreateObject("Wscript.Shell")
WshShell.Run "cmd /c dir /s/b *.cpt > list.txt",vbHide
Wscript.Sleep 1000
'WshShell.Charset = "UTF-8"
sFile = "list.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
'objFSO.Charset = "UTF-8"
Set oFile = objFSO.OpenTextFile(sFile,1)
Do While Not oFile.AtEndOfStream
      strLine = oFile.ReadLine
      If Len(strLine) > 0 Then
            aryLines = LoadText(strLine, "UTF-8")
            aryLines = Replace(aryLines, "ORCL_DS_MES", "SHLY_JIT_UAT")
            SaveAs aryLines, strLine, "UTF-8"
      End If
Loop
oFile.Close
objFSO.DeleteFile sFile
Set objFSO = Nothing