% R & LT 어둡게
서브 ImportFromTextFile ()
로 객체의 희미한 FSO와 같은 부울의 blnExist의 개체 sFile
로서 문자열 희미 파일명으로서 정수 I로서 정수 iCol 으로서는의 문자열 LineText
헌장. 1 = ForReading
설정 FSO = CreateObject를 ( "Scripting.FileSystemObject와")를 'FileSystemObject를 객체 생성
fileName에 = "H를 : \ nama_exi_p.tsv을" ' 지정된 텍스트 파일 이름은
blnExist = fso.FileExists (파일 이름) '파일이 있는지 여부를 확인하고, 그렇지 않은 경우, 다음 종료 프로 시저에
다음있는 MsgBox "파일이 존재하지 않을 경우하지 blnExist! "출구 서브는
설정 sFile = fso.OpenTextFile (파일 이름, ForReading)은 '생성하고 sFile라는 이름의 개방있는 TextStream 개체
않지만하지 sFile.AtEndOfStream'다음이 아닌 텍스트 파일의 끝, 데이터 읽는다면
LineText = sFile.ReadLine
전화 getNum1 (LineText)
루프
sFile.닫기
세트 FSO = 아무것도
설정 sFile = 아무것도
최종 하위
하위 getNum1 (문자열로 STR)
R = R + 1
세트 등록 = CreateObject를 ( "VBScript.RegExp을")
등록 번호와
.Global = 진정한
.IgnoreCase = 진정한
.Pattern = "(\ S +) \ S + (\ S +) \ S + (\ S +) "
끝
집합 MC = reg.Execute (STR)
(MC)의 각 m 들어
세포 (R 1) = m.submatches.Item (0)
세포 (R 2) = m.submatches.Item (1)
세포 (R 3) = m.submatches.Item (2)
다음으로
최종 서브