以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何设置代码？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=196133)
--  作者：rongping
--  发布时间：2025/3/31 21:58:00
--  如何设置代码？
我从网络上复制一段文字，有好几个段落，复制到一个文本框，如何实现把文本框里面的内容按段落添加到一个表中的列，每一段添加一行数据，如果复制的那段文字有三个段落，就新增三行，每一段内容一行数据。怎么实现？
--  作者：y2287958
--  发布时间：2025/3/31 22:15:00
--  
lines
--  作者：有点蓝
--  发布时间：2025/3/31 22:48:00
--  
dim s as string = e.form.controls("文本框1").text
dim ss() as string = s.replace(vbcr,"").split(vblf)
for each a as string in ss
dim r as row = tabels("a").addnew
r("第一列")=a
next