執行效果:
執行**:
private sub command1_click()
dim myrows '定義段落數
dim myarray() as string '宣告陣列,儲存文字
with text1
myarray = split(.text, vbcrlf)
if text1.text <> "" then
myrows = ubound(myarray) + 1 '返回段落數
else
msgbox "請輸入文字內容", , "錯誤提示"
exit sub
end if
msgbox "段落數:" & myrows, , "段落統計"
end with
end sub
學習總結:
1、with語句:在乙個單一物件或乙個使用者定義型別上執行一系列的語句
例如,要改變乙個物件的多個屬性,可以在 with 控制結構中加上屬性的賦值語句,這時候只是引用物件一次而不是在每個屬性賦值時都要引用它。下面的例子顯示了如何使用 with 語句來給同乙個物件的幾個屬性賦值。
with mylabel
.height = 2000
.width = 2000
.caption = "this is mylabel"
end with
注意:當程式一旦進入 with 塊,object 就不能改變。因此不能用乙個 with 語句來設定多個不同的物件。
2、split**,常用語法結構:
split(expression[, delimiter[, count[, compare]]])
split(《字串》,[《分割符》],[返回個數],[比較方式])。
返回乙個下標從零開始的一維陣列,它包含指定數目的子字串。
Shell 程式設計 利用字典統計文字次數
csdn 問答上看到的乙個問題,有乙個 test.log 內容如下 a,e a,b,e b,c,e c,ec,d,ed,e統計規則是這樣的 每一行以逗號分割,如果第二個欄位為 e 就統計該行,否則將第乙個字段相同且第二個欄位不為 e 的行數累加。為了換換腦子 調節一下大腦思維,所以就花了點時間寫了下...
python利用dict統計每個文字的出現次數
在乙個群裡看到有個群友有個需求 有八門課的名單,每行名單為每門課的名單,想統計每個人選課的次數 資料形式如下 思路 讀取所有名單,利用set集合建立不重複的list,然後建立字典,再利用字典的key對名單進行遍歷 知識點 coding utf 8 author fff zrx filepath te...
VB程式設計 陣列中刪除陣列元素 27
執行效果 程式 dim a private sub form load redim preserve a 1 to 5 for i 1 to 5 a i i next i for i 1 to 5 text1.text text1.text a i a i next i for i 2 to 4 a...