七、字符串的一般處理

　　1.簡單加密和解密

　　加密的思想是：

　　將每個字母C加(或減)一序數K,即用它后的第K個字母代替，變換式公式： c=chr(Asc(c)+k)

　　例如序數k為5,這時 "A"→ "F", "a"→?"f","B"→?"G"…

　　當加序數后的字母超過"Z"或"z"則 c=Chr(Asc(c)+k -26)

　　例如：You are good→ Dtz fwj ltti

　　解密為加密的逆過程

　　將每個字母C減(或加)一序數K,即 c=chr(Asc(c)-k)，

　　例如序數k為5,這時 "Z"→"U", "z"→"u","Y"→"T"…

　　當加序數后的字母小于"A"或"a"則 c=Chr(Asc(c)-k +26)

　　下段程序是加密處理：

　　i = 1: strp = ""

　　nL = Len(RTrim(strI))

　　Do While (i <= nL)

　　strT = Mid$(strI, i, 1) '取第i個字符

　　If (strT >= "A" And strT <= "Z") Then

　　iA = Asc(strT) + 5

　　If iA > Asc("Z") Then iA = iA - 26

　　strp = strp + Chr$(iA)

　　ElseIf (strT >= "a" And strT <= "z") Then

　　iA = Asc(strT) + 5

　　If iA > Asc("z") Then iA = iA - 26

　　strp = strp + Chr$(iA)

　　Else

　　strp = strp + strT

　　End If

　　i = i + 1

　　Loop

　　Print strp

　　2.統計文本單詞的個數

　　算法思路：

　　(1)從文本(字符串)的左邊開始，取出一個字符;設邏輯量WT表示所取字符是否是單詞內的字符，初值設為False

　　(2)若所取字符不是"空格","逗號","分號"或"感嘆號"等單詞的分隔符，再判斷WT是否為True,若WT不為True則表是新單詞的開始，讓單詞數Nw=Nw+1,讓WT=True;

　　(3)若所取字符是"空格","逗號","分號"或"感嘆號"等單詞的分隔符， 則表示字符不是單詞內字符，讓WT=False;

　　(4)再依次取下一個字符，重得(2)(3)直到文本結束。

　　下面程序段是字符串strI中包含的單詞數

　　Nw = 0: Wt = False

　　nL = Len(RTrim(strI))

　　For i = 1 To nL

　　strT = Mid$(strI, i, 1) '取第i個字符

　　Select Case strT

　　Case " ", ",", ";", "!"

　　Wt = False

　　Case Else

　　If Not Wt Then

　　Nw = Nw + 1

　　Wt = True

　　End If

　　End Select

　　Next i

　　Print "單詞數為：", Nw

　　相關推薦：

　　2012年下半年計算機等級考試報名時間及入口匯總

　　計算機等級考試三級PC技術過關心得技巧

　　2012年3月計算機二級考試真題匯總