utf 8 텍스트 파일 을 스 크 립 트 로 처리 합 니 다.

filename="C:\Users\Administrator\Desktop\soft\x.txt"
filename2="C:\Users\Administrator\Desktop\soft\x.txt"

Dim txt 
Dim txt2
txt=ReadFromTextFile( filename )
txt=Replace( txt,"xx  ","yy  " )


WriteToTextFile filename2,txt

Set a = CreateObject("Scripting.FileSystemObject")
a.CopyFile "C:\Users\Administrator\Desktop\soft\web.xml","C:\",true

msgbox "ok"


 Function ReadFromTextFile(FileUrl)
 dim str
 set stm=CreateObject("adodb.stream")
 stm.Type=2'      
 stm.mode=3 
 stm.charset="UTF-8"
 stm.open
 stm.loadfromfile  FileUrl 
 str=stm.readtext
 stm.Close
 set stm=nothing
 ReadFromTextFile=str
End Function

Sub WriteToTextFile(FileUrl,byval Str)
 set stm=CreateObject("adodb.stream")
 stm.Type=2'      
 stm.mode=3
 stm.charset="UTF-8"
 stm.open
 stm.WriteText str
 stm.SaveToFile  FileUrl ,2 
 stm.flush
 stm.Close
 set stm=nothing
End Sub

이 내용에 흥미가 있습니까?

현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:

C#GB2312 및 UTF8 상호 전환

public string GB2312ToUtf8(string gb2312String) Encoding fromEncoding = Encoding.GetEncoding("gb2312"); Encoding toEncod...

텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.

CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.

utf 8 텍스트 파일 을 스 크 립 트 로 처리 합 니 다.

좋은 웹페이지 즐겨찾기