小小程序数汉字

Author: 栊淮 Date: 1997-01-01

　　我们知道一个汉字分为两个字节，前一个字节为汉字的区码，区码的ＡＳＣＩＩ码是从１６０开始的，而从１６０到１７５的１５个区内是些特殊符号，所以汉字的区码真正位置是从１７６开始的，而汉字后一个字节为位码，位码是从１６０开始的。我的程序就是利用这点设计的。程序是用Ｔｕｒｂｏ　Ｐａｓｃａｌ　６．０编辑的。可以用Ｔｕｒｂｏ　Ｐａｓｃａｌ　６．０所带的ＴＰＣ编译成．ＥＸＥ文件。在运行本程序前请先运行汉字系统（如ＵＣＤＯＳ、天汇、中国龙、２．１３等）。
　　Ｐｒｏｇｒａｍ　Ｎｕｍｂｅｒ：
　　Ｖａｒ　　　｛变量说明：｝
　　ＩＯＲ，Ｉ：Ｉｎｔｅｇｅｒ；｛ＩＯＲ是判断程序读文件是否成功的标志，Ｉ是循环控制变量｝
　　Ｆ：Ｔｅｘｔ；｛Ｆ是文件变量｝
　　Ｓｔ，Ｌｉｎｅ：Ｓｔｒｉｎｇ；｛Ｓｔ是用户输入文件名的字符串，Ｌｉｎｅ是程序读文件时的字符串变量｝
　　Ｃｈａｒａｃｔｅｒ：Ｗｏｒｄ；｛Ｃｈａｒａｃｔｅｒ是文件中汉字的计数器｝
　　ＢＥＧＩＮ　　　
　　Ｒｅｐｅａｔ　　　　　　
　　Ｗｒｉｔｅ（’请你输入目标文件（不能使用通配符）：’）；
　　Ｒｅａｄｌｎ（Ｓｔ）；　　　　　　
　　Ａｓｓｉｇｎ（Ｆ，Ｓｔ）；　　　　　　
　　Ｒｅｓｅｔ（Ｆ）；　　　　　　
　　ＩＯＲ：＝ＩＯＲｅｓｕｌｔ　　　
　　Ｕｎｔｉｌ　ＩＯＲ＝０；　　　
　　Ｃｈａｒａｔｅｒ：＝０；　　　
　　Ｗｈｉｌｅ　Ｎｏｔ　Ｅｏｆ（Ｆ）　Ｄｏ
　　Ｂｅｇｉｎ　　　　　　　　　
　　Ｒｅａｄｌｎ（Ｆ，Ｌｉｎｅ）；　　　　　　　　　
　　Ｉ：＝０；　　　　　　　　　　　　
　　Ｒｅｐｅａｔ　　　　　　　　　　　　　　　
　　Ｉｎｃ（Ｉ）；　　
　　ＩＦ　（Ｏｒｄ（Ｌｉｎｅ［Ｉ］）＞＝１７６）　ａｎｄ　（Ｏｒｄ（Ｌｉｎｅ［Ｉ＋１］）＞＝１６０）　ｔｈｅｎ　　　　　　　　　　　　　　　　　　　
　　Ｂｅｇｉｎ
　　Ｉｎｃ（Ｃｈａｒａｃｔｅｒ）；
　　Ｉｎｃ（Ｉ）
　　Ｅｎｄ　　　　　　　　　　　　　　　
　　Ｅｌｓｅ　ＩＦ　（Ｏｒｄ（Ｌｉｎｅ［Ｉ］）＞＝１６０）　ａｎｄ　（Ｏｒｄ（Ｌｉｎｅ［Ｉ＋１］）
　　＞＝１６０）　ｔｈｅｎ　Ｉｎｃ（Ｉ）
　　Ｕｎｔｉｌ　Ｉ＞＝ｌｅｎｇｔｈ（Ｌｉｎｅ）
　　Ｅｎｄ　　　
　　Ｃｌｏｓｅ（Ｆ）；　　　
　　Ｗｒｉｔｅｌｎ（Ｓｔ，’文件总共有汉字：’，Ｃｈａｒａｃｔｅｒ）；　　　
　　Ｒｅａｄｌｎ
　　ＥＮＤ　　　　　　　　