如何在一个字符串中找到第一个中文字符出现的“位置”

2012-09-27 02:46:45 1.4k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

thinclient 墨衍会员 · AI 创作全网分发关注 + 加入社区

ArcGIS Enterprise10.9.1的Windows安装部署 ArcGIS Enterprise10.9.1中Windows版本安装介绍。阅读详情

如何在一个字符串中找到第一个中文字符出现的“位置”
也就是
从左向右找，找到第一个中文字符，并返回其出现的位置

...全文

VTK的编译和部署，配合c++和visual studio2022，VTK开发环境的配置在官网选择最新的版本下载之后进行解压，然后再里面创建build目录，方便后面使用cmake进行编译。阅读详情

thinclient

VFP 2,750 成员 29,142 内容

+ 关注 + 加入社区

切换为时间正序

都市夜猫 2012-09-28

打赏
举报

[Quote=引用 9 楼的回复:]
kx = '暗示疗法黄蜡石减肥aasd啊飒飒返回'
kx1 = Strconv(kx,1)
kx2 = Bitxor(Cast(kx as W),Cast(kx1 as W))
yy = 1 + Len(kx1) - Len(Ltrim(kx2))
? yy
[/Quote]
可以改成这样：
kx1 = Strconv(Strconv(kx,1),5)
kx2 = Strconv(kx,5)
kx3 = Bitxor(Cast(kx1 as W),Cast(kx2 as W))
yy = At(Chr(0), kx3)
? Int(1+(yy-1)/2)

lyangyong 2012-09-28

打赏
举报

用正则表达式

taohua300 2012-09-28

打赏
举报



kx = '暗示疗法黄蜡石减肥aasd啊飒飒返回'

kx1 = Strconv(kx,1) 

kx2 = Bitxor(Cast(kx as W),Cast(kx1 as W)) 

yy = 1 + Len(kx1) - Len(Ltrim(kx2)) 

? yy

豆老师
这个代码是查找字符串中第一个单字节字符的位置
即使字符串相当长
速度也非常快
能改成查找第一个双字节字符的位置不？

十豆三 2012-09-28

打赏
举报

遍历字符串，然后用 ISLEADBYTE() 函数判断即可。

都市夜猫 2012-09-28

打赏
举报

呵呵，11楼代码有点小问题，应该是
yy = At(Chr(0)+chr(0), kx3)

你 9 楼的代码算法是这样的：
先将字符串全部转换成全角字符，然后比较哪个字符变化了，变化的字符一定原来是半角字符了。

这里反过来，找到第一个没有变化的字符，就首次出现全角的位置。

如果逐一取出来比较那就没意义了，还不如用 IsLeadByte 来得快。而用按位异或函数可以一次就得到结果，因为相同的字符 xor 的结果为 0，这样是或不是 chr(0) 的位置就是相同或不同字符的位置。

taohua300 2012-09-28

打赏
举报

[Quote=引用 11 楼的回复:]
引用 9 楼的回复:
可以改成这样：
kx1 = Strconv(Strconv(kx,1),5)
kx2 = Strconv(kx,5)
kx3 = Bitxor(Cast(kx1 as W),Cast(kx2 as W))
yy = At(Chr(0), kx3)
? Int(1+(yy-1)/2)
[/Quote]

版主能不能解释一下

taohua300 2012-09-28

打赏
举报

[Quote=引用 11 楼的回复:]
引用 9 楼的回复:
kx = '暗示疗法黄蜡石减肥aasd啊飒飒返回'
kx1 = Strconv(kx,1)
kx2 = Bitxor(Cast(kx as W),Cast(kx1 as W))
yy = 1 + Len(kx1) - Len(Ltrim(kx2))
? yy

可以改成这样：
kx1 = Strconv(Strconv(kx,1),5)
kx2 = Str……
[/Quote]

超长字符串用这个
速度快的多

lygcw9602 2012-09-27

打赏
举报

?ABC("ABC中国34人民")



FUNCTION ABC

LPARAMETERS LCSTRING

FOR I = 1 TO LENC(LCSTRING)

    IF LEN(SUBSTRC(LCSTRING,I,1))=2

       EXIT

    ENDIF 

NEXT

RETURN I

ENDFUNC

taohua300 2012-09-27

打赏
举报

如果字符串不是特别特别长
遍历一下

?abc("abc中国34人民")



Function abc

Lparameters lcString

For i = 1 To Len(lcString)

	If Isleadbyte(Substr(lcString,i,1))

		Exit

	Endif 

Next

Return i

Endfunc

thinclient 2012-09-27

打赏
举报

假设我要的函数名称为abc()
?abc("abc中国34人民")
显示：4
?abc("abcd人民")
显示：5

wwwwb 2012-09-27

打赏
举报

[Quote=引用 3 楼的回复:]

谢两位百忙中回复

但是由于我的表达不够清楚，我重述如下：

我是想得到第一个“任意中文符号”出现的位置，不是特定的中文出现的位置
[/Quote]
举例说明

thinclient 2012-09-27

打赏
举报

谢两位百忙中回复

但是由于我的表达不够清楚，我重述如下：

我是想得到第一个“任意中文符号”出现的位置，不是特定的中文出现的位置

lnaszxl 2012-09-27

打赏
举报

a= 'abcdefg回贴 '
? len(a)
显示 10
？ lenc(a)
显示 8
if len(a)=lenc(a) then
messagebox( '这个字符串里没有双字节字符！ ',0+64, '判断显示 ')
else
messagebox( '这个字符串里有双字节字符！ ',0+64, '判断显示 ')
endif

wwwwb 2012-09-27

打赏
举报

参考ATC( )
STORE 'Now is the time for all good men ... ' TO gcString
STORE 'IS THE' TO gcFindString
CLEAR
? ATC(gcFindString, gcString) && Displays 5
STORE 'is' TO gcFindString
? ATC(gcFindString, gcString) && Displays 5
? ATC('now',gcString) && Displays 1

如何在一个字符串中找到第一个中文字符出现的“位置”

相关推荐