帮忙找authorWare写的一段程序的BUG,功能:把所有字母都变成大写。
76 2003-09-29 04:27:01 OutString:="sfassDSFDSFsdfDDfaf"
---------------------------------------------
--把输入的内容如果是字母全部转为大写的
---------------------------------------------
s:=OutString --导入外部字符串
tmp:=""
len:=CharCount(s)--字段串长度
repeat with i:=1 to len
subS:=GetWord(i,s)
ascii:=Code(subS)
-- tmp:=subS^tmp
if (ascii>=97)&(ascii<=122) then
subS:=Char(ascii-32)
end if
tmp:=subS^tmp
end repeat
--SystemMessageBox(WindowHandle, "Message Box Text", "Warning", 48) -- 1=OK
OutString:=tmp