Question

asp 截取字符串的函数怎么写

asp 截取字符串的函数怎么写

Answer 1

有下面3个函数：
mid()
left()
right()

Mid 函数从字符串中返回指定数目的字符
Mid(string,start[,length])
参数 描述
string 必选项。字符串表达式，从中返回字符。
start 必选项。string 中被提取的字符部分的开始位置。如果 start 超过了 string 中字符的数目，Mid 将返回零长度字符串 ("")。
length 可选项。要返回的字符数。如果省略或 length 超过文本的字符数（包括 start 处的字符），将返回字符串中从 start 到字符串结束的所有字符。

Left(string,length)
Left 函数可返回指定数目的从字符串的左边算起的字符

参数 描述
string 必选项。字符串表达式，其最左边的字符被返回。
length 必选项。数值表达式，指明要返回的字符数目。如果是 0，返回零长度字符串 ("")；如果大于或等于 string 参数中的字符总数，则返回整个字符串。

right与left类似，只是它是从右截取。

Answer 2

left(字串,截取长度)
mid(字串,起始位置,截取长度)

Answer 3

function cutstr(str,nums,uns)	'字符串截取'
	if len(str)<1 or not isnumeric(n) then exit function
	lw = strlength(str)
	if lw<=nums then cutstr = str : exit function
	wrr = ""
	wri = 0
	for i = 1 to len(str)
		if strc(mid(str,i,1)) = 1 then
			wri = wri + 1
		else
			wri = wri + 2
		end if
		wrr = wrr & mid(str,i,1)
		if wri >= nums then exit for
	next
	cutstr = wrr
	if len(uns)>0 then cutstr = cutstr & uns
end function

function strlength(str)	'字符串长度计算'
	if len(str)<1 then exit function
	pta = 0
	for i =  1 to len(str)
		t = mid(str,i,1)
		pta = pta + strc(t)
	next
	strlength = pta
end function

function strc(str)	'中文字符判断'
    Set reg = new regexp
    reg.pattern = "[^\u4e00-\u9fa5]"
    reg.global = True
    if reg.replace(str,"") <> "" then
    	strc = 2
    else
    	strc = 1
	end if
end function