易語言分割文字

時間 2022-07-01 03:15:09

1樓:

.版本 2

.子程式 _按鈕1_被單擊

.區域性變數 格式, 文字型

.區域性變數 單檔案大小, 整數型

.區域性變數 原始檔, 文字型

.區域性變數 分成檔案數, 整數型

.區域性變數 分割後的檔案, 文字型, , "0"

.區域性變數 正在分割第幾份, 整數型

.區域性變數 正在寫出第幾份, 整數型

原始檔 = 到文字 (讀入檔案 (「c:\1.txt」))

格式 = 取文字右邊 (編輯框1.內容, 2)

' 單位轉換為b

.判斷開始 (到小寫 (格式) = 「mb」)

單檔案大小 = 到整數 (取文字左邊 (編輯框1.內容, 取文字長度 (編輯框1.內容) - 2))

單檔案大小 = 單檔案大小 × 1024 × 1000 ' mb》kb》b

.判斷 (到小寫 (格式) = 「kb」)

單檔案大小 = 到整數 (取文字左邊 (編輯框1.內容, 取文字長度 (編輯框1.內容) - 2))

單檔案大小 = 單檔案大小 × 1000 ' kb》b

.判斷 (到小寫 (取文字右邊 (格式, 1)) = 「b」)

單檔案大小 = 到整數 (取文字左邊 (編輯框1.內容, 取文字長度 (編輯框1.內容) - 1)) ' 這裡是-1

' 不用轉換了

.預設.判斷結束

' 轉換完畢,判斷分割幾個

分成檔案數 = 取文字長度 (原始檔) ÷ 單檔案大小

.如果真 (到整數 (分成檔案數) ≠ 分成檔案數) ' 是不是小數

分成檔案數 = 取整 (分成檔案數) + 1

.如果真結束

' 開始分割

.計次迴圈首 (分成檔案數, 正在分割第幾份)

加入成員 (分割後的檔案, 取文字左邊 (原始檔, 單檔案大小)) ' 加入文字

原始檔 = 取文字右邊 (原始檔, 取文字長度 (原始檔) - 單檔案大小) ' 這個步驟「修改」原檔案,為生成第二份檔案「奠定了基礎」

.計次迴圈尾 ()

' 開始寫出

建立目錄 (「c:\1\」) ' 必須建立目錄

.計次迴圈首 (取陣列成員數 (分割後的檔案), 正在寫出第幾份)

寫到檔案 (「c:\1\檔案」 + 到文字 (正在寫出第幾份), 到位元組集 (分割後的檔案 [正在寫出第幾份])) ' 寫出的會是「檔案1」「檔案2」……「檔案11」「檔案12」……,不是「檔案0001」,如果想這樣也可以加,有些麻煩

.計次迴圈尾 ()

' 寫出完畢

2樓:闖蕩天下

文字資料分割轉換成每隔兩個字元分割中間加上逗號。 .版本 2 .子程式 _按鈕1_被單擊

易語言分割文字問題,易語言分割文字的問題

厄,這個容易。直接上傳源 吧 版本 2 子程式 按鈕1 被單擊 區域性變數 臨時文字1,文字型 區域性變數 目標文字,文字型 區域性變數 臨時文字陣列1,文字型,0 區域性變數 臨時文字陣列2,文字型,0 區域性變數 i,整數型 臨時文字陣列1 分割文字 編輯框1.內容,換行符,計次迴圈首 取陣列成...

易語言取文字中間的內容,易語言 取文字中間的內容

從開頭一直到所要取出的未知數的長度總共是23,所要取的字元數不確定,但確定的是除未知數外,總長度為34 所以 應該寫成 取文字中間 到文字 未知數 23,取文字長度 未知數 34 墨魚小易 版本 2 子程式 取兩文字中間,文字型,公開 引數 文字,文字型 引數 左邊的文字,文字型 引數 右邊的文字,...

易語言的應用,什麼是易語言

在小數點後十五位就錯了,你那種演算法只能得出近似值。才是正確的 3.1415926535897924963757626983556錯了錯了。全中文支援,無需跨越英語門檻。有利中小學生學習,在中小學,雖然已開設了英語,可是並沒有開設計算機專來英語,且英語很好的學生也只是個別。視覺化程式設計,支援所見即...