문제.

HTML파일에 존재하는 테이블의 갯수를 알아야 할 일이 생김.


코드.

Dim htmlFileObj, htmlOpenFile, strReadAll, htmlPageCnt

Set htmlFileObj = CreateObject("Scripting.FileSystemObject")

Set htmlOpenFile = htmlFileObj.OpenTextFile(filePath)

strReadAll = htmlOpenFile.ReadAll

htmlPageCnt = UBOUND(SPLIT(strReadAll, "</table>"))


참조.

split를 이용한 글자 수 세기

반응형

+ Recent posts