删除指定字符-汇编语言

输入一个字符串，将其中的空格全部删除，并将结果显示在屏幕上。

DATAS SEGMENT
   BUF  DB 20,?,20 DUP('$')
   LEN EQU $-BUF
   WEIZHI DB 2
    ;此处输入数据段代码  
DATAS ENDS

STACKS SEGMENT
    ;此处输入堆栈段代码
STACKS ENDS

CODES SEGMENT
    ASSUME CS:CODES,DS:DATAS
START:
    MOV AX,DATAS
    MOV DS,AX
	LEA DX,BUF
	MOV AH,0AH
	INT 21H
	LEA SI,BUF+2
	MOV CL,BUF+1
CHAZHAO:
	MOV AL,[SI]
	CMP AL,' '
	JE DELETE
	INC SI
	INC WEIZHI
	DEC CX
	CMP CX,0
	JNZ CHAZHAO
	JMP OUTPUT
	
DELETE:		
    MOV AX,SI
    INC AX
    MOV DI,AX
YIWEI:
	MOV AX,[DI]
	MOV [SI],AX
	INC DI
	INC SI
	CMP AL,'$'
	JE AGAIN
	JMP YIWEI
AGAIN:
	MOV AL,WEIZHI
	XOR AH,AH
	MOV SI,AX
	DEC CX
	JMP CHAZHAO
OUTPUT:
	MOV DL,0AH
	MOV AH,02H
	INT 21H
	MOV DL,0DH
	MOV AH,02H
	INT 21H
	LEA DX,BUF[2]
	MOV AH,09H
	INT 21H
    ;此处输入代码段代码
    MOV AH,4CH
    INT 21H
CODES ENDS
    END START

结果图示例：

 

输入一个字符串，将其中的英文字母全部删除，并将结果显示在屏幕上。

DATAS SEGMENT
   BUF  DB 20,?,20 DUP('$')
   LEN EQU $-BUF
   WEIZHI DB 2
    ;此处输入数据段代码  
DATAS ENDS

STACKS SEGMENT
    ;此处输入堆栈段代码
STACKS ENDS

CODES SEGMENT
    ASSUME CS:CODES,DS:DATAS
START:
    MOV AX,DATAS
    MOV DS,AX
	LEA DX,BUF
	MOV AH,0AH
	INT 21H
	LEA SI,BUF+2
	MOV CL,BUF+1
CHAZHAO:
	MOV AL,[SI]
	JMP PANDUAN;CMP AL,' '         ;JE DELETE
	E:
	INC SI
	INC WEIZHI
	DEC CX
	CMP CX,0
	JA CHAZHAO
	JMP OUTPUT
PANDUAN:
 CMP AL,'$'
 JZ OUTPUT
 CMP AL,'A'
 JB E
 CMP AL,'z'
 JA E
 CMP AL,'a'
 JAE DELETE
 CMP AL,'Z'
 JBE DELETE
 JMP E

DELETE:		
    MOV AX,SI
    INC AX
    MOV DI,AX
YIWEI:
	MOV AX,[DI]
	MOV [SI],AX
	INC DI
	INC SI
	CMP AL,'$'
	JE AGAIN
	JMP YIWEI
AGAIN:
	MOV AL,WEIZHI
	XOR AH,AH
	MOV SI,AX
	DEC CX
	JMP CHAZHAO
OUTPUT:
	MOV DL,0AH
	MOV AH,02H
	INT 21H
	MOV DL,0DH
	MOV AH,02H
	INT 21H
	LEA DX,BUF[2]
	MOV AH,09H
	INT 21H
    ;此处输入代码段代码
    MOV AH,4CH
    INT 21H
CODES ENDS
    END START

结果图示例：