『壹』 易語言 超級列表 分割文本 換行
.版本 2
.支持庫 iext
.程序集 窗口程序集_啟動窗口
.子程序 __啟動窗口_創建完畢
.局部變數 文件號, 整數型
.局部變數 文件文本, 文本型
.局部變數 分割1, 文本型, , "0"
.局部變數 分割文本, 文本型, , "0"
.局部變數 分割2, 文本型, , "0"
.局部變數 i, 整數型
.局部變數 B, 整數型
文件號 = 打開文件 (取運行目錄 () + 「/1.txt」, , )
文件文本 = 讀入文本 (文件號, )
分割1 = 分割文本 (文件文本, #換行符, )
.計次循環首 (取數組成員數 (分割1), i)
B = 超級列表框1.插入表項 (, , , , , )
分割文本 = 分割文本 (分割1 [i], 「/」, )
超級列表框1.置標題 (B, 0, 分割文本 [2])
超級列表框1.置標題 (B, 1, 分割文本 [1])
.計次循環尾 ()
『貳』 易語言分割文本
沒錯,但是你的文本里邊其實是有空行的.所以這樣...
把那句:
文本 = 分割文本 (編輯框9.內容, #換行符, )
換成:
文本 = 分割文本 (子文本替換 (編輯框9.內容, #換行符 + #換行符, #換行符, , , 真), #換行符, )
『叄』 易語言文本分割
.版本2
.程序集窗口程序集_啟動窗口
.子程序_按鈕1_被單擊
.局部變數正則,正則表達式類
.局部變數網址,文本型
.局部變數文件名,文本型,,"0"
.局部變數MP4文件名,文本型,,"0"
網址=「像圖片裡面說的,這個鏈接都會隨時改變但是這中間都有幾位數字,如何把它分割http://abcd3345.com/mp44444/123.mp4到編輯框裡面」
'--------------------------------------------------------精易模塊正則取文本
正則.創建(「h[S]*?(d+).mp4」,網址)
編輯框1.內容=正則.取子匹配文本(1,1)
'-------------------------------------------------------精易模塊取文本
文件名=分割文本(網址,「/」,)
編輯框1.內容=文本_取出中間文本(「/」+文件名[取數組成員數(文件名)],「/」,「.mp4」)
'--------------------------------------------------------無模塊取文本
文件名=分割文本(網址,「/」,)
MP4文件名=分割文本(文件名[取數組成員數(文件名)],「.」,)
編輯框1.內容=MP4文件名[1]
三個方法,推薦正則,不會出現錯誤.
『肆』 易語言分割文本
.版本 2
.局部變數 x, 位元組集.局部變數 aa, 文本型, , "0"
x = 讀入文件 (「c:\1.txt」)
aa = 分割文本 (到文本 (x), #換行符, )
編輯框1.內容 = aa [1]
編輯框2.內容 = aa [2]
編輯框3.內容 = aa [3]
編輯框4.內容 = aa [4]
編輯框5.內容 = aa [5]
『伍』 請問易語言里如何將運行目錄里的文本,分割到超級列表框里
.版本 2
.局部變數 B變數, 整數型
.局部變數 C用作分割, 文本型, , "0"
.局部變數 A分割出的文本, 文本型
C用作分割 = 分割文本 (編輯框4.內容, 「--」, )
' 調試輸出 (取數組成員數 (C用作分割))
.計次循環首 (取數組成員數 (C用作分割), B變數)
A分割出的文本 = 取文本左邊 (C用作分割 [B變數], 2)
編輯框2.加入文本 (A分割出的文本)
.計次循環尾 ()
『陸』 易語言 我要分割一個這樣的本地文件,分割好了再另外保存,怎麼寫
把IP放在源代碼的目錄下,或許添加IP文件的全路徑
.版本
2
.程序集
窗口程序集1
.子程序
_按鈕1_被單擊
.局部變數
源_IP,
文本型
.局部變數
文本數組,
文本型,
,
"0"
.局部變數
數組成員數,
整數型
.局部變數
i,
整數型
.局部變數
導出的文本,
文本型
源_IP
=
到文本
(讀入文件
(「源IP.txt」))
.如果真
(源_IP
=
「」)
'
判斷文件是否讀入成功
信息框
(「獲取資源文件失敗!」,
0,
)
返回
()
.如果真結束
文本數組
=
分割文本
(源_IP,
「<br/>」,
)
數組成員數
=
取數組成員數
(文本數組)
.如果真
(數組成員數
≤
0)
'
判斷文件是否分割成功
信息框
(「文件處理失敗!」,
0,
)
返回
()
.如果真結束
.計次循環首
(數組成員數,
i)
導出的文本
=
導出的文本
+
文本數組
[i]
+
#換行符
.計次循環尾
()
.如果真
(寫到文件
(「處理_IP.txt」,
到位元組集
(導出的文本)))
'
判斷文件是否寫出成功
信息框
(「文件整理成功!」,
0,
)
.如果真結束
『柒』 易語言文本分割
.版本 2
.支持庫 xplib
.支持庫 edroptarget
.支持庫 shell
.支持庫 spec
.支持庫 iext5
.程序集 窗口程序集1
.子程序 __啟動窗口_創建完畢
XP風格 (2)
拖放對象1.接收文件 = 真
拖放對象1.注冊拖放控制項 (編輯框_替換源文件.取窗口句柄 ())
.子程序 _按鈕_打開_被單擊
.局部變數 文件號, 整數型
.局部變數 文件名, 文本型
.如果真 (通用對話框_打開.打開 () = 真)
編輯框_源文件路徑.內容 = 通用對話框_打開.文件名
文件號 = 打開文件 (編輯框_源文件路徑.內容, , )
編輯框_文本大小.內容 = 到文本 (四捨五入 (取文件長度 (文件號) ÷ 1024, 2))
關閉文件 (文件號)
文件名 = 取文本中間 (編輯框_源文件路徑.內容, 1, 倒找文本 (編輯框_源文件路徑.內容, 「\」, , 假) - 1)
編輯框_存儲路徑.內容 = 文件名
.如果真結束
.子程序 _按鈕_保存_被單擊
.局部變數 路徑, 文本型
路徑 = 瀏覽文件夾 (「保存到」, 真)
.如果真 (路徑 = 「」)
返回 ()
.如果真結束
編輯框_存儲路徑.內容 = 路徑
.子程序 _按鈕1_被單擊
.如果真 (編輯框_源文件路徑.內容 = 「」 或 編輯框_存儲路徑.內容 = 「」)
信息框 (「請選擇路徑!!」, 64, 「提示」)
返回 ()
.如果真結束
.如果真 (到數值 (編輯框_自定義分割.內容) > 到數值 (編輯框_文本大小.內容) 或 編輯框_自定義分割.內容 = 「0」)
信息框 (「輸入錯誤!!」, 64, 「提示」)
返回 ()
.如果真結束
.如果 (單選框1.選中 = 真)
自定義分割 ()
.否則
平均分割 ()
.如果結束
.子程序 _單選框2_被單擊
.如果真 (單選框2.選中 = 真)
編輯框_自定義分割.禁止 = 真
編輯框_平均分割.禁止 = 假
編輯框_自定義分割.內容 = 「」
編輯框_平均分割.內容 = 「 2」
.如果真結束
.子程序 _單選框1_被單擊
.如果真 (單選框1.選中 = 真)
編輯框_平均分割.禁止 = 真
編輯框_自定義分割.禁止 = 假
編輯框_平均分割.內容 = 「」
.如果真結束
.子程序 自定義分割
.局部變數 自定義_文件號, 整數型
.局部變數 自定義_存放, 文本型
.局部變數 自定義_變數, 整數型
.局部變數 自定義_取文件名, 文本型, , "0"
.局部變數 自定義_取後綴, 文本型, , "0"
.如果真 (編輯框_自定義分割.內容 = 「」)
信息框 (「輸入分割大小!!」, 64, 「提示」)
返回 ()
.如果真結束
自定義_文件號 = 打開文件 (編輯框_源文件路徑.內容, , )
移到文件首 (自定義_文件號)
調試輸出 (四捨五入 (到小數 (編輯框_文本大小.內容), ) ÷ 到數值 (編輯框_自定義分割.內容))
.變數循環首 (1, 四捨五入 (到小數 (編輯框_文本大小.內容) ÷ 到數值 (編輯框_自定義分割.內容), ), 1, 自定義_變數)
自定義_存放 = 到文本 (讀入位元組集 (自定義_文件號, 到數值 (編輯框_自定義分割.內容) × 1024))
' 調試輸出 (自定義_存放)
自定義_取文件名 = 分割文本 (編輯框_源文件路徑.內容, 「\」, )
自定義_取後綴 = 分割文本 (自定義_取文件名 [取數組成員數 (自定義_取文件名)], 「.」, )
寫到文件 (編輯框_存儲路徑.內容 + 「\」 + 自定義_取後綴 [1] + 「_」 + 到文本 (自定義_變數) + 「.txt」, 到位元組集 (自定義_存放))
.變數循環尾 ()
信息框 (「分割完成」, 64, 「提示」)
關閉文件 (自定義_文件號)
.子程序 平均分割
.局部變數 平均_文件號, 整數型
.局部變數 平均_數量, 整數型
.局部變數 平均_計次, 整數型
.局部變數 平均_取文件名, 文本型, , "0"
.局部變數 平均_取後綴, 文本型, , "0"
.局部變數 平均_存放, 文本型
平均_文件號 = 打開文件 (編輯框_源文件路徑.內容, , )
移到文件首 (平均_文件號)
平均_數量 = (取整 (到小數 (編輯框_文本大小.內容)) + 0.4) ÷ 到數值 (編輯框_平均分割.內容)
調試輸出 (平均_數量)
調試輸出 (取整 (到小數 (編輯框_文本大小.內容)) + 0.4)
.計次循環首 (到數值 (編輯框_平均分割.內容), 平均_計次)
平均_存放 = 到文本 (讀入位元組集 (平均_文件號, 平均_數量 × 1024))
平均_取文件名 = 分割文本 (編輯框_源文件路徑.內容, 「\」, )
平均_取後綴 = 分割文本 (平均_取文件名 [取數組成員數 (平均_取文件名)], 「.」, )
寫到文件 (編輯框_存儲路徑.內容 + 「\」 + 平均_取後綴 [1] + 「_」 + 到文本 (平均_計次) + 「.txt」, 到位元組集 (平均_存放))
.計次循環尾 ()
信息框 (「分割完成」, 64, 「提示」)
關閉文件 (平均_文件號)
.子程序 __啟動窗口_將被銷毀
關閉所有文件 ()
' ==========================================================================================
.子程序 _替換_打開_被單擊
.如果真 (通用對話框_打開1.打開 () = 真)
編輯框_替換源文件.內容 = 到文本 (讀入文件 (通用對話框_打開1.文件名))
替換_替換.禁止 = 假
替換_保存.禁止 = 假
.如果真結束
.子程序 _替換_清空_被單擊
編輯框_替換源文件.內容 = 「」
.子程序 _替換_替換_被單擊
載入 (替換, , 假)
.子程序 _替換_保存_被單擊
.如果真 (通用對話框_保存.打開 () = 假)
返回 ()
.如果真結束
寫到文件 (通用對話框_保存.文件名, 到位元組集 (編輯框_替換源文件.內容))
.子程序 _編輯框_替換源文件_按下某鍵, 邏輯型
.參數 鍵代碼, 整數型
.參數 功能鍵狀態, 整數型
.如果真 (鍵代碼 = 65 且 功能鍵狀態 = #Ctrl鍵狀態)
編輯框_替換源文件.獲取焦點 ()
編輯框_替換源文件.起始選擇位置 = 0
編輯框_替換源文件.被選擇字元數 = 取文本長度 (編輯框_替換源文件.內容)
.如果真結束
.子程序 _拖放對象1_得到文件
.參數 接收到的文件路徑, 文本型
編輯框_替換源文件.內容 = 到文本 (讀入文件 (接收到的文件路徑))
.如果真 (編輯框_替換源文件.內容 ≠ 「」)
替換_替換.禁止 = 假
替換_保存.禁止 = 假
.如果真結束
.子程序 _高級選擇夾1_子夾頭被單擊
.參數 子夾索引, 整數型
.如果真 (子夾索引 = 1)
氣球提示框1.彈出提示框 (_啟動窗口.左邊 + 編輯框_替換源文件.左邊 + 50, _啟動窗口.頂邊 + 編輯框_替換源文件.頂邊 + 50, 「可直接拖入文本」, -1, 真)
播放音樂 (「C:\WINDOWS\Media\Windows XP 氣球.wav」, 假)
.如果真結束
.子程序 _編輯框_替換源文件_內容被改變
.如果 (編輯框_替換源文件.內容 ≠ 「」)
替換_替換.禁止 = 假
替換_保存.禁止 = 假
.否則
替換_替換.禁止 = 真
替換_保存.禁止 = 真
.如果結束
『捌』 易語言把一個TXT文件分割成多個TXT文件,求助
.版本 2
.程序集 窗口程序集1
.子程序 _按鈕1_被單擊
.局部變數 源文件, 文本型
.局部變數 分割, 文本型, , "0"
.局部變數 i, 整數型
.局部變數 o, 整數型
.局部變數 分割好的, 文本型
.局部變數 p, 整數型
源文件 = 到文本 (讀入文件 (「C:\Documents and Settings\Administrator\桌面\教程.txt」))
分割 = 分割文本 (源文件, #換行符, )
.計次循環首 (取數組成員數 (分割), i)
o = o + 1
.如果 (o > 6)
p = p + 1
寫到文件 (取運行目錄 () + 「\」 + 到文本 (p) + 「.txt」, 到位元組集 (分割好的))
分割好的 = 「」
o = 1
.否則
分割好的 = 分割好的 + 分割 [i] + #換行符
.如果結束
.計次循環尾 ()
我也是新手,用文本分割就行了!
『玖』 易語言如何分割文本
你是想讀入文件里的文本,然後把裡面的東西放到a和b里,然後再用----分開?
還是已經有了文本,直接放到a和b里,然後再用----分開?
解1:想讀入文件里的文本,然後把裡面的東西放到a和b里,然後再用----分開
.版本 2
.程序集 窗口程序集1
.程序集變數 文件內容, 文本型
.程序集變數 文件數組, 文本型, , "0"
.子程序 _按鈕1_被單擊
.局部變數 i, 整數型
文件內容 = 到文本 (讀入文件 (「文件路徑」))
文件數組 = 分割文本 (文件內容, 「----」, )
.變數循環首 (1, 取數組成員數 (文件數組), 2, i)
組合框1.現行選中項 = 組合框1.加入項目 (文件數組 [i] + 「 密碼:」 + 文件數組 [i + 1], )
.變數循環尾 ()
解2:已經有了文本,直接放到a和b里,然後再用----分開
.版本 2
.程序集 窗口程序集1
.程序集變數 文件內容, 文本型
.程序集變數 文件數組, 文本型, , "0"
.子程序 _按鈕1_被單擊
.局部變數 i, 整數型
文件內容 = #內容
文件數組 = 分割文本 (文件內容, 「----」, )
.變數循環首 (1, 取數組成員數 (文件數組), 2, i)
組合框1.現行選中項 = 組合框1.加入項目 (文件數組 [i] + 「 密碼:」 + 文件數組 [i + 1], )
.變數循環尾 ()
.版本 2
.常量 內容, "用戶名1----密碼"
『拾』 易語言分割文件寫配置
我有免費的文件分割工具,免安裝且自定義分割單位,還支持自合並功能,需要的M,加QQ務必註明原因才可能通過,否則不通過