텍스트에서 데이터를 읽는 방법 ？ 텍스트가 VBA 를 능가하는가?

Set fileobj = createobject ("scripting". 파일 시스템 객체) 를 참조하십시오

Textobj = fileobj 를 설정합니다. Opentextfile (str, 1, false)' str 은 파일 이름이고 1 = 읽기, false= 파일 작성 안 함.

TextObj 가 아닙니다. 아텐돌류

Str = TextObj 입니다. 선독선

Msgbox str' 은 파일의 모든 줄을 보여줍니다. 이 줄을 수정하여 필요한 형식으로 압축을 푸는 것입니다.

네.

TextObj 입니다. 닫기

텍스트 처리의 핵심은 다음과 같이 마지막 while 루프입니다.

I=2

TextObj 가 아닙니다. 아텐돌류

Str = TextObj 입니다. 선독선

Str= ""인 경우 i=i+ 1

Arr = split (문자열, "=")

사례 자르기 선택 (arr(0))

사례 "장비"

셀 (I, 1). 값 = 배열 (1)

사례 "사용자"

셀 (I, 2). 값 = 배열 (1)

하우징 "중공"

세포 (I, 3). 값 = 배열 (1)

선택을 마치다

네.