| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 4056 人关注过本帖
标题:VFP编程技巧擂台赛[一]
只看楼主 加入收藏
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
结帖率:88.24%
收藏
已结贴  问题点数:50 回复次数:62 
VFP编程技巧擂台赛[一]
为了提升VFP版的人气,提高大家学习VFP的积极性,从2012年09月22日起,不定期举办VFP编程技巧擂台赛,由出题者提供赞助分(最低30分),欢迎大家积极参加。

cstr=" how often[]多久一次 exercise['eks2saiz]v.&n.锻炼;运动 skateboard[]v.踩滑板;参加滑板运动 hardly['ha:dli]adv. 几乎不;几乎没有 ever['ev2]adv. 曾;曾经 shop[60p]v.购物 once[w3ns]adv. 一次"
将上述字符串的内容拆分后形成如下格式,并加入数据表中
单词         音标              汉意
how often    []                多久一次
exercise     ['eks2saiz]v.&n.  锻炼;运动
skateboard   []v.              踩滑板;参加滑板运动
hardly       ['ha:dli] adv.    几乎不;几乎没有
ever         ['ev2] adv.       曾;曾经
shop         [60p]v.           购物
once         [w3ns] adv.       一次
搜索更多相关主题的帖子: 数据表 积极性 擂台赛 编程 
2012-09-22 11:07
有容就大
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:东土大唐
等 级:版主
威 望:74
帖 子:9048
专家分:14309
注 册:2011-11-11
收藏
得分:0 
强烈支持 !

梅尚程荀
马谭杨奚







                                                       
2012-09-22 11:10
CHB123
Rank: 2
来 自:湖北
等 级:论坛游民
帖 子:100
专家分:68
注 册:2012-7-2
收藏
得分:0 
支持,但出的题多少要有一点儿技术含量。不能是大的题目,有一点儿技巧就行。
2012-09-22 12:17
信箱有效
Rank: 13Rank: 13Rank: 13Rank: 13
等 级:蒙面侠
威 望:9
帖 子:1102
专家分:4268
注 册:2012-6-19
收藏
得分:0 
接分,顺便学习 技巧
2012-09-22 12:24
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
学习!

授人以渔,不授人以鱼。
2012-09-22 12:34
taohua300
Rank: 12Rank: 12Rank: 12
来 自:光
等 级:贵宾
威 望:14
帖 子:1636
专家分:3906
注 册:2009-3-11
收藏
得分:30 
我属于积极分子
积极响应号召的

-不是废话
-抛砖头
程序代码:
cstr=" how often[]多久一次 exercise['eks2saiz]v.&n.锻炼;运动 skateboard[]v.踩滑板;参加滑板运动 hardly['ha:dli]adv. 几乎不;几乎没有 ever['ev2]adv. 曾;曾经 shop[60p]v.购物 once[w3ns]adv. 一次"
m.s = ''
shuang = .f.
For i = 1 To Lenc(cstr)
    dp = Substrc(cstr,i,1)
    If Len(dp) == 1
        If dp == '['
            m.s = m.s + ",["
        Else
            m.s = m.s + dp
        Endif
    Else
        If shuang = .f.
            m.s = m.s + "," + dp
            shuang = .t.
        Else
            m.s = m.s + dp
        Endif
    Endif
    If shuang == .t. And Len(dp) == 1
        m.s = m.s + Chr(13) + Chr(10)
        shuang = .f.
    Endif
   
Next
Strtofile(m.s,"tt.txt")

Create Cursor temp (单词 c(20),音标 c(20),汉意 c(20))
Append From tt.txt Delimited With Character ','
Browse


个性太多,无法显示
2012-09-22 13:03
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
以下是引用taohua300在2012-9-22 13:03:17的发言:

我属于积极分子
积极响应号召的

-不是废话
-抛砖头cstr=" how often[]多久一次 exercise['eks2saiz]v.&n.锻炼;运动 skateboard[]v.踩滑板;参加滑板运动 hardly['ha:dli]adv. 几乎不;几乎没有 ever['ev2]adv. 曾;曾经 shop[60p]v.购物 once[w3ns]adv. 一次"
m.s = ''
shuang = .f.
For i = 1 To Lenc(cstr)
    dp = Substrc(cstr,i,1)
    If Len(dp) == 1
        If dp == '['
            m.s = m.s + ",["
        Else
            m.s = m.s + dp
        Endif
    Else
        If shuang = .f.
            m.s = m.s + "," + dp
            shuang = .t.
        Else
            m.s = m.s + dp
        Endif
    Endif
    If shuang == .t. And Len(dp) == 1
        m.s = m.s + Chr(13) + Chr(10)
        shuang = .f.
    Endif
   
Next
Strtofile(m.s,"tt.txt")
 
Create Cursor temp (单词 c(20),音标 c(20),汉意 c(20))
Append From tt.txt Delimited With Character ','
Browse
图片附件: 游客没有浏览图片的权限,请 登录注册

坚守VFP最后的阵地
2012-09-22 13:13
有容就大
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:东土大唐
等 级:版主
威 望:74
帖 子:9048
专家分:14309
注 册:2011-11-11
收藏
得分:8 
我也搞定了
不过很生疏 可能有的地方不好。。
程序代码:
Public cstr
cstr=" how often[]多久一次 exercise['eks2saiz]v.&n.锻炼;" + ;
"运动 skateboard[]v.踩滑板;参加滑板运动 hardly['ha:dli]adv. 几乎不;几乎没有" +;
" ever['ev2]adv. 曾;曾经 shop[60p]v.购物 once[w3ns]adv. 一次" + "a"

Public ga_Cstr[7, 3]
Create Table d:\vfp\td\yz\xx (单词 c(8) , 音标 c(8), 注意 c(8))
Use d:\vfp\td\yz\xx

move_head = 1
move_tail = 1

For i = 1 to 7       

        Do while SubstrC(cstr, move_tail, 1) # '['
             move_tail = move_tail + 1
        EndDo

        ga_Cstr[i, 1] = SubstrC(cstr, move_head, move_tail - move_head)
        move_head = move_tail
        *MessageBox(ga_Cstr[i, 1])
        Do while  Between(Asc(SubstrC(cstr, move_tail, 1)), 0, 256)
             move_tail = move_tail + 1
        EndDo           

        ga_Cstr[i, 2] = SubstrC(cstr, move_head, move_tail - move_head)
        move_head = move_tail
        *MessageBox(ga_Cstr[i, 2])
        Do while !islower(SubstrC(cstr, move_tail, 1))
             move_tail = move_tail + 1
        EndDo

        ga_Cstr[i, 3] = SubstrC(cstr, move_head, move_tail - move_head)
        move_head = move_tail   

        *MessageBox(ga_Cstr[i, 3])           

Next


Append From array ga_Cstr
Browse
--
图片附件: 游客没有浏览图片的权限,请 登录注册


梅尚程荀
马谭杨奚







                                                       
2012-09-22 13:16
有容就大
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:东土大唐
等 级:版主
威 望:74
帖 子:9048
专家分:14309
注 册:2011-11-11
收藏
得分:0 
…… 要把表的字段长度加大点 擦
图片附件: 游客没有浏览图片的权限,请 登录注册


梅尚程荀
马谭杨奚







                                                       
2012-09-22 13:19
有容就大
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:东土大唐
等 级:版主
威 望:74
帖 子:9048
专家分:14309
注 册:2011-11-11
收藏
得分:0 
更好的是处理下 hao often 前面那个空格
图片附件: 游客没有浏览图片的权限,请 登录注册




[ 本帖最后由 有容就大 于 2012-9-22 13:24 编辑 ]

梅尚程荀
马谭杨奚







                                                       
2012-09-22 13:22
快速回复:VFP编程技巧擂台赛[一]
数据加载中...
 
   



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

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