2,722
社区成员
发帖
与我相关
我的任务
分享求最简单的方法把一个串中非英文的都去掉
求最简单的方法把一个串中非英文的都去掉
如下串
s="@aBc34 k-"
想得到
"aBck"
如下串
s="@aBc34 k-"
想得到
"aBck"
...全文
请发表友善的回复…
发表回复
lzw_0736 2013-11-07
- 打赏
- 举报
Local s,Ln1,Ln2,Lc1,Lc2
s="@a-Bc34 k-"
Ln1=Len(s)
Lc1=''
For i=1 To Ln1
Lc2=Substr(s,i,1)
Ln2=Asc(Lc2)
If Ln2=45 Or Between(Ln2,65,90) Or Between(Ln2,97,122)
Lc1=Lc1+Lc2
Endif
Endfor
If Right(Lc1,1)=[-]
Lc1=Left(Lc1,Len(Lc1)-1)
Endif
? Lc1
needanothercoder 2013-11-07
- 打赏
- 举报
补充一下,英文单词中的连字符-不能去掉
如下串
s="@a-Bc34 k-"
想得到
"a-Bck"
十豆三 2013-11-07
- 打赏
- 举报
-号 你不是不要吗
needanothercoder 2013-11-07
- 打赏
- 举报
谢高手们回复,豆侠的我采用,只是他没有注意到-号,所以分数分一下, : )
十豆三 2013-11-07
- 打赏
- 举报
思路：
1、先去掉英文 a - z，得到非英文串。
2、再去掉非英文掉。
十豆三 2013-11-07
- 打赏
- 举报
s="@aBc34 k-"
?Chrtran(s,Chrtran(Lower(s),'abcdefghijklmnopqrstuvwxyz',''),'')
lygcw9602 2013-11-07
- 打赏
- 举报
s = "@a-Bc34 k-"
?CHRTRAN(LEFT(s,RAT('-',s)-1),'0123456789@ ',[])
xuzuning 2013-11-07
- 打赏
- 举报
s = "@a-Bc34 k-"
r = ''
len = LEN(s)
FOR i=1 to LEN(s)
c = SUBSTR(s,i,1)
IF UPPER(c) >= 'A' and UPPER(c) <= 'Z' or c = '-' and i < len
r = r + c
ENDIF
NEXT
? r
