Foxtable(狐表)用户栏目专家坐堂 → [求助]字符列扩展为图片,如何返回是几张图片?


  共有1973人关注过本帖树形打印复制链接

主题:[求助]字符列扩展为图片,如何返回是几张图片?

帅哥哟,离线,有人找我吗?
2425004926
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:712 积分:5547 威望:0 精华:0 注册:2019/11/14 9:36:00
[求助]字符列扩展为图片,如何返回是几张图片?  发帖心情 Post By:2021/9/24 15:24:00 [只看该作者]

 ”照片“ 列是字符列,扩展为图片,遍历很多行,导出这些行的照片,一行一个图片是没有问题,和路径统一,如果一行是几个图片,如何返回图片的数量?我看了一下,一个图片一行,如何分割这几个图片的路径,转化为数组?

 回到顶部
帅哥哟,离线,有人找我吗?
2425004926
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:712 积分:5547 威望:0 精华:0 注册:2019/11/14 9:36:00
  发帖心情 Post By:2021/9/24 15:37:00 [只看该作者]

 如果一行照片列里是几个图片,如何返回这一行图片的数量?我看了一下,这一行照片列单元格里一个图片一行,如何分割这个单元格里几个图片的路径,转化为数组?

 回到顶部
帅哥哟,离线,有人找我吗?
2425004926
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:712 积分:5547 威望:0 精华:0 注册:2019/11/14 9:36:00
  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106076 积分:539479 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/9/24 16:18:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
2425004926
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:712 积分:5547 威望:0 精华:0 注册:2019/11/14 9:36:00
  发帖心情 Post By:2021/9/24 17:30:00 [只看该作者]

明白了,非常感谢!

 回到顶部