有一篇格式有点乱的文字,如何用程序整理成每行动30个字

[cs1688]

如:
这是一篇好文章这是一篇好文章这是一篇好文章这是一篇好文章这是一篇好文章这是一篇好文章
这是一篇好文章这是一篇好文章
这是一篇好文章这是一篇好文章这是一篇好文章这是一篇好文章
这是一篇好文章这是一篇好文章这是一篇好文章这是一篇好文章这是一篇好文章这是一篇好文章
这是一篇好文章这是一篇好文章

整理成(每行30字):
这是一篇好文章这是一篇好文章这是一篇好文章这是一篇好文章这是
这是一篇好文章这是一篇好文章这是一篇好文章这是一篇好文章这是
这是一篇好文章这是一篇好文章这是一篇好文章这是一篇好文章这是
这是一篇好文章这是一篇好文章这是一篇好文章这是一篇好文章这是

[jamex]

dim str as string
dim str2 as string
dim str3 as string


str="这是一篇好文章这是一篇好文章这是一篇好文章这是一篇好文章这是一篇好文章这是一篇好文章
这是一篇好文章这是一篇好文章
这是一篇好文章这是一篇好文章这是一篇好文章这是一篇好文章
这是一篇好文章这是一篇好文章这是一篇好文章这是一篇好文章这是一篇好文章这是一篇好文章
这是一篇好文章这是一篇好文章"

str=replace(str,chr(10),'')
str=replace(str,chr(13),'')

str2=str
str3=""

do while len(str)>30

str3=str3 + left(str2,30) + vbcrlf
str2= mid(str2,31)

loop



response.write str3

[swordragon]

完全同意楼上的做法。

回答速度好快呀！！！

[kingastar]

一个一个字符来读取，每行30行加入一个回车。
最好使用stringbuilder，效率比string高很多。

[zhuxiaojun2002]

string temp1;
int j = 0;
temp1 = DsProList.Tables["TpProEdit"].Rows[0]["pro_question"].ToString();
for (int i = 1;i<temp1.Length;i++)
{
if ((i-4*j) % 9 ==0)
{
temp1 = temp1.Insert(i,"<br>");
j ++;
i = i+4;
}
pquestion.Text = temp1;
}
}


http://community.csdn.net/Expert/topic/3286/3286867.xml?temp=.8087274

以前遇到的问题。注意加<br>后字符串长了4位，所以循环了。完全符合你的要求，