안산드레아스

특정 단어(문자)로 시작하는 String을 찾아

중간에 특정 문자와 숫자가 들어갈 때 해당 줄(Line) 찾기

결과)

p<숫자>h<숫자>  가 들어가는 모든 줄을 출력

숫자는 정수이던 실수이던 모두 출력

그외 나머지는 Not Matched

코드

Dim objFSO, objFile, objRegExp
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("result.txt", True)

'정규표현식 object생성
Set objRegExp = New RegExp

'숫자가 정수일때
' objRegExp.Pattern = "p\d+h\d+|P\d+H\d+"

'숫자가 정수 또는 실수일때
objRegExp.Pattern = "p\d*\.?\d+h\d*\.?\d+|P\d*\.?\d+H\d*\.?\d+"

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

'이름을 찾아서 해당 Line을 생성한 Text파일에 쓰기(Write)
For Each strLine in lines

    '해당 패턴이 일치하는지 확인 True? or False?
    If objRegExp.Test(strLine) Then
        objFile.WriteLine(strLine)
    Else
        objFile.WriteLine("Not matched")
    End If
Next

' 파일 닫기
objFile.Close

' 성공을 알림
WScript.Echo "File Exported Successfully!!"

특정 단어(문자)로 시작하는 String을 찾아

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

결과)

ep로 시작하고, nth로 시작하는 항목을 찾아서 해당 줄을 출력

그외 나머지는 Not Matched

코드

Dim objFSO, objFile, objRegExp
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("result.txt", True)

'정규표현식 object생성
Set objRegExp = New RegExp

' 글자 "ep~~"로 시작하는 놈들, "nth~~"로 시작하는 놈들
' ^는 Start를 의미해서 뒤에 따라오는 글자로 시작하는 놈들을 의미
' |는 Or같은 역할 (하나면 |를 없애고 하나만 하면됨.)
objRegExp.Pattern = "^ep|^nth"

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

'이름을 찾아서 해당 Line을 생성한 Text파일에 쓰기(Write)
For Each strLine in lines
    '해당 패턴이 일치하는지 확인 True? or False?
    If objRegExp.Test(strLine) Then
    	' 맞다면 해당 line을 출력 틀리면 Not Matched 출력
        objFile.WriteLine(strLine)
    Else
        objFile.WriteLine("Not matched")
    End If
Next

' 파일 닫기
objFile.Close

' 성공을 알림
WScript.Echo "File Exported Successfully!!"

만약 특정 문자를 찾고 해당 Line만 남기고 나머지(Space, 줄바꿈 Carriage Return 등)을 몽땅 제거하고 싶다면, 아래코드.

코드)

Dim objFSO, objFile, objRegExp
Dim strData, strLine

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

'읽기모드로 해당 경로 열기
Set objFile = objFSO.OpenTextFile(".\3DBatchDRC.txt", 1)

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

'파일 닫음
objFile.Close

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

'정규표현식 object생성
Set objRegExp = New RegExp

' 글자 "ep~~"로 시작하는 놈들, "nth~~"로 시작하는 놈들
' ^는 Start를 의미해서 뒤에 따라오는 글자로 시작하는 놈들을 의미
' |는 Or같은 역할 (하나면 |를 없애고 하나만 하면됨.)
objRegExp.Pattern = "^Component|^   Error:"

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

'이름을 찾아서 해당 Line을 생성한 Text파일에 쓰기(Write)
'공백까지 모두 제거하여 위로 밀기.
For Each strLine in lines
   strLine = Replace(strLine, vbCr, "") ' Remove carriage return
   strLine = Replace(strLine, vbLf, "") ' Remove line feed
   If strLine <> "" Then
       If objRegExp.Test(strLine) Then
           objFile.Write strLine & vbCrLf ' Write with a new line
       End If
   End If
Next


' 파일 닫기
objFile.Close

' 성공을 알림
WScript.Echo "File Exported Successfully!!"

어떤 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 파일로 출력해준다.

만약 회사에서 NX를 사용하기 위해 라이런스를 정식 구매하고 설치를하면,

모든 지멘스 소프트웨어는 아래 Support Center에서 받을 수 있다. (단 지멘스에서 부여받은 아이디가 있어야 사용가능.)

아이디는 라이선스 구매자 담당자에게 물어보고 회원가입 가능. (회원가입이 되어야 설치 링크 접속 다운 가능.)

https://support.sw.siemens.com/ko-KR/product/209349590

1. Install NX 후 언어 선택

2. 마법사 다음 진행

3. 라이선스 등록

만약 본인 PC에 라이선스 서버를 구동시키면 아래와 같이 입력하면되고,

다른 PC에 라이선스가 구동되어 IP를 가지고 오면,

해당 라이선스 서버가 돌아가고 있는 PC의 IP주소 또는 Hostname를 @뒤에 넣으면 된다.

4. (라이선스 옵션)

만약 해당 PC에 라이선스를 구동시키려고한다면, 

아래 옵션 Obtain siemens License Server 를 누르고 Support Center 사이트에가서 다운로드 받아야 한다.

쭉쭉 Yes를 누르고 Browse를 누른 후 본인이 가지고 있는 License 파일을 넣어준다.

그리고나서 NX를 실행한다.

툴이 실행된 것을 확인.

아래 코드를 입력하면 User에게 입력을 받는 Inputbox가 생성된다.

InputBox는 3가지의 인자를 받는다.

형태는 :

결과저장변수 = InputBox(User에게 입력유도 메세지, 해당 창 이름, (option) Default 입력 값)

그러면 입력값이 sOutput에 저장됨

아래 Batch file을 실행하면 누가 언제 어떤 계정으로 로그인을 했는지 볼 수 있다.

파일을 열어보면 아래와 같다.

@echo off
echo %date%,%time%,%computername%,%username%,%sessionname%,%logonserver% >> C:\temp\whoAreYou.txt

>> 뒷부분이 로그를 저장하는 경로, 파일명이며 이 부분은 입맛에 맞게 수정해서 사용한다.

파일을 실행하면, 아래와 같이 결과가 나온다.

열어보면, 날짜, 시간, Hostname명, 계정명 등등 나온다.

매우 간단한 방법이 있다.

두 계정을 로그인 후

Copy and Paste (복사 붙여넣기) 하는 것.

1. 두 계정을 로그인하면 왼쪽에 2개의 계정이 뜬다.

2. 기존계정에서 해당 탭을 마우스우클릭 - 이동 또는 복사

3. 옮기고자하는 계정 선택 후, 복사 클릭

(결과)

옮기고자하는 두번째 계정에 해당 데이터들이 통쨰로 복사된다.

아래와 같이 엑셀을 잠근다.

1. File 클릭

2. Info - Protect - Workbook - Encrypt with Password (한글이나 영어나 아이콘 모양은 똑같으니 참고.)

3. 비번 입력, 비번확인 입력

(결과)