강좌 / 팁

윈 도 우 vbs_Merge Lines(Drag-n-drop)

2020.03.03 21:24

레마클로 조회:540 추천:4

 

vbs_Merge Lines(Drag-n-drop)

 

 

ml.png

 

 

' 여러 줄 -> 한 줄 스크립트로

 

지후빠님의 스크립트가 완벽하여 제 파일에 대신 합니다

 

파일  https://windowsforum.kr/?module=file&act=procFileDownload&file_srl=12979831&sid=387a7c905a07dbdcbb6ee561f8590df0&module_srl=12255

 

If WScript.Arguments.Count < 1 Then WScript.Quit

Set fso = Wscript.Createobject("Scripting.FileSystemObject")

sPath = WScript.Arguments.Item(0)

If Not fso.FileExists(sPath) Then WScript.Quit

'----------------------------------------------------------------------

fso.CopyFile sPath, sPath & "(1)", true

Set oFile = fso.OpenTextFile(sPath, 1) : sData = oFile.ReadAll : oFile.Close

 

sData = reReplace(sData, "\'.*|(^|\n)\s*\r", "") '주석문, (처음, 중간) 빈줄 제거

sData = Replace(sData, vbTab, "") '탭문자 제거

sData = Replace(sData, vbCr, " : ") 'return -> " : " 바꾸기

sData = Replace(sData, vbLF, " : ")

sData = reReplace(sData, "(\s+:\s)+", " : ") '" : " 반복 제거

sData = reReplace(sData, "\s:\s+", " : ")

sData = reReplace(sData, "^\s+:\s*|\s+:\s*$", "") '처음과 끝 " : " 제거

 

Set oFile = fso.CreateTextFile(sPath, True) : oFile.Write sData : oFile.Close

Set oFile = Nothing

Set fso = Nothing

'----------------------------------------------------------------------

Function reReplace(intxt, pttrn, subst)

Dim objRegExp : Set objRegExp = New RegExp 

With objRegExp

.Pattern = pttrn

.Global = True 

reReplace = .Replace(intxt, subst)

End With

Set objRegExp = Nothing 

End Function

ml1.png

ml2.png

 

 

 

 

번호 제목 글쓴이 조회 추천 등록일
[공지] 강좌 작성간 참고해주세요 gooddew - - -
4369 소프트웨어| 중국어 프로그램 한글화 팁 [11] 줄리아니 1375 20 08-10
4368 소프트웨어| ESD 다중 이미지 단일 WIM 이미지 추출 방법! [12] 무월 1080 30 08-09
4367 소프트웨어| 크롬 하단 다운로드창 활성화 [11] 무월 2772 46 08-03
4366 소프트웨어| wim boot 관련 배치 파일 몇 가지 팁 [19] 지후빠 1435 29 08-03
4365 기 타| 포토샵 많이 좋아졌네요!! [3] 집에서뒹굴 2735 5 08-02
4364 모 바 일| [Tip] 인천공항 스마트패스 - 얼굴 인식으로 출국장 통과 앱 [5] asklee 1753 9 07-28
4363 소프트웨어| 다음 팟플레이어 광고[팝업] 차단 [12] 무월 3097 48 07-26
4362 윈 도 우| winpe 시작 화면 Shutdown 메뉴 수정 [10] sunshine 850 18 07-25
4361 소프트웨어| winpe 시스템 계정에서 Edge 상위버전 적용 [8] sunshine 562 15 07-24
4360 소프트웨어| Total Commander 주요 단축키 설명 [3] VᴇɴᴜꜱGɪ 996 11 07-23
4359 윈 도 우| 없이는 살 수 없는 Windows 바로 가기 키 11개 [5] VᴇɴᴜꜱGɪ 2931 31 07-18
4358 윈 도 우| Windows 11에서 모니터에 적합한 색 프로필을 얻는 방법 [3] VᴇɴᴜꜱGɪ 1434 2 07-17
4357 소프트웨어| 탐색기 컨텍스트 메뉴에 토탈커맨더에서 열기 추가 [15] 지후빠 959 23 07-16
4356 윈 도 우| RunOnce 레지스트리 키(간단 메뉴얼) [3] 過客 914 14 07-16
4355 소프트웨어| GPT 파티션 삭제 및 재구성 / EASEUS Partition Master 16 [9] 무월 1487 29 07-14
4354 소프트웨어| iVentoy 만능윈도우(WIM) 자동 설치 [20] 무월 4185 66 07-08
4353 소프트웨어| iVentoy PXE 부팅 네트워크 OS 설치 [25] 무월 1691 39 07-02
4352 기 타| 배치 파일 %~1 [13] bangul 1599 14 07-02
4351 윈 도 우| Microsoft Edge 브라우저 제거 [23] 무월 2370 36 06-30
4350 모 바 일| 동영상을 원 속에 넣어 합성하는 방법 Mobile PowerDirect... [1] 무림거사 1000 2 06-29
XE1.11.6 Layout1.4.8