- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]空行丢失 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=154132)
-- 发布时间：2020/9/4 14:03:00
-- [求助]空行丢失
Dim e As RequestEventArgs = args(0)
Dim wb As New WeUI
If e.PostValues.ContainsKey("tear") Then
messagebox.show(e.PostValues("tear"))
End If
wb.AddForm("","form1","")
wb.InsertHTML("form1","<div style=\'text-align:center;\'>")
wb.InsertHTML("form1","<textarea name=\'tear\' id=\'tear\' class=\'weui_textarea\' rows=\'28\' style=\'white-space:nowrap;color:blue;\'>" & "" & "</textarea>")
wb.InsertHTML("form1","</div>")
With wb.AddButtonGroup("form1","ctngrp1",False)
.Add("cbtn1", "确定", "submit")
End With
e.WriteString(wb.Build)
以上代码是textarea框的页面，在textarea框内输入内容，然后保存的时候，messagebox.show中显示的内容总是会少了一个空行
比如我输入以下内容：
123
123
那么，messagebox.show中显示的是：
123
123
又比如我输入以下内容：
123
123
123
那么，messagebox.show中显示的是：
123
123
123
到底哪里出问题了，为什么会这样，怎么解决？
-- 发布时间：2020/9/4 14:11:00
--
我测试没有问题，请上传实例说明
Select Case e.Path
Case "test.htm"
Dim wb As New WeUI
If e.PostValues.Count > 0
FileSys.WriteAllText("C:\\Table.Txt", e.PostValues("tear"), True)
msgbox(e.PostValues("tear"))
End If
wb.AddForm("","form1","")
wb.InsertHTML("form1","<div style=\'text-align:center;\'>")
wb.InsertHTML("form1","<textarea name=\'tear\' id=\'tear\' class=\'weui_textarea\' rows=\'28\' style=\'white-space:nowrap;color:blue;\'>" & "" & "</textarea>")
wb.InsertHTML("form1","</div>")
With wb.AddButtonGroup("form1","ctngrp1",False)
.Add("cbtn1", "确定", "submit")
End With
e.WriteString(wb.Build)
End Select
-- 发布时间：2020/9/4 14:43:00
--
此主题相关图片如下：1599201227(1).png
压缩包老是上传不成功
实例测试的效果如上图
-- 发布时间：2020/9/4 14:45:00
--
重复上传，直到成功，文件不能大于2M
-- 发布时间：2020/9/4 14:49:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.foxdb |
-- 发布时间：2020/9/4 14:56:00
--
测试没有问题呢？换其它浏览器试试
此主题相关图片如下：1.png
此主题相关图片如下：2.png
-- 发布时间：2020/9/4 15:12:00
--
换浏览器都一样，用手机试都一样，
-- 发布时间：2020/9/4 15:22:00
--
换台电脑做服务试试。
重装一下.net
-- 发布时间：2020/9/4 15:28:00
--
好，我试试，谢了