- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 文本生成 不允许有空行 结果生成的数据偶尔会有空行？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=170738)
-- 发布时间：2021/8/5 16:00:00
-- 文本生成 不允许有空行 结果生成的数据偶尔会有空行？
文本生成 不允许有空行 结果生成的数据偶尔会有空行？
此主题相关图片如下：1.png
甚至出现了换行和空格
此主题相关图片如下：2.png
此主题相关图片如下：2.png经过核查：对应的数据库表里面不存在空行值，麻烦老师帮忙看看 为什么会插入一个空行呢？和出现换行和空格呢？谢谢！
代码如下：
Dim c As Integer =DataTables("JobPosition").Compute("count(id)")
output.show(c)
Dim Cols1() As String = {"mkcode","zwbianhao","shuxingbiama","zwname"}
Dim s As String
s=Date.now() & "," & c
s = s.TrimStart(",")
FileSys.WriteAllText(bb.Text & "\\JobPosition.txt",s & vbcrlf,False, Encoding.Default)
For Each dr As DataRow In DataTables("JobPosition").DataRows
s = ""
For i As Integer = 0 To Cols1.Length -1
If s > "" Then s = s & ","
If dr.IsNull(Cols1(i)) = False Then
s = s & dr(Cols1(i))
End If
Next
s = s.TrimStart(",")
FileSys.WriteAllText(bb.Text & "\\JobPosition.txt", s & vbcrlf , True, Encoding.Default)
Next
[此贴子已经被作者于2021/8/5 16:10:07编辑过]
-- 发布时间：2021/8/5 16:21:00
--
有空格，那是单元格数据本身就有空格。
至于换行，把记事本窗口最大化看看，窗口宽度不够，默认就是自动换行显示的
-- 发布时间：2021/8/5 16:32:00
-- 回复：（有点蓝）有空格，那是单元格数据本身就有空格...
经查记事本最大化 空格换行还是存在 空行也还是存在 有没有办法强制删除指定列值空格删除 空行删除 确保数据无空行 不会断行呢？
s = s.Trim
s = s.TrimStart
使用上述两个写法 效果都是一样的
[此贴子已经被作者于2021/8/5 16:47:02编辑过]
-- 发布时间：2021/8/5 16:49:00
--
for each r as row in tables("a").rows
if r.isnull("姓名") = false then
r("姓名") = r("姓名").replace(" ","").replace(vbcr,"").replace(vblf,"")
end if
next
-- 发布时间：2021/8/5 17:24:00
-- 回复：（有点蓝）for each r as row in tables("a").r...
谢谢 按老师提示 解决了