.版本2.支援庫iext.支援庫Krnlnex.程式集視窗程式集1.子程式__啟動視窗_建立完畢.判斷開始(檔案是否存在(取執行目錄()＋“/1.txt”)＝假) 寫到檔案(取執行目錄()＋“/1.txt”,#文字).預設.判斷結束.子程式_按鈕1_被單擊.區域性變數文字,文字型,,"0".區域性變數檔案,文字型.區域性變數l,整數型.區域性變數B,整數型超級列表框1.全部刪除()檔案＝到文字(讀入檔案(取執行目錄()＋“/1.txt”))除錯輸出(檔案)文字＝分割文字(檔案,#換行符,)除錯輸出(文字).計次迴圈首(取陣列成員數(文字),l) B＝超級列表框1.插入表項(,,,,,) 超級列表框1.置標題(B,0,到文字(l)) 超級列表框1.置標題(B,1,文字[l]).計次迴圈尾().子程式_按鈕3_被單擊.區域性變數B,整數型.區域性變數L,整數型.如果真(編輯框1.內容≠“”) B＝超級列表框1.取表項數() L＝超級列表框1.插入表項(,,,,,) 超級列表框1.置標題(L－1,0,到文字(B＋1)) 超級列表框1.置標題(L－1,1,編輯框1.內容) 編輯框1.內容＝“”.如果真結束.子程式_按鈕2_被單擊.區域性變數內容,文字型,,"0".區域性變數最後內容,文字型.區域性變數L,整數型.計次迴圈首(超級列表框1.取表項數(),L) 加入成員(內容,超級列表框1.取標題(L－1,1)).計次迴圈尾()L＝0.計次迴圈首(取陣列成員數(內容),L) .如果(L＝取陣列成員數(內容)) 最後內容＝最後內容＋內容[L] .否則 最後內容＝最後內容＋內容[L]＋#換行符 .如果結束.計次迴圈尾()寫到檔案(取執行目錄()＋“/1.txt”,到位元組集(最後內容))
.版本2.支援庫iext.支援庫Krnlnex.程式集視窗程式集1.子程式__啟動視窗_建立完畢.判斷開始(檔案是否存在(取執行目錄()＋“/1.txt”)＝假) 寫到檔案(取執行目錄()＋“/1.txt”,#文字).預設.判斷結束.子程式_按鈕1_被單擊.區域性變數文字,文字型,,"0".區域性變數檔案,文字型.區域性變數l,整數型.區域性變數B,整數型超級列表框1.全部刪除()檔案＝到文字(讀入檔案(取執行目錄()＋“/1.txt”))除錯輸出(檔案)文字＝分割文字(檔案,#換行符,)除錯輸出(文字).計次迴圈首(取陣列成員數(文字),l) B＝超級列表框1.插入表項(,,,,,) 超級列表框1.置標題(B,0,到文字(l)) 超級列表框1.置標題(B,1,文字[l]).計次迴圈尾().子程式_按鈕3_被單擊.區域性變數B,整數型.區域性變數L,整數型.如果真(編輯框1.內容≠“”) B＝超級列表框1.取表項數() L＝超級列表框1.插入表項(,,,,,) 超級列表框1.置標題(L－1,0,到文字(B＋1)) 超級列表框1.置標題(L－1,1,編輯框1.內容) 編輯框1.內容＝“”.如果真結束.子程式_按鈕2_被單擊.區域性變數內容,文字型,,"0".區域性變數最後內容,文字型.區域性變數L,整數型.計次迴圈首(超級列表框1.取表項數(),L) 加入成員(內容,超級列表框1.取標題(L－1,1)).計次迴圈尾()L＝0.計次迴圈首(取陣列成員數(內容),L) .如果(L＝取陣列成員數(內容)) 最後內容＝最後內容＋內容[L] .否則 最後內容＝最後內容＋內容[L]＋#換行符 .如果結束.計次迴圈尾()寫到檔案(取執行目錄()＋“/1.txt”,到位元組集(最後內容))