作为技术探讨，这题目很好。

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

转换程序只有三种格式：
在其它编码中也找不Ansi编码格式(中文，阿拉伯，泰文。。

第一段
准考证号130603080008准考证号130603080009
第二段
姓     名陈芳颖性别女姓     名陈楠性别男
第三段
报名点外国语学校报名点外国语学校
第四段
班     级高一(1)班班     级高一(1)班

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

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

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

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 编辑 ]

太谢了，但我的转换的程序没有Ansi编码，转换后的TXT文件太乱了，要如你所示的六分段，如果数量大的话工作太大了。你用什么转换程序的？怎么会出现如此图面？
我用的是ToolsPortable.exe所谓全能pdf编辑器(Tracker PDF Tools)下载 v4.0.206绿色中文版_

cStr=Strconv(Filetostr("1.txt"),6)
这行代码可以解决编码格式的问题

XP操作系统自带的记事本

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

如果每个考生报的科目不同，有的报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

上传具体文件，量体裁衣(代码是根据文件格式写的)。
表结构可以如楼上那样改。

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

附上附件。
有报1科，2科，3科，4科，5科，科目都不同。而麻烦你一下