易語言文本長度這麼導入文本

解夢佬 0

1. 易語言怎麼讀取文本能的行數

.版本 2

.程序集 窗口程序集1

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

.局部變量 文本長度, 整數型

文本長度 = 取文本長度 (讀入文本 (打開文件 (“F:\123.txt”, #讀入, ), ))

.判斷開始 (取整 (文本長度 ÷ 20) 編輯框1.內容 = 到文本 (取整 (文本長度 ÷ 20) + 1)

.判斷 (取整 (文本長度 ÷ 20) = 文本長度 ÷ 20)

編輯框1.內容 = 到文本 (文本長度 ÷ 20)

.默認

要取行數得知道要以每幾個字符(半角的)為一行,這里假設以每20個字符為一行。

一般分辨率為1024*768的打開記事本后最大化(自動換行的),它每一行就有125個字符(半角的)。

2. 易語言怎麼取指定文本的右邊其他指定長度的文本

.版本 2

.支持庫 spec.子程序 __啟動窗口_創建完畢

.局部變量 循環次數, 整數型

.局部變量 字節, 整數型置隨機數種子 ()

.計次循環首 (26, 循環次數) ' 因為是26個英文字母

字節 = 96 + 循環次數 ' 計算英文字母的字節集

編輯框1.加入文本 (取重復文本 (3, 字符 (字節)) + “=” + 到文本 (取隨機數 (10, 100)) + #換行符)

' 將英文字母的字節集用字符命令轉換成字母,重復3次,取出10-100之間的隨機數

.計次循環尾 ()

調試輸出 (取等號右邊 (“hhh”)) ' 輸出hhh右邊的數.子程序 取等號右邊, 文本型

.參數 等號左邊的內容, 文本型

.局部變量 內容的位置, 整數型內容的位置 = 尋找文本 (編輯框1.內容, 等號左邊的內容, , 假)

.如果真 (內容的位置 ≠ -1) ' 查找等號左邊的內容找到了繼續往下執行 ,沒找到返回空文本

返回 (取文本中間 (編輯框1.內容, 內容的位置 + 取文本長度 (等號左邊的內容) + 1, 2))

.如果真結束

返回 (“”)