| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 4818 人关注过本帖, 1 人收藏
标题:题外话:准考证是 PDF 格式,一张纸中有 8 人,如何打印其中一个人准考证?
只看楼主 加入收藏
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
I=0 初始值
I=6 当I为6时,执行指定的代码
要会分析代码
字符串提取,是要平时多练多看才能掌握的

[ 本帖最后由 sdta 于 2014-7-8 10:18 编辑 ]

坚守VFP最后的阵地
2014-07-08 10:15
sylknb
Rank: 4
等 级:贵宾
威 望:14
帖 子:1547
专家分:184
注 册:2006-6-3
收藏
得分:0 
I=6 当I为6时,执行指定的代码
这个6哪来里的?
2014-07-08 12:16
sylknb
Rank: 4
等 级:贵宾
威 望:14
帖 子:1547
专家分:184
注 册:2006-6-3
收藏
得分:0 
原来是每人2科,现在为每人3科。在你的代码基础上照样画剽,改动了下:
Create table T (准考证号 C(12),姓名 C(8),性别 C(2),报名点 C(20),班级 C(20),考试科目1 C(10),考点1 C(20),考场1 C(4),坐位1 C(6),考试科目2 C(10),考点2 C(20),考场2 C(4),坐位2 C(6),考试科目3 C(10),考点3 C(20),考场3 C(4),坐位3 C(6))
cStr=Strconv(Filetostr("1.txt"),6)
I=0
For lnI=1 To Alines(Ab,cStr,Chr(13)+Chr(10))
   Do case
       Case "准考证号"$Ab[lnI]
            I=I+1
            =Alines(A1,Ab[lnI],"准考证号")
            Zkzh1=A1[2]
            Zkzh2=A1[3]
       Case "性别"$Ab[lnI]
            I=I+1
            =Alines(A2,Ab[lnI],"姓     名","性别")
            Xm1=A2[2]
            Xm2=A2[4]
            Xb1=A2[3]
            Xb2=A2[5]
       Case "报名点"$Ab[lnI]
            I=I+1
            =Alines(A3,Ab[lnI],"报名点")
            Bmd1=A3[2]
            Bmd2=A3[3]
       Case "班     级"$Ab[lnI]
            I=I+1
            =Alines(A4,Ab[lnI],"班     级")
            Bj1=A4[2]
            Bj2=A4[3]
       Case "历史"$Ab[lnI]
            I=I+1
            Kskm1="历史"
            =Alines(A5,Ab[lnI],Kskm1)
            Kdmc1=Chrtran(A5[2],"0123456789","")
            Kc1=Strtran(A5[2],Kdmc1,"")
            Kdmc2=Chrtran(A5[3],"0123456789","")
            Kc2=Strtran(A5[3],Kdmc2,"")
            Zw1=Left(Ab[lnI+1],6)
            Zw2=Right(Ab[lnI+1],6)
            lnI=lnI+1
       Case "地理"$Ab[lnI]
            I=I+1
            Kskm2="地理"
            =Alines(A6,Ab[lnI],Kskm2)
            Kdmc11=Chrtran(A6[2],"0123456789","")
            Kc11=Strtran(A6[2],Kdmc11,"")
            Kdmc21=Chrtran(A6[3],"0123456789","")
            Kc21=Strtran(A6[3],Kdmc21,"")
            Zw11=Left(Ab[lnI+1],6)
            Zw21=Right(Ab[lnI+1],6)
            lnI=lnI+1
     Case "化学"$Ab[lnI]
            I=I+1
         
Kskm3="化学"
            =Alines(A7,Ab[lnI],Kskm3)
            Kdmc31=Chrtran(A7[2],"0123456789","")
            Kc31=Strtran(A7[2],Kdmc31,"")
            Kdmc32=Chrtran(A7[3],"0123456789","")
            Kc32=Strtran(A7[3],Kdmc32,"")
            Zw31=Left(Ab[lnI+1],6)
            Zw32=Right(Ab[lnI+1],6)
            lnI=lnI+1
 
 Endcase
    If I=6
       I=0
       Insert Into T Values (Zkzh1,Xm1,Xb1,Bmd1,Bj1,Kskm1,Kdmc1,Kc1,Zw1,Kskm2,Kdmc11,Kc11,Zw11,kskm3,kdmc31,kc31,zw31)  运行到此句提示:找不到为量kskm3.前面不是有kskm3="化学",为什么会找不到?
       Insert Into T Values (Zkzh2,Xm2,Xb2,Bmd2,Bj2,Kskm1,Kdmc2,Kc2,Zw2,Kskm2,Kdmc21,Kc21,Zw21,kskm3,kdmc32,kc32,zw32)
    Endif
Endfor
Browse

2014-07-08 12:24
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
你上面代码中有几个CASE 语句,I=?
不能死搬代码,要理解代码的意思

[ 本帖最后由 sdta 于 2014-7-8 12:32 编辑 ]

坚守VFP最后的阵地
2014-07-08 12:31
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
以下是引用sylknb在2014-7-8 12:16:46的发言:

I=6 当I为6时,执行指定的代码
这个6哪来里的?
I=I+1

坚守VFP最后的阵地
2014-07-08 12:36
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
一行思维定势了,自然不能理解和领会面向过程的思维。顺带补充一下:面向对象的基础是面向过程,不是对立的。

授人以渔,不授人以鱼。
2014-07-08 12:40
sylknb
Rank: 4
等 级:贵宾
威 望:14
帖 子:1547
专家分:184
注 册:2006-6-3
收藏
得分:0 
死搬硬套,原来如此,I=7后运行成了。正慢慢理介着呀

[ 本帖最后由 sylknb 于 2014-7-8 14:37 编辑 ]
2014-07-08 14:30
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
先批量转换为2003WORD格式,再批量转换为TXT

坚守VFP最后的阵地
2014-07-08 22:13
sylknb
Rank: 4
等 级:贵宾
威 望:14
帖 子:1547
专家分:184
注 册:2006-6-3
收藏
得分:0 
i=i+1 此句起什么作用?少此句好象转换后少一条记录
2014-07-08 22:27
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
看25楼的回帖。

[ 本帖最后由 sdta 于 2014-7-8 23:12 编辑 ]

坚守VFP最后的阵地
2014-07-08 23:10
快速回复:题外话:准考证是 PDF 格式,一张纸中有 8 人,如何打印其中一个人准考 ...
数据加载中...
 
   



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

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