[原创]BAISIC和C的NOBLANK实现 - DOS开发编程 & 发展交流（开发室） - 中国DOS联盟论坛

***************************************** *以下两个例程完全由lemonhall编写并运行 *通过,未经过严格测试. *请不要未经同意,任意转贴 *lemonhall@vip.sina.com 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; } }