| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2092 人关注过本帖
标题:[求助]VFP程序设计
只看楼主 加入收藏
xfxfxf
Rank: 1
等 级:新手上路
帖 子:37
专家分:0
注 册:2007-9-10
收藏
 问题点数:0 回复次数:11 
[求助]VFP程序设计

编写一个对输入字符进行转换的程序.转换规则为:将大写字母转换成小写,小写转换为大写,空格不转换,其他转换为"*".要求没输入一个字符就进行判断转换.

搜索更多相关主题的帖子: VFP 程序设计 
2007-09-17 16:34
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 
在Text1.InterActiveChange里写代码,结果转换到Text2里,代码为:
lcStringOld=This.Value
lcStringNew=''
For lnCnt=1 To Len(lcStringOld)
lcChar=Substr(lcStringOld,lnCnt,1)
lcStringNew=lcStringNew+Iif(IsUpper(lcChar),Lower(lcChar),Iif(IsLower(lcChar),Upper(lcChar),Iif(lcChar=' ',' ','*')))
EndFor
ThisForm.Text5.Value=lcStringNew

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2007-09-17 16:47
xfxfxf
Rank: 1
等 级:新手上路
帖 子:37
专家分:0
注 册:2007-9-10
收藏
得分:0 
一头雾水
2007-09-17 20:17
啸凡
Rank: 8Rank: 8
等 级:贵宾
威 望:45
帖 子:1356
专家分:885
注 册:2006-2-22
收藏
得分:0 
Iif(IsUpper(lcChar),Lower(lcChar),Iif(IsLower(lcChar),Upper(lcChar),Iif(lcChar=' ',' ','*')))
只是IFF条件语句的嵌套以及IsUpper、Upper、Islower、Lower几个函数而已,如果这也令您一头雾水,那您想学好VFP,只能说前面是一堵墙——门都没有。

两人行已有我师……
2007-09-17 21:47
啸凡
Rank: 8Rank: 8
等 级:贵宾
威 望:45
帖 子:1356
专家分:885
注 册:2006-2-22
收藏
得分:0 
不过,大老虎的程序不能满足他的要求:因为他是要求每输入一个都进行更换,而使用这样的循环,就会把整个串的所有字符换来换去。实际上只要对最后一个字符进行更换就可以了。不知道我说的对不对。

两人行已有我师……
2007-09-17 21:51
xfxfxf
Rank: 1
等 级:新手上路
帖 子:37
专家分:0
注 册:2007-9-10
收藏
得分:0 

我自己写了个
commandgroup1的click事件:
n=this.value
do case
case n=1
thisform.timer1.enabled=.t.
thisform.timer2.enabled=.f.
case n=2
thisform.timer1.enabled=.f.
thisform.timer2.enabled=.t.
endcase
timer1的timer事件:
thisform.text1.value=time()
thisform.label1.caption=""
timer2的timer事件:
t=hour(datetime())
if t>=13
thisform.label1.caption="下午"
if t>=22
thisform.text1.value=allt(t-12)+substr(datetime(),11,6)
else
thisform.text1.value=time()
endif
else
thisform.label1.caption="上午"
thisform.text1.value=time()
endif
运行timer2老出错
错哪了?

2007-09-19 11:28
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 
错误语句:thisform.text1.value=allt(t-12)+substr(datetime(),11,6)
原因、修改:Alltrim(t-12)--->Alltrim(Str(t-12,2));Substr(Datetime(),11,6)--->Substr(Ttoc(Datetime(),11,6))

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2007-09-19 16:59
xfxfxf
Rank: 1
等 级:新手上路
帖 子:37
专家分:0
注 册:2007-9-10
收藏
得分:0 
timer1的timer事件改为
thisform.text1.value=substr(ttoc(datetime()),10,8)
为什么显示12小时制???
2007-09-19 19:36
baichuan
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:37
帖 子:953
专家分:589
注 册:2006-3-13
收藏
得分:0 
只是改字符和时间有什么关系?


2007-09-20 07:52
xfxfxf
Rank: 1
等 级:新手上路
帖 子:37
专家分:0
注 册:2007-9-10
收藏
得分:0 
datetime()是12小时制
当系统时间是下午4点时为什么hour(datetime())是16
2007-09-20 16:22
快速回复:[求助]VFP程序设计
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016641 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved