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

고맙습니다

더 수정할 부분 있으면 고쳐주세요.^^

특히 빈 줄이 2개 이상일때..

요즘은 코로나 땜에 시간이 나네요.

바쁘면 눈팅 할 시간도 없어요.

<테스트 결과>

1 : 

2 : 3 : 4 : 5

'----- 주석문 안 들어가게 ---------------------------------

'----- "return" -> " : " --------------------------------------

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

'----- erase "5 empty line" -----------------------------

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

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

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

주석문 과 빈줄 스크립트(무식하게 위 처럼 하니 5개까지는 가능) --> 수정 부탁드립니다.^^

빈줄 제거는 "\n\s*\r" 정도로 하면 되지 않을까요.

주석문 정리하면 빈줄이 생기니 그다음으로 빈줄 제거를 하면 될듯 싶습니다.^^

한 번만 더 봐주세요.^^

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

set fso = wscript.createobject("scripting.filesystemobject")

if wscript.arguments.length<>0 then

    spath=wscript.arguments(0)

    if fso.fileexists(spath) then

            fso.copyfile spath, spath & ".original", true

    end if

end if

set oFile = fso.OpenTextFile(spath, 1)

sData = oFile.ReadAll

oFile.Close

Dim objRegExp : Set objRegExp = New RegExp 

With objRegExp

.Pattern = "\'.*"    '----- 주석문 안 들어가게 -------------

.Global = True 

sData = .Replace(sData, "")

.Pattern = "\n\s*\r"    '----- erase "empty line" --------

.Global = True 

sData = .Replace(sData, "")

End With

Set objRegExp = Nothing 

'----- "return" -> " : " --------------------------------------

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

'----- erase last " : " at the end ---------------------------

if (Right(sData,3) =" : ") then

sData = Trim(Left(sData,Len(sData)-3))

end if

if (Left(sData,3) =" : ") then

sData = Trim(Right(sData,Len(sData)-3))

end if

'----- save as file -----------------------------------------

set oFile = fso.CreateTextFile(Replace(spath, Right(spath,4),"" & Right(spath,4)))

oFile.Write sData 

oFile.Close

원본

1

'---

2

3

4

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

5

결과

1 : 2 : 3 : 4 : 

5

일단 

sData = Replace(sData, vbCrLF, " : ") 다음줄에 

sData = Replace(sData, vbLF, " : ") 추가해주시면 될듯합니다.

자세한 것은 점심시간이나 퇴근후 살펴보겠습니다. ^^;

"주석문 제거"빼고 하면 모든 빈줄은 몇개가 들어가든 성공 

주석문 제거 + sData = Replace(sData, vbLF, " : ") 추가 = 실패

완성되게 도와주세요.^^

완벽하네요.

감사합니다.^^

덕분에 정규식 다시 한번 보았는데 역시나 한계가 있는 것 같습니다. 공부가 되었습니다. ^^

필요할 때 구글신에게 물어서 조합해서 쓰곤하는데 자주 안써서... 또 곧 잊겠지요.      >.<