Native Funktionen | | | | | KompilierenMarkierenSeparieren
nProc translate(string src,fnd,rpl){
long p=1,fndL=len(fnd),cc=len(src)-fndL+1,rplL=len(rpl)
case cc<1 : return src
case src=="" : return ""
case fnd=="" : return src
long fndCH=fnd[1]
while 1 {
case p > cc : break
if src[p]==fndCH {
if mid$(src,p,fndL)==fnd {
src=del$(src,p,fndL)
if p>len(src){
src=src+rpl
} else {
src=ins$(rpl,src,p)
}
add p,rplL
cc=len(src)-fndL+1
continue
}
}
add p,1
}
return | 31.07.2011 ▲ | |
| |
|
AnswerThemeninformationenDieses Thema hat 1 subscriber: |
|