내 파일을 문자열로 숨기기
키를 추가합니다: Extract
Commondialog 1 을 추가하여 txt 파일을 찾습니다.
목록 목록 목록 목록 List 1 을 배열로 추가합니다.
개인 Sub getData ()
Myfile = getfilepathname (common dialog1,"txt")
LineRead 내 파일
끝단 접합
함수 lineread (name path as string) as string
목록1. 분명하다
S 를 문자열로 어둡게 합니다
입력한 이름 경로를 # 1 open 으로 사용합니다
Do eof 까지 (1)
라인 입력 # 1, s
목록1. 항목을 첨부하려면 다음과 같이 하십시오
고리
닫기 # 1
기능을 종료합니다
개인 하위 명령 1_Click ()
GetData= ""인 경우 getData
I 를 정수로 치수기입합니다
목록 1 인 경우. Count = 그런 다음 msgbox "모든 배치가 추출됨": sub 종료.
I=int(rnd()*List 1.count)
Msgbox 목록 1. 목록 (I) 추첨 결과는 I 입니다.
목록1. 목록 (i) = ""
내 문서
끝단 접합
Sub wirteTxt (이름 경로는 문자열)
S 를 문자열로 어둡게 합니다
I 를 정수로 치수기입합니다
I = 0 에서 List 1 까지의 경우. 목록 수-1
목록 1 인 경우. 목록 (a)<& gt "그럼 s = s+List 1. 목록 (a)+vbCrLf
그리고 나서
출력 이름 경로를 # 1 으로 엽니다
인쇄 번호 1, s
닫기 # 1
S = ""
끝단 접합
함수 getFilePathName(dlgObj 는 객체로, setFilter 는 문자열로) 을 문자열로 사용합니다
Commondialog 1 추가
오류 발생 시 오류로 이동
DlgObj 사용
。 DialogTitle = "폴더를 지정하십시오"
。 Filter = "지정 파일 (*."&; Set filter & amp ") | *."& set filter
。 쇼 오픈 (ShowOpen)
GetFilePathName =. 파일명
로 끝맺다
기능을 종료합니다
오류:
MsgBox "파일을 선택하지 않았거나 폴더에 파일이 없습니다."&; SetFilter & amp "파일"
기능을 종료합니다
개인 하위 명령 3_Click ()' 저장
내 문서
끝단 접합
장