以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]字符列扩展为图片，如何返回是几张图片？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=172123)
--  作者：2425004926
--  发布时间：2021/9/24 15:24:00
--  [求助]字符列扩展为图片，如何返回是几张图片？
 ”照片“ 列是字符列，扩展为图片，遍历很多行，导出这些行的照片，一行一个图片是没有问题，和路径统一，如果一行是几个图片，如何返回图片的数量？我看了一下，一个图片一行，如何分割这几个图片的路径，转化为数组？
--  作者：2425004926
--  发布时间：2021/9/24 15:37:00
--  
 如果一行照片列里是几个图片，如何返回这一行图片的数量？我看了一下，这一行照片列单元格里一个图片一行，如何分割这个单元格里几个图片的路径，转化为数组？
--  作者：2425004926
--  发布时间：2021/9/24 15:58:00
--  
 我是用以下代码提取的，如果某行的照片列里有好几个图片，则无法提取

            If .DataTable.DataCols.Contains("照片") Then   \'包含照片列时
                If .IsSubtotal = True Then   \'汇总情况下
                    MessageBox.Show("在汇总情况下此项不能操作!", "提示")
                Else
                    Dim dlg As New FolderBrowserDialog   \'目录对话框
                    If dlg.ShowDialog = DialogResult.Ok Then   
                        Dim i As Integer
                        For i = i1 To i2
                            Dim tx As String
                            tx = projectPath & "attachments\\" & .Rows(i)("照片")    \'照片路径
                            If FileSys.FileExists(tx) Then    \'如果找到
                                Dim ifo As New FileInfo(tx)
                                Dim fn As String
                                fn = dlg.SelectedPath & "\\" & .Rows(i)("名称") & Ifo.Extension   \'加扩展名
                                FileSys.CopyFile(tx, fn, True) \'复制文件,重复则覆盖
                            End If
                        Next
                    End If
                End If
            End If
--  作者：有点蓝
--  发布时间：2021/9/24 16:18:00
--  
参考：http://www.foxtable.com/webhelp/topics/2717.htm
--  作者：2425004926
--  发布时间：2021/9/24 17:30:00
--  
明白了，非常感谢！