| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 4818 人关注过本帖, 1 人收藏
标题:题外话:准考证是 PDF 格式,一张纸中有 8 人,如何打印其中一个人准考证?
只看楼主 加入收藏
wengjl
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:109
帖 子:2214
专家分:3882
注 册:2007-4-27
收藏
得分:0 
作为技术探讨,这题目很好。

作为解决问题,直接打一张A4纸,把另外的7张撕了,留下需要的那一张就可以了。

只求每天有一丁点儿的进步就可以了
2014-07-04 13:00
sylknb
Rank: 4
等 级:贵宾
威 望:14
帖 子:1547
专家分:184
注 册:2006-6-3
收藏
得分:0 
转换程序只有三种格式:
图片附件: 游客没有浏览图片的权限,请 登录注册

在其它编码中也找不Ansi编码格式(中文,阿拉伯,泰文。。
2014-07-04 16:07
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
图片附件: 游客没有浏览图片的权限,请 登录注册

坚守VFP最后的阵地
2014-07-04 17:58
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
第一段
准考证号130603080008准考证号130603080009
第二段
     名陈芳颖性别女姓     名陈楠性别男
第三段
报名点外国语学校报名点外国语学校
第四段
     级高一(1)班班     级高一(1)班

考试科目考点名称考 场座 位考试科目考点名称考 场座 位
第五段 下面两行做为一段截取字符
历史外国语学校17历史外国语学校02
515505515500
第六段 下面两行做为一段截取字符
地理外国语学校14地理外国语学校04
615488615499

对于上面内容的格式,只有分为六段逐段截取字符,到目前为止还没发现有更好的方法。

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

坚守VFP最后的阵地
2014-07-05 10:07
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:20 
程序代码:
Clear
Create Cursor 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))
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
    Endcase
    If I=6
       I=0
       Insert Into T Values (Zkzh1,Xm1,Xb1,Bmd1,Bj1,Kskm1,Kdmc1,Kc1,Zw1,Kskm2,Kdmc11,Kc11,Zw11)
       Insert Into T Values (Zkzh2,Xm2,Xb2,Bmd2,Bj2,Kskm1,Kdmc2,Kc2,Zw2,Kskm2,Kdmc21,Kc21,Zw21)
    Endif 
Endfor
Browse 


[ 本帖最后由 sdta 于 2014-7-5 13:04 编辑 ]

坚守VFP最后的阵地
2014-07-05 12:21
sylknb
Rank: 4
等 级:贵宾
威 望:14
帖 子:1547
专家分:184
注 册:2006-6-3
收藏
得分:0 
太谢了,但我的转换的程序没有Ansi编码,转换后的TXT文件太乱了,要如你所示的六分段,如果数量大的话工作太大了。你用什么转换程序的?怎么会出现如此图面?
图片附件: 游客没有浏览图片的权限,请 登录注册

我用的是ToolsPortable.exe所谓全能pdf编辑器(Tracker PDF Tools)下载 v4.0.206绿色中文版_
2014-07-05 18:29
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
cStr=Strconv(Filetostr("1.txt"),6)
这行代码可以解决编码格式的问题

XP操作系统自带的记事本

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

坚守VFP最后的阵地
2014-07-05 18:42
sylknb
Rank: 4
等 级:贵宾
威 望:14
帖 子:1547
专家分:184
注 册:2006-6-3
收藏
得分:0 
如果每个考生报的科目不同,有的报2门,有的3门,有的4门,
Create Cursor 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))
是不改为:
Create Cursor 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),考试科目4 C(10),考点4 C(20),坐位24C(4),考场4 C(6)))
哪下面一句如何改?
If I=6
       I=0
       Insert Into T Values (Zkzh1,Xm1,Xb1,Bmd1,Bj1,Kskm1,Kdmc1,Kc1,Zw1,Kskm2,Kdmc11,Kc11,Zw11)
       Insert Into T Values (Zkzh2,Xm2,Xb2,Bmd2,Bj2,Kskm1,Kdmc2,Kc2,Zw2,Kskm2,Kdmc21,Kc21,Zw21)
    Endif
2014-07-05 22:53
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
上传具体文件,量体裁衣(代码是根据文件格式写的)。
表结构可以如楼上那样改。

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

坚守VFP最后的阵地
2014-07-05 23:36
sylknb
Rank: 4
等 级:贵宾
威 望:14
帖 子:1547
专家分:184
注 册:2006-6-3
收藏
得分:0 
附上附件。
有报1科,2科,3科,4科,5科,科目都不同。而麻烦你一下
1.rar (924 Bytes)
2014-07-06 00:09
快速回复:题外话:准考证是 PDF 格式,一张纸中有 8 人,如何打印其中一个人准考 ...
数据加载中...
 
   



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

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