repeat with i:=1 to CharCount(String) --根据字符串中的字符数量开展循环
--从源字符串左侧开始处理字符，最左侧的字符放在目标字符串的最右侧
reverse:=SubStr(String, i, i)^reverse
end repeat
上述语句执行之后，变量reverse的值为："gnimoC si 0.7 erawrohtuA"。本过程同样适用于中文字符串。
2．WordReverse：反转单词顺序
以下过程将变量String中的单词顺序进行反转。
wordreverse:="" --用于存放反转后的字符串
repeat with i:=1 to WordCount(String) --根据字符串中的单词数量开展循环
--从源字符串左侧开始处理单词，最左侧的单词放在目标字符串的最右侧
wordreverse:=GetWord(i, String)^" "^wordreverse
end repeat
--去除字符串末尾多余的空格
wordreverse:=SubStr(wordreverse, 1, CharCount(wordreverse)-1)
上述语句执行之后，变量wordreverse的值为："Coming is 7.0 Authorware"。
3．SortChar：字符排序
以下过程将变量String中的字符以升序进行排序。
String:="Authorware 7 is Coming"
CharList:=[] --用于存放单独的字符，便于利用SortByValue()函数进行排序
Sorted:="" --用于存放排序后的字符串
ascending:=TRUE --用于决定采用升序或降序排序
repeat with i:=1 to CharCount(String)
--将字符串中的每个字符分别存放在不同的列表元素中
AddLinear(CharList, SubStr(String, i, i))
end repeat
SortByValue(CharList ,ascending) --对列表元素进行排序
repeat with i:=1 to CharCount(String)
Sorted:=Sorted^CharList[i] --将排序后的列表元素连接成为字符串
end repeat
上述语句执行之后，变量Sorted的值为：" .07ACaeghiimnoorrstuw"。如果将变量ascending赋值为FALSE，则上述过程将变量String中的字符以降序进行排序。
4．CaseReverse：反转字母大、小写状态
以下过程将变量String中的大写字母转换为小写字母，小写字母转换为大写字母。
String:="Authorware 7 is Coming"
CaseReverse:="" --用于存放转换后的字符串
repeat with i:=1 to CharCount(String)
--以下三行内容属于同一行程序代码，根据每个字符的ASCⅡ码判断是否进行大
--小写转换。大写字母的ASCⅡ码范围是65~90，小写字母的ASCⅡ码范围是97~122
CaseReverse:=CaseReverse^Test(Code(SubStr(String, i, ﹁
i))>64&Code(SubStr(String, i, i))<91, LowerCase(SubStr(String, i, ﹁
i)), (Test(Code(SubStr(String, i, i))>96& ﹁
Code(SubStr(String, i, i))<123, UpperCase(SubStr(String, i, i)),SubStr(String, i, i))))
end repeat
上述语句执行之后，变量CaseReverse的值为："aUTHORWARE 7 IS cOMING"。
5．Encode：字符串加密 |
您当前位置:首页>教育技术>课件制作>正文
