中国DOS联盟

*****************************************
*以下两个例程完全由lemonhall编写并运行
*通过,未经过严格测试.
*请不要未经同意,任意转贴
[email protected] QQ:313813
***************************************

Qbasic1.0/Quick Baick 4.5下运行通过
将输入中的双空格消去成为单空格的例程

===============================================
'建立一个过大的缓冲区
DIM c$(999)

'计数器初式化
n = 1
CLS

'用一个循环仿真相应的getchar函数
DO UNTIL c$(n - 1) = CHR$(13)
10 c$(n) = INKEY$: IF c$(n) = "" THEN 10
PRINT c$(n);
n = n + 1
LOOP

'使用了一个同名计数器,是一个很不好的习惯
n = 1

'相应的define NOBLANK 'a'
lc$ = "a"


'完全按C语言的逻辑运算核心"抄"出来的循环
'其中s开头代表一个状态,state
'用IF结构是为了完全显示地声明出二进制状态
DO UNTIL c$(n) = CHR$(13)
IF c$(n) " " THEN
sc = 1
ELSE
sc = 0
END IF

IF lc$ " " THEN
slc = 1
ELSE
slc = 0
END IF

'进行一个BAISC的逻辑运算,是判断的核心
ss = sc OR slc
IF ss 0 THEN PRINT c$(n);
lc$ = c$(n)
n = n + 1
LOOP

=========================================
= 相应的C语言实现(改造Berkeley C) =
=========================================


#include
/*开始有些难理解的语句*/
#define NOBLANK 'a'
main()
/*replace string of blanks with a single blank */
/*这无需翻译了吧*/

{
int c,lastc;
lastc=NOBLANK;

while((c=getchar())!=EOF) {
if (c!=' '||lastc!=' '
putchar(c);
lastc=c;
}
}

支持原创！！！