현재 위치 - 주공해몽공식사이트 - 랜덤 번호 뽑기 점술 - VB6 추첨 절차

VB6 추첨 절차

명시적 옵션

내 파일을 문자열로 숨기기

키를 추가합니다: 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 ()' 저장

내 문서

끝단 접합