functioncountstr (str1, str2) Dimtmp, I, J. ifstr1 = ""Orisnull (str1) j = 0 elseifstr2 = ""Orisnull (str2) j = 1 또 다른 tmp = split (str1, str2) j = 0 fori = 0toubound (TMP) iftmp (i) <> ""thenj = j+1 다음 endif countstr = j 최종 기능 장애
