文本文件全角字符替换小工具

Author: 杨洪 Date: 1997-01-01
　　在输入文本文件时，经常会遇到英文字母和一些数字，这些字符如果用“全角”形式输出，不很美观。同时，有些字符也需要按“半角”形式输出，这样在输入时，需要频繁转换字符输出方式，很不方便。为此，本人利用Ｔｕｒｂｏ　Ｃ２．０编制了这个替换“全角”字符的工具程序。
　　附源程序如下：
　　／＊替换文本文件中的全角形式的字符和数字＊／
　　＃ｉｎｃｌｕｄｅ　＂ｓｔｄｉｏ．ｈ＂
　　ｍａｉｎ　（ｉｎｔ　ａｒｇｃ，ｃｈａｒ　＊ａｒｇｖ［］）
　　｛ＦＩＬＥ　＊　ｆｐ，＊ｆｐ１；
　　ｉｎｔ　ｓｔｒ，ｉ；
　　ｉｆ　（ａｒｇｃ＜３）
　　｛　ｐｒｉｎｔｆ　（＂＼ｎ错误的命令格式！！＼ｎｎ＂）；
　　ｐｒｉｎｔｆ　（＂＼ｎ命令格式为：＼ｎ）；
　　ｐｒｉｎｔｆ　（＂命令　［要转换的文本文件名］　［转换后的文本文件名］＼ｎ＂）；
　　ｐｒｉｎｔｆ　（＂请重新输入！＼ｎ＼ｎ＂）；
　　ｅｘｉｔ（０）；｝
　　ｉｆ　（（ｆｐ＝ｆｏｐｅｎ　（ａｒｇｖ［１］，＂ｒ＂））＝＝ＮＵＬＬ）
　　／＊源文件为空或出错则退出＊／
　　｛ｐｒｉｎｔｆ　（＂Ｃａｎｎｏｔ　ｏｐｅｎ　％ｓ＼ｎ＂，ａｒｇｖ［１］）；ｅｘｉｔ（）；｝
　　ｉｆ　（（ｆｐ１＝ｆｏｐｅｎ　（ａｒｇｖ［２］，＂ｗ＂））＝＝ＮＵＬＬ）
　　／＊打开目标文件为空或出错退出＊／
　　｛　ｐｒｉｎｔｆ　（＂Ｃａｎｎｏｔ　ｏｐｅｎ　％ｓ　＼ｎ＂，ａｒｇｖ［２］）；ｅｘｉｔ（）；｝
　　ｗｈｉｌｅ　（（ｓｔｒ＝＝ｇｅｔｃ（ｆｐ））！＝ＥＯＦ）
　　／＊读取文件中字符进行判别＊／
　　｛　ｉｆ　（ｓｔｒ＝＝０ｘａ３）
　　｛　ｉ＝ｓｔｒ；
　　ｓｔｒ＝ｇｅｔｃ（ｆｐ）；
　　ｉｆ　（（ｓｔｒ！＝０ｘａ１）＆＆（ｓｔｒ！＝０ｘａｃ）＆＆（ｓｔｒ！＝０ｘｂａ）＆＆（ｓｔｒ！＝０ｘｂｂ）＆＆（ｓｔｒ！＝０ｘｂｆ））
　　／＊去掉一些标点符号＊／
　　｛　ｓｔｒ＝ｓｔｒ０ｘ８０；　
　　ｐｕｔｃ（ｓｔｒ，ｆｐ１）；｝
　　ｅｌｓｅ
　　｛　ｐｕｔｃ（ｉ，ｆｐ１）；ｐｕｔｃ（ｓｔｒ，ｆｐ１）；｝
　　｝
　　ｅｌｓｅ
　　｛　　ｉｆ　（（ｓｔｒ＜１２２）＆＆　（ｓｔｒ＞０）　
　　／＊判别文中的半角字符和一些控制符＊／
　　ｐｕｔｃ（ｓｔｒ，ｆｐ１）；
　　ｅｌｓｅ
　　｛　ｐｕｔｃ（ｓｔｒ，ｆｐ１）；ｓｔｒ＝ｇｅｔｃ（ｆｐ）；ｐｕｔｃ（ｓｔｒ，ｆｐ１）；｝
　　｝｝
　　ｆｃｌｏｓｅ（ｆｐ）；
　　ｆｃｌｏｓｅ（ｆｐ１）；
　　｝｝