[Visual Basic] 비주얼베이직 스크립트 (VBScript), 파일에서 특정 문자열 추출하기 (export specific String )

 

어떤 data가 여러개가 섞여있는 데이터에서

특정 단어 String을 찾아 해당 단어가 있는 Line만 뽑아서 새로운 Text파일에 줄을 복사함.

 

 

코드

Dim objFSO, objFile
Dim strData, strLine

'File System Object 생성
Set objFSO = CreateObject("Scripting.FileSystemObject")

'읽기모드로 해당 경로 열기
Set objFile = objFSO.OpenTextFile("C:\_workspace\test.txt", 1)

'text파일의 모든 줄을 읽음
strData = objFile.ReadAll

'파일 닫음
objFile.Close

'추출한 String을 출력할 새 파일을 현재경로에 생성
Set objFile = objFSO.CreateTextFile("exported_strings.txt", True)

'여러 라인중에 해당 String만 분리
lines = Split(strData, vbNewLine)

'PADSTACK 이라는 이름을 찾아서 해당 Line을 생성한 Text파일에 쓰기(Write)
For Each strLine in lines
    '라인에 "PADSTACK"이라는 이름이 있는지 찾음.
    If InStr(strLine, "PADSTACK") Then
        '파일에 씀
        objFile.WriteLine(strLine)
    End If
Next

'파일 닫음
objFile.Close

'성공 메세지를 알림
WScript.Echo "File Exported Successfully!!"

 

반응형

 

결과)

복잡하게 얽혀있는 Text중에 특정 단어 ex) PADSTACK이란 단어가 있으면 해당 줄을 출력해서 exported_strings.txt 파일로 출력해준다.