텍스트 파일의 각 줄 앞에 문자를 대량으로 추가하세요

관리자 · 게시됨 2015. 2. 4. 오후 1:25:21

'=================================================================
set arg=WScript.Arguments
만약 arg.count=0이라면,
msgbox "Usage:"&vbcrlf&vbcrlf&" 이 스크립트를 직접 실행하지 말고, 문자열로 교체해야 할 파일 하나 이상을 드래그 앤 드롭하세요.
wscript.quit
끝나는 경우
Set fso=wscript.createobject("scripting.filesystemobject")
Set fr=fso.opentextfile(arg(0),1)
Set FW=fso.createtextfile("temp.txt",2)
data=inputbox("줄 앞에 추가한 문자를 입력하세요:")
하다
fw.writeline(data&fr.readline)
fr.atendofstream까지 루프
프라. 클로즈
fw.close.
Set fr=fso.opentextfile("temp.txt",1)
Set fw=fso.createtextfile(arg(0),2)
하다
fw.writeline(fr.readline)
fr.atendofstream까지 루프
프라. 클로즈
fw.close.
fso.deletefile("temp.txt")
'====================================================
위 내용을 복사해서 VBS 파일로 저장한 뒤, 수정하고 싶은 문서를 이 VBS 파일로 드래그하세요. 추가하고 싶은 문자를 입력한 뒤, 입력 후 확인한 뒤 문서를 열면, 각 줄이 방금 입력한 데이터를 추가한 것을 확인할 수 있습니다.

텍스트 파일의 각 줄 앞에 문자를 대량으로 추가하세요

관련 게시물

본 섹션