도쿄사는 외노자

0001 0002 AAA XXX BBB YYY CCC ZZZ 위와 같은 테이블을, 아래와 같은 JSON으로 바꾸어 출력하고자 한다. { "0001" : ["AAA", "BBB", "CCC"], "0002" : ["XXX", "YYY", "ZZZ"] } 코드는 다음과 같다. Sub MakeJson() '테이블이 있는 시트 설정 Dim shtWork As String shtWork = "Work" '시트 활성화 ThisWorkbook.Sheets(shtWork).Activate '변수 정의 Dim fileName, fileFolder, filePath As String Dim isFirstCol As Boolean Dim i, u As Long Dim maxRow, maxCol As Long 'JSON파일 ..

Jenkinsfile에서 받은 데이터를 Shell로 넘겨서, TEAMS로 cURL을 통해 Notification을 날리는 업무. 일 자체는 그냥 데이터 받은거 편집해서 curl로 날리면 땡인데... 보시다시피 날려야 할 cURL이 이런 식이다. curl -X POST -H "Content-Type: application/json" -d '{"text":"Branch Name:${BRANCH_NAME} Author:${COMMIT_AUTHOR} Commit Comment:${COMMIT_MSG} ... Jenkins Build:${BUILD_URL} "}' ${TEAMS_URL} 이걸 쉘에 그대로 써서 돌리려니 당연히 따옴표와 쌍따옴표의 카오스가 일어난다. 가독성은 말할 것도 없이 더럽고... 그래서 방법..