例如:
textarea=replace(request.form("textarea"),chr(13)&chr(10),"<br>")
textarea=replace(textarea,chr(32),"#nbsp")
注:由于显示的原因我把&改为#,你写的时候改回来
然后再把textarea存进数据库
要解决的是字符串的拆分,当然得有特殊的(有规律可循的)分隔符号,从你的举例中可以把1,2,3作为有规律的分隔符号。例如:
对于:"1伟大中华人民共和国,2强大的国土面积,地大物博,3水资源的匮乏"
算法分析:
L = 1
n = 1
步骤1)n = n + 1
步骤2)在字符串里从左边第L位开始找阿拉伯数字n,找到,就从在该字符前一位插入一个换行
符号。L = 插入位置+2,回到步骤1)
没找到,拆分结束。
代码如下:
Option Explicit
Private Sub Command1_Click()
Dim ss As String
Dim i As Integer
Dim n As Integer
Dim L As Integer
ss = "1伟大中华人民共和国,2强大的国土面积,地大物博,3水资源的匮乏"
L = 1
n = 2
L = InStr(L, ss, CStr(n))
Do While L <>0
ss = Left(ss, L - 1) &vbCrLf &Right(ss, Len(ss) - (L - 1))
L = L + 1
n = n + 1
L = InStr(L, ss, CStr(n))
Loop
Print ss
End Sub
在repeater控件中不是有一个ItemTemplate,headerTemplate,FooterTemplate 吗?你在headerTemplater中写<table><tr>在ItemTemplate中就写要绑定的内容 然后在footerTemplate中写</tr></tabel>就OK了,这只是思路,自己在动动手吧欢迎分享,转载请注明来源:内存溢出
评论列表(0条)