본문 바로가기

전산Tip

[vbs] 파일내에 문자열 치환하기

반응형

// replace용 vbs 파일 생성 (파일명 : replace.vbs)

 

Const ForReading = 1
Const ForWriting = 2
strFilenName = Wscript.Arguments(0)

 

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.OpenTextFile(strFilenName, ForReading)
strText = objFile.ReadAll

objFile.Close

 

strNewText = strText

 

'변경할 문자열 등록

strNewText = Replace(strNewText, "AAAA" , "BBBB" )

strNewText = Replace(strNewText, "CCCC" , "DDDD" )

 

Set objFile = objFSO.OpenTextFile(strFilenName, ForWriting)

objFile.Write strNewText

objFile.Close

 

 

 

// cmd창에서 replace.vbs를 실행하여 파일내에 문자열 치환

 

cscript replace.vbs "파일명"

'전산Tip' 카테고리의 다른 글

[xcopy] 작업폴더 일자별 백업하기  (1) 2021.04.18
[MSSQL] 테이블 레이아웃 조회  (0) 2019.05.03
Autorun 삭제  (0) 2008.11.01