public function ary(str)
dim a()
dim b()
dim lenstr '字串長
dim i, j '迴圈變數
dim ouflag
lenstr = len(str)
if lenstr mod 2 = 1 then
'長度為奇
ouflag = false
lenstr = lenstr + 1
redim a(2, lenstr / 2)
a(2, lenstr / 2) = chr(20) '最後乙個補空格
else
'長度為偶
redim a(2, lenstr / 2)
ouflag = true
end if
redim b(lenstr / 2, 2)
for i = 1 to lenstr
if i <= lenstr / 2 then
a(1, i) = mid(str, i, 1)
else
if ouflag = true then
a(2, i - lenstr / 2) = mid(str, i, 1)
else
if i <> lenstr then
a(2, i - lenstr / 2) = mid(str, i, 1)
end if
end if
end if
next
for i = 1 to 2
for j = 1 to lenstr / 2
b(j, i) = a(i, j)
next
next
for j = 1 to lenstr / 2
for i = 1 to 2
ary = ary & b(j, i)
next
next
if ouflag = false then
ary = left(ary, lenstr - 1)
end if
end function
public function unary(str)
dim a()
dim b()
dim lenstr '字串長
dim i, j '迴圈變數
dim ouflag
lenstr = len(str)
if lenstr mod 2 = 1 then
'長度為奇
ouflag = false
lenstr = lenstr + 1
redim a(lenstr / 2, 2)
a(lenstr / 2, 2) = chr(20) '最後乙個補空格
else
'長度為偶
redim a(lenstr / 2, 2)
ouflag = true
end if
redim b(2, lenstr / 2)
for i = 1 to lenstr
if i = lenstr and ouflag = false then
a(lenstr / 2, 2) = " "
else
if i mod 2 = 1 then
a((i + 1) / 2, 1) = mid(str, i, 1)
else
a(i / 2, 2) = mid(str, i, 1)
end if
end if
next
for i = 1 to 2
for j = 1 to lenstr / 2
b(i, j) = a(j, i)
next
next
for i = 1 to 2
for j = 1 to lenstr / 2
unary = unary & b(i, j)
next
next
if ouflag = flag then
unary = left(unary, lenstr - 1)
end if
end function
用了你就知道用處了:
dim strg
strg="123456789"
strg=ary(strg)
unary是解密
字串的簡單操作
前段時間在csdn上面看到這樣乙個問題，樓主要求 將乙個字串中不同的字元新增到另外乙個字串中，最後還要進行排序操作 大致要求如下 string a a,b,c string b a,b,e,f 輸出結果為 abcdef 下面是我對這個的實現 static void main string args ...
字串的簡單操作
對於字串的處理，系統已經提供了很多的庫函式可供我們使用，比如strlen 計算字串的長度 strcpy 字串的拷貝 strcat 字串的鏈結 strcmp 字串的比較 strstr 字串的查詢 等等 很大程度上方便了我們的程式設計。下面列出一些例子來說明字串的處理 1 例如 在乙個字串中 hello...
字串的簡單操作
title 方法是將字串中每個單詞以首字母大寫的方式顯示 如 message hello python world print message.title 執行結果 upper 方法是將字串中的字母全部變為大寫 如 message hello python world print message.u...