- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 转换多了换行符 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=192703)
-- 发布时间：2024/7/15 10:44:00
-- 转换多了换行符
老师们 可以帮忙优化一下代码吗？就是在转换的时候，会多一行换行符，导致表格里面的内容最后一个字符是换行，
有没什么办法，就是最后一个字符不是换行。感谢 感谢
Select Case e.DataCol.Name
Case "商品信息_总文件夹名","商品信息_子文件夹名","商品信息_窗口图片名"
Dim data As String = e.DataRow("商品信息_窗口图片名")
Dim str As String = ""
Dim arys() As String = data.Replace("|;", chr(13)).Split(chr(13))
For Each ary As String In arys
Dim idx As Integer = ary.IndexOf(":")
If idx > -1 Then
str += e.DataRow("商品信息_窗口路径") & "\\" & ary.SubString(0, idx) & ".tbi" & vbcrlf
End If
Next
e.DataRow("商品信息_窗口图片") = str
End Select \'得到窗口图片
Select Case e.DataCol.Name
Case "商品信息_总文件夹名","商品信息_子文件夹名","商品信息_窗口图片名"
Dim str As String = ""
Dim data As String = e.DataRow("商品信息_详解路径")
If data <> Nothing Then
For Each f As String In FileSys.GetFiles(data)
str += f & vbcrlf
Next
End If \'窗口图片列的图片来自文件地址列的文件
e.DataRow("商品信息_详解图片") = str
End Select \'得到详解图片
-- 发布时间：2024/7/15 10:45:00
--
e.DataRow("商品信息_详解图片") = str.trim(vbcrlf)
-- 发布时间：2024/7/15 10:58:00
--
谢谢 还是不行，这样就只有一行了，可不可以在这个代码的完成后的基础上，添加一行删除最后一个字符，谢谢
-- 发布时间：2024/7/15 11:02:00
--
e.DataRow("商品信息_详解图片") = str.trim(vbcr, vblf)
-- 发布时间：2024/7/15 11:21:00
--
谢谢 可以了 ，没反应过来，