以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  前缀根目录隐藏问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=126264)

--  作者:douglas738888
--  发布时间:2018/10/17 17:08:00
--  前缀根目录隐藏问题

请教老师,列属性是图片,上传身份证图片是正反面两个图片,如果一行只上传一个图片,列可以隐藏FTP根目录,只显示文件名和文件类型后缀

如果一行上传多个图片,下面代码就报错,这种情况怎样处理?

 

想实现:一行的图片列上传多个图片文件时,只有一个隐藏根目录的文件名

 

DrawCell

If e.Col.name  = "上传证件_身份证" Then
    e.text = filesys.getname(e.Row("上传证件_身份证"))
End If


--  作者:有点甜
--  发布时间:2018/10/17 17:44:00
--  
If e.Col.name  = "上传证件_身份证" Then
    Dim ls As List(of String) = e.Row.DataRow.Lines("上传证件_身份证")
    For i As Integer = 0 To ls.count-1
        ls(i) = filesys.getname(e.Row("上传证件_身份证"))
    Next
    e.text = String.Join(vbcrlf, ls.ToArray)
End If

--  作者:douglas738888
--  发布时间:2018/11/2 9:00:00
--  

老师指导的代码,报错“非法字符.....”

单元格中只有一个文件没有问题,如果图片列,上传有多个文件形成的字符就报错

例如:图片列的单元格

        /123/图片A.jpg

        /123/图片1.jpg

        ......

麻烦老师再指导指导,谢谢


--  作者:有点甜
--  发布时间:2018/11/2 9:17:00
--  

代码改成

 

If e.Col.name  = "上传证件_身份证" Then
    Dim ls As List(of String) = e.Row.DataRow.Lines("上传证件_身份证")
    For i As Integer = 0 To ls.count-1
        ls(i) = filesys.getname(ls(i))
    Next
    e.text = String.Join(vbcrlf, ls.ToArray)
End If


--  作者:douglas738888
--  发布时间:2018/11/2 11:37:00
--  

谢谢老师的指导,单元格可以了。另外还请教老师,下面代码是把TEXTBOX的内容分离出来通过messagebox.show单独显示无根目录的文件名称,怎样在一个窗口或另外一个TEXTBOX显示全部转换过的文件名称?

 

下面代码是一个窗口显示一个文件名称,需要多次关闭多个Messagebox窗口

 

With Forms("应急事件").Controls("TextBox10")
    For i As Integer = 0 To .Lines.Length - 1
      Dim str As String
         str = Filesys.GetName(.Lines(i))
        Messagebox.Show(str)
    Next
End With


--  作者:有点甜
--  发布时间:2018/11/2 13:16:00
--  

Dim ary = e.form.Controls("TextBox1").lines
Dim ls As new List(of String)
ls.AddRange(ary)
For i As Integer = 0 To ls.count-1
    ls(i) = Filesys.GetName(ls(i))
Next

msgbox(String.Join(vbcrlf, ls.ToArray))