网页中,如何显示数据库里有分行的文本。

网页中,如何显示数据库里有分行的文本。,第1张

在存入数据库前把textarea域里的值转换一下,也就是把回车换行符和空格符转换成字符<br>和#nbsp存进数据库里,这样输出来的时候就有空格和换行了。

例如:

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了,这只是思路,自己在动动手吧


欢迎分享,转载请注明来源:内存溢出

原文地址: https://outofmemory.cn/sjk/9922394.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-03
下一篇 2023-05-03

发表评论

登录后才能评论

评论列表(0条)

保存