필드명 지정없이 For Each로 csv나 xlsx를 json으로 변환

정리는 시간나면 하고..

일단 생각나는대로 적어둠.

VBS에서는 for each를 이용해서 필드명을 가져오는 방법등이 있었지만 이는 원래 Recordset등의 필드명이 지정되었을 경우에만 해당한다.

datatable을 vbs에서 어떻게 for each로 만들지는 아직 연구하지 않았기 때문에 일단 패스, 아마 csv에서 첫 행을 헤더로 읽거나 xlsx에서 첫 행을 header로 읽으면 가능할 듯 하지만,

쉬운 방법으로 일단 기술해 본다.

## csv의 경우

파일을 header있음으로 우선 datatable에 저장.

그리고 다시 파일을 text읽기로 하여 첫 로우만 변수로 저장.

저장된 변수를 sFields라고하면

aryFields = split(sFields, ",")

로 assign activity에 집어 넣음

물론 aryFields의 속성은 text속성의 array 타입

그리고 각 필드의 전후에 스페이스를 없애기 위해

Trim을 사용해서 스페이스를 없애줌.

replace로 먼저 없애고 split을 하는 것도 가능.

그리고 datatable의 for each row 를 이용하여

매 row마다 for each로 aryFields를 호출(for each에서 row를 가져오면 안됨!)

jLine = jLine + """" + item.toString + """:""" + row(item).toString + """"

이렇게 하면

필드 개수를 모르더라도 한 라인을 Json타입으로 가져올 수 있음.

물론 좌우는 {}를 적절히 넣어주고, 콤마도 적절히 if를 이용해서 넣을 것.

row(item).toString이 숫자인 경우의 처리는

Microsoft.VisualBasic.Information.IsNumeric

을 이용하여 판단 가능.

VBScript를 선택하였다 하더라도 MS Visual Basic과는 코드가 조금씩 다르기 때문에 이러한 형태로 변형하여 사용하는 방법을 알아두면 편리함.

이쁘게 이미지 까지 정리하는건 나중에.. =ㅅ=;;

giip :: Free mixed RPA orchestration tool!

https://giipasp.azurewebsites.net/

Talk Lowy(kr)