关于字符分割的问题

wim119 2010-12-30 04:24:36

我有一串字符如下
a="123,123,123,123,123,123,123,123,123,123,123,123,123,123,123,123,123,123,123,123,123,123,123,123,123,123"

我想每10个123一组进行保存

也就是这样的
x="123,123,123,123,123,123,123,123,123,123"
y="123,123,123,123,123,123,123,123,123,123"
z="123,123,123,123,123,123,123,123,123,123"

如何拆分最快速？

...全文

93 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

wim119 2010-12-30

打赏
举报

非常感谢大家，经过测试，30000是一个阈值

shenzhenNBA 2010-12-30

打赏
举报

参考...



<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">

<html>

<head>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<title></title>

</head>

<style type="text/css">

*{font-size:12px; font-family:verdana,arial; font-weight:normal; color:#000000;}

</style>

<body>

<p>

<%

dim aa,objArray,i,str

i=1

str=""

aa="1234,123,123,123,123,123,123,123,123,123,123,123,123,123,123,123,123,123,123,123,123,123,123,123,123,123"

objArray=split(aa,",")



for i=1 to ubound(objArray)

	if (i mod 10 = 0) then

	str=str & objArray(i)+",<br><br>"

	else

	str=str & objArray(i)+","

	end if

next

response.Write "result: <br>" & str

%>

</p>

</body>

</html>

yhtapmys 2010-12-30

打赏
举报



var brands = new Array();

var tags = new Array();

var dates ="123,123,123,123,123,123,123,123,123,123,123,123,123,123,123,123,123,123,123,123,123,123,123,123,123,123";

var flags="x=\",y=\",z=\"";

var dtNum = dates.split(",").length;

tags=flags.split(",");

brands = dates.split(","); 

for (i = 0; i < dtNum; i++) {

   if(i%10==0){

        var n=Math.ceil(i/10);

        document.write(tags[n]);

    }

   document.write(brands[i]);

    if((i+1)==dtNum){

        document.write('"'); 

    }

    if((i+1)%10==0){

        document.write('"<br>'); 

    }

}



x="123123123123123123123123123123"

y="123123123123123123123123123123"

z="123123123123123123"

callzy 2010-12-30

打赏
举报

b=Split(a,",")
For i=0 To UBount(b) Step 10
c = ""
IF i+9>UBound(b) Then
For j=0 To 9
c = c & b(i+j)
Next
Else
For j=0 To UBound(b)
c = c & b(i+j)
Next
End IF
Response.Write c
Next