怎样过滤字符串截取汉字!

2008-04-11 09:51:48 162 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

反射机制——通过反射调用service中方法需求：现在有一群service接口，有同一个方法名称，内部逻辑除了调用不同的调用自身的方法外其他基本都一致，那现在就需要一个独立的方法来勾勒出这个方法 1.SpringContextUtil package com.XXX.report.util; import org.apache.log4j.Logger; import org.springframework.beans.BeansE... 阅读详情

如:
1.
abcdefg一二三四五六
输出结果:一二三四五(截取前五个汉字)
2.
一二三(abc)四五六(defg)
输出结果:一二三四五(截取前五个汉字)

...全文

CYUSB3065配置CMOS 按照OG02B10的时序电路，在通过SCCB配置CMOS之前，需要三个电源上电，Xshutdown高电平和配置时钟电路。找到手册的第6章SCCB（跟IIC很像），可以看到SCCB的地址与SID引脚有关，这个需要到硬件原理图上确认下。这是Cypress的一个支持MIPI和UVC的模块，有例程支持OV5640，现在要替换替换成OG02B10。寄存器参数需要找到厂家的FAE，由他们提供，OG02B10的资料已经上传。（2）参考得宏的电路，时钟由主控提供，目前程序未实现。这里有两个重要参数需要搞定，摄像头的。阅读详情

dragon83

ASP 28,401 成员 356,938 内容

+ 关注 + 加入社区

切换为时间正序

No_Data_Found 2008-04-11

打赏
举报

For Each m In ms'便历匹配的项
if len(Result)>=MaxLength then'如果大于获取的的汉字个数时
exit for'退出for循环
end if
Result=Result&m.submatches(0)'连接汉字
Next

这样是不是少一步操作

斯洛文尼亚旅游 2008-04-11

打赏
举报



'从一个字符串中获取指定个数的汉字

Function GetCHWord(str,MaxLength)

 Dim re,Result:Result=""

 set re=New RegExp'正则对象

 re.IgnoreCase=True'忽略大小写

 re.Global=True'全局匹配

 re.Pattern="([\u4e00-\u9fa5]+)"'里面这个字符串是匹配汉字用的

 Set ms=re.Execute(str)'执行匹配

 For Each  m In ms'便历匹配的项

  Result=Result&m.submatches(0)'连接汉字

  if len(Result)>=MaxLength then'如果大于获取的的汉字个数时

    Result=left(Result,MaxLength)'有可能大于,所以要截取一下

    exit for'退出for循环

  end if

 Next

 Set re=Nothing

 GetCHWord=Result'设置函数返回值

End Function



Response.write GetCHWord("abcdefg一二三四五六",5)&"<br/>"

Response.write GetCHWord("一二三(abc)四五六(defg)",5)

dragon83 2008-04-11

打赏
举报

楼上的老大也帮忙解释一下,好不?谢谢!

斯洛文尼亚旅游 2008-04-11

打赏
举报

'我来个不一样的.

Function GetCHWord(str,MaxLength)

 Dim re,Result:Result=""

 set re=New RegExp

 re.IgnoreCase=True

 re.Global=True

 re.Pattern="([\u4e00-\u9fa5]+)"

 Set ms=re.Execute(str)

 For Each  m In ms

  Result=Result&m.submatches(0)

  if len(Result)>=MaxLength then

    Result=left(Result,MaxLength)

    exit for

  end if

 Next

 Set re=Nothing

 GetCHWord=Result

End Function



Response.write GetCHWord("abcdefg一二三四五六",5)&"<br/>"

Response.write GetCHWord("一二三(abc)四五六(defg)",5)

No_Data_Found 2008-04-11

打赏
举报

chrA = Mid(str, i, 1)
If Asc(chrA) < 0 or Asc(chrA) > 255 Then
k = k + 1
s = s & chrA
End If

遍历字符串逐个判断字符是不是汉字如果是汉字计算器加并拼到返回字符串

关于汉字判断参考

http://zhidao.baidu.com/question/14529626.html

叶随风 2008-04-11

打赏
举报

一个字符一个字符的截取，然后判断其ASC码，如果在0到255间，就是普通的英文字母和符号，其他基本上都是汉字字符。
明白？

dragon83 2008-04-11

打赏
举报

老大,简单讲解一下,好不?
半懂中!

一把编程的菜刀 2008-04-11

打赏
举报

呵呵，够快的

No_Data_Found 2008-04-11

打赏
举报



Function GetChineseStrByLength(str,length)

	If IsNull(str) Or str = "" Then

		s = ""

	Else

		Dim i, n, k, chrA,s

		k = 0

		n = Len(str)

		For i = 1 To n

			chrA = Mid(str, i, 1)

			If Asc(chrA) < 0 or Asc(chrA) > 255 Then

				k = k + 1

				s = s & chrA

			End If

			

			If k = length Then 

				Exit   For  

			End If

		Next			

	End If

	

	GetChineseStrByLength = s

End Function 



response.Write GetChineseStrByLength("一二三(abc)四五六(defg)",5)

dragon83 2008-04-11

打赏
举报

谢两位大佬

怎样过滤字符串截取汉字!

相关推荐