帮忙找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
...全文
116 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
YuanHaiDong 2003-10-29
  • 打赏
  • 举报
回复
不必这么麻烦吧,UpperCase一个函数就行。
76 2003-09-29
  • 打赏
  • 举报
回复
如果把现有的TMP注释掉,把已注释掉的TMP改为有效,就可以显示出字母来,也就是说
if (ascii>=97)&(ascii<=122) then
subS:=Char(ascii-32)
end if
这段代码有问题?

1,451

社区成员

发帖
与我相关
我的任务
社区描述
多媒体/设计/Flash/Silverlight 开发 图象工具使用
社区管理员
  • 图象工具使用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧