主题：字符串替换(回者加分)
QB阿呆
[专家分：0] 发布于 2007-08-30 10:29:00
[size=2]输入A$,B$,C$
用C$替换A$中的B$。(程序越短越好)[/size]
最后更新于：2007-08-30 11:00:00
回复列表 （共4个回复）
沙发
QB爱好者 [专家分：370] 发布于 2007-08-30 10:56:00
CLS
INPUT A$,B$,C$
LA=LEN(A$)
LB=LEN(B$)
FOR I=1 TO LA
IF MID$(A$,I,LB)=B$ THEN A$=LEFT$(A$,I-1)+C$+MID$(A$,I+LB)
NEXT I
PRINT A$
END
板凳
moz [专家分：37620] 发布于 2007-08-30 12:07:00
function Replace$(a$,b$,c$)
l=len(b$)
i=instr(a$,b$)
do while i
a$=left$(a$,i-1)+c$+mid$(a$,i+l)
i=instr(i+1,a$,b$)
loop
Replace$=a$
end function
3 楼
Matodied [专家分：7560] 发布于 2007-08-30 14:02:00
CLS
DEFSTR A-E
INPUT a, b, c
FOR i = 1 TO LEN(a) - LEN(b) + 1
IF MID$(a, i, LEN(b)) = b THEN
d = MID$(a, 1, i - 1): e = MID$(a, i + LEN(b))
a = d + c + e
END IF
NEXT i
PRINT a
END
4 楼
QB小猪 [专家分：1200] 发布于 2007-09-03 14:31:00
cls
input a$,b$,c$
q=instr(a$,b$):if q=0 then ?q:end
?mid$(a$,1,q-1);c$;mid$(a$,q+len(b$))
end
短吧!!!简单吧!!!
我来回复
您所在位置：