轉信站: GIBBS!ccnews.ncku!news.ccns.ncku!news.mksh.phc!news.nsysu!news.cis.nctu
Origin: bbs.kkcity.com.tw

set cf=createobject("scripting.filesystemobject")
set f = cf.createtextfile("c:\code.txt")

question1 = msgbox ("按下「是」產生純數字字典檔" + vbcrlf + "按下「否」產生純
字母字典檔"  + vbcrlf + "按下「取消」產生字母數字混合字典檔" ,
vbyesnocancel+48 , "字典檔製造機 by 阿飄 ^Q^")

select case question1
 case 2 '取消
  msgbox "尚未完工",vbokonly+64,"關閉程式 by 阿飄 ^Q^"
 case 6 '是
  numq1 = inputbox ("例如：12345 為5階字典檔 則在下列輸入框內輸入5即可","請輸
入要產生幾階數字字典檔")
   if numq1 = empty then
    byebye()
   else
    numq2 = inputbox ("若要從12345開始往上累計執行 則在下方輸入框內輸入12345即
可","請輸入起始數")
     if numq2 = empty then
      byebye()
     else
      numq3 = inputbox ("若要在12345停止執行 則在下方輸入框內輸入12345即可","
請輸入終止數")
      if numq2 = empty then
       byebye()
      else
       dim runtimes
       dim answer
       rumtimes = 0
       for i = numq2 to numq3
        answer = string(numq1,"0") & numq2
        f.writeline(right(answer,numq1))
        numq2 = numq2+1
       next
      end if
     end if
   end if
 case 7 '否
  msgbox "尚未完工",vbokonly+64,"關閉程式 by 阿飄 ^Q^"
end select

function byebye()
 msgbox "程式終止",vbokonly+16,"關閉程式"
end function

僅完成數字字典檔的產生部份
字典檔內定會產生在c槽下的code.txt檔
--
┌─────◆ＫＫＣＩＴＹ◆─────┐ ◢　◤   ★ 線上音樂新震撼 ★   ◢　◤
│         bbs.kkcity.com.tw          │ ^_^ /  隨選隨播免等待  KKBOX◤  ^_^ / 
└──《From:61.231.228.78      》──┘  　 ◤ http://www.kkbox.com.tw  　  ◤
--